Question

我在1个Excel文件中有10个标签（标签A-J）。我想将选项卡A的内容导出到自己的名为A.xls的Excel文件中。然后为B-J做同样的事情。我该怎么做呢？

Excel中是否有选项，还是我必须使用VB编程？

Answer 1

我不知道有没有办法从没有VBA的Excel做到这一点，只要VBA在这里是我的2美分：

Sub exportSheetsToXLSX()

Dim parentWb As Workbook
Dim childWb As Workbook

Set parentWb = ThisWorkbook

For Each ws In parentWb.Worksheets
    Set childWb = Workbooks.Add

    ThisWorkbook.Sheets(ws.Name).Copy before:=childWb.Sheets(1)
    childWb.SaveAs ws.Name, FileFormat:=51
    childWb.Close

Next ws
End Sub

Answer 2

在Excel中，您应该可以右键单击选项卡，然后选择“移动或复制”，然后选择“新书”。这仍然是一种非常快速的方法，但你也可以使用VB并尝试这样的事情：

Sub sheetExport()

Worksheets.Add After:=Worksheets(Worksheets.Count)
For i = 1 To ThisWorkbook.Sheets.Count - 1
    ThisWorkbook.Sheets(1).Move
    ActiveWorkbook.SaveAs ActiveWorkbook.Sheets(1).Name, FileFormat:=51
    ActiveWorkbook.Close SaveChanges:=False  
Next i

End Sub

如何将Excel选项卡上的数据导出到自己的Excel文件？

2 个答案: