export to excel two sheets

Anonymous — Fri, 18 Sep 2015 14:27:04 GMT

I have a container that contains two tables : CH10001 and CH10002

with the following code I can export 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

How can I export CH10001 and CH10002 in the same workbook but with dynamic sheet name ? add the getdate in the name of the sheet for example ?

Re: export to excel two sheets

Gysbert_Wassenaar — Fri, 18 Sep 2015 17:15:06 GMT