Macro to export to Excel template

DMTP03 — Thu, 11 May 2023 23:09:32 GMT

I have this Macro to try to export my table to an Excel template, but just open the excel and don't export the information but I don't know what I'm doing wrong.

Thanks for your help!

Sub Excel_Table_Export

set XLApp = CreateObject("Excel.Application")
set XLDOC = XLApp.Workbooks.Open ("C:\Users\TEST.xlsx") 'obviously you can change the location/name as necessary
XLApp.Visible = True
Const XLPasteValues = -4163

set s=ActiveDocument.Sheets("SH03") 'Exports is the name of my Qvw tab so you need to change to wherever your object CH1107 resides
ActiveDocument.Sheets("CH02").Activate
ActiveDocument.ClearCache
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.GetSheetObject("CH02").Restore
ActiveDocument.GetSheetObject("CH02").CopyTableToClipboard true
set XLSheet = XLDOC.Worksheets("Hoja1") ' again this could be any worksheet name in your 'Data.xls'
XLSheet.Paste XLSheet.Range("B5")
XLSheet.Cells.EntireColumn.AutoFit
ActiveDocument.GetSheetObject("CH02").Minimize
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.ClearCache

XLSheet.SaveAs "C:\Users\TEST.xlsx"
MsgBox("DONE")

set XLApp = Nothing
set XLDOC = Nothing
set XLSheet = Nothing
End Sub

topic Macro to export to Excel template in QlikView

Macro to export to Excel template