excel - 将 5 个工作表中的数据导出到 5 个文本文件中

Question

我的工作簿包含 n 个工作表。其中 5 个包含应导出到文本文件的数据。

在子过程中，我创建了 5 个文本文件，名称分别为export01 到export05包含要导出的数据的 5 个工作表以相同的方式命名为“export01”到“export05”。

工作表export01的数据应写入文本文件export01等。

为了导出表export01的数据，我创建了这段代码，但我不知道如何导出其他4个表的数据。

我应该将代码复制 4 次并更改所需的内容还是有更好的解决方案？感谢您的帮助!

sub exportTxt()
Dim rng As Range
Dim myTable As String
Dim myFile As String

myTable = "export1"
myFile = "export1.txt"

Sheets(myTable).Select
Set rng = Range("a1").CurrentRegion
Open myFile For Output As #1
   For i = 1 To rng.Rows.Count
       For j = 1 To rng.columns.Count
           cellValue = rng.Cells(i, j).Value
       If j = rng.columns.Count Then
           Print #1, cellValue
       Else
       Print #1, cellValue,
       End If
       Next j
   Next i
Close #1
End Sub 

Answer 1

像这样，您的工作表名称保存在数组中:

Sub DumpSheets()
Dim ws As Worksheet
For Each ws In Sheets(Array("yoursheetnames","test", "test 2", "Sheet4", "Sheet5"))
    ws.SaveAs "C:\temp\" & ws.Name & "txt", xlTextMSDOS
Next ws
End Sub