导出为ex​​cel不同名称的两张表

我有一个包含两个表的容器：CH10001和CH10002

用下面的代码我可以导出CH10001

sub xport2xl() iRow = 1 set xlApp = CreateObject("Excel.Application") xlApp.Visible = True set xlWB = xlApp.Workbooks.Add set xlSheet = xlWB.Worksheets(1) set obj = ActiveDocument.getsheetobject(ChartName) xlSheet.Activate xlSheet.Cells.Clear while not (isempty(xlSheet.Cells(iRow,1))) iRow = iRow+2 wend set txt1 = ActiveDocument.GetSheetObject("CH10001") txt1.CopytableToClipboard TRUE xlSheet.Cells(iRow,1).Select xlSheet.Paste end sub 

如何在同一工作簿中导出CH10001和CH10002，但使用dynamic工作表名称？ 然后添加getdate的名字，例如？

Answer 1

如果您想要将这些表格导出为独立表格，这应该可以帮助您：

 Sub xport2xl() iRow = 1 Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlWB = xlApp.Workbooks.Add Set xlSheet = xlWB.Worksheets(1) Set obj = ActiveDocument.GetSheetObject(ChartName) xlSheet.Activate xlSheet.Cells.Clear While Not (IsEmpty(xlSheet.Cells(iRow, 1))) iRow = iRow + 2 Wend Set txt1 = ActiveDocument.GetSheetObject("CH10001") txt1.CopytableToClipboard True 'xlSheet.Activate '---You might need to activate sheet xlSheet.Cells(iRow, 1).Paste '-----Set the name of the sheet here---- xlSheet.Name = "Your name here for CH10001" '---------------------------------------------------- '------------ Code for the second table ------------- '---------------------------------------------------- On Error Resume Next '---Try to set the second sheet Set xlSheet = xlWB.Worksheets(2) If Err.Number <> 0 Then '---If there is an error, add a new sheet Set xlSheet = xlWB.Worksheets.Add Else '---Already assigned, nothing else to do End If On Error GoTo 0 Set txt1 = ActiveDocument.GetSheetObject("CH10002") txt1.CopytableToClipboard True 'xlSheet.Activate '---You might need to activate sheet xlSheet.Cells(iRow, 1).Paste '-----Set the name of the sheet here---- xlSheet.Name = "Your name here for CH10002" End Sub