将Excel写入到TXT中

标题

1. excel表中右键查看代码

2. 输入如下代码
   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

3. 点击运行即可