将Excel数据写入到TXT中

将Excel中的数据，写入到TXT中，以TAB分隔，便于导入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

我的更多文章：

• 常用的正则匹配(2012-09-03 15:08:49)
• 正则表达式语法(2012-09-03 15:06:58)
• VBA的Format函数(2011-11-27 22:43:14)
• VBA 读取/写入文本文件(2011-11-27 00:14:38)
• VBA字符串处理(2011-09-01 17:59:16)