I have a macro which copies data into an excelsheet:
Set XLDoc = XLSapp.Workbooks.add 'Open New Excel file
XLDoc.Sheets.Add.Name = "Kwaliteit" 'Add sheet
ActiveDocument.GetSheetObject("CH06").CopyTableToClipboard True 'Add table with fieldinfo
XLDoc.Worksheets("Kwaliteit").Range("A1").Select()
XLDoc.Worksheets("Kwaliteit").PasteSpecial
XLDoc.Worksheets("Kwaliteit").cells.WrapText = False
Works perfectly, but now I want to add some tekst (amd preferably the name of the sheet) to cell A1, and starting A2 the actual table.
Is this possible?
