Paste in the bottom of an excel

Ask a Question

Hi everybody,

I have a problem. I have to paste the content of an object and then I have to paste other object below the last row wrote in the excel.

This is my script:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

'Load of the first object

SET XLSheet1 = objExcel.Worksheets(1)

XLSheet1.Cells.EntireColumn.ColumnWidth = 31.0

ActiveDocument.GetSheetObject("TB01").CopyTableToClipboard true

XLSheet1.Paste

'XLSheet1.Cells(1, 1).Select

'Load of the second object

'How can I select the cell below the last one wrote? <--

ActiveDocument.GetSheetObject("TB02").CopyTableToClipboard true

XLSheet1.Paste

XLSheet1.Cells(1, 1).Select

Regards

0 Replies