excel - 导出到Excel的两个不同名称的表

我有一个包含两个表的容器：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？并在表的名称中添加getdate例如？

最佳答案

如果要将这些表导出到单独的工作表中，这应该对您有帮助：

关于excel - 导出到Excel的两个不同名称的表，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/32654609/