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
通过数组将excel所有表格内容复制到txt中,节省大量读取excel单元格时间
最新推荐文章于 2024-03-26 14:41:22 发布
本文介绍了一种使用VBA和数组的方法,可以高效地将Excel工作表内容批量复制到TXT文件中,极大地提高了从大量单元格读取数据的效率。
摘要由CSDN通过智能技术生成