1.按 ALT+F11将下列代码中的Sheet1后面的数字就可以了。比如将Sheet1改为Sheet2，Sheet3，即可导出对应的数据方案1：把所有记录保存到一个TXT文件中代码。Sub txt1() Dim file As String, arr, i '定义文本文件的名称 file = ThisWorkbook.Path & "\巡检记录.txt" '判断

- 阅读全文 -