vb.net - 如何将 Excel 选项卡上的数据导出到其自己的 Excel 文件中？

Question

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

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