标题
-
excel表中右键查看代码
-
输入如下代码
Sub GetDataFromExcel()
Dim arr, brr, t
t = Timer
arr = ActiveSheet.UsedRange
ReDim brr(1 To UBound(arr, 1))
For a = 1 To UBound(arr, 1)
brr(a) = arr(a, 1)
For b = 2 To UBound(arr, 2)
brr(a) = brr(a) & vbTab & arr(a, b)
Next
Next
Open “D:\Test.txt” For Output As #1
Print #1, Join(brr, vbCrLf)
Close #1
MsgBox “用时:” & Format(Timer - t, “0.000秒”)
End Sub -
点击运行即可