通过数组将excel所有表格内容复制到txt中，节省大量读取excel单元格时间

Sub test()
Dim ws As Worksheet
Dim arr()
Dim i, j
Dim myrng As Range

Open "C:\Users\Administrator\Desktop\000.txt" For Output As #1
'在工作簿"000.xlsm"中循环所有的工作表
For Each ws