Macro not working for multiple object

Karim_Khan — Wed, 25 Nov 2020 16:16:04 GMT

Hi All,

I am creating the macro first time to export the objects from qlik to excel.it's working fine for exporting one chart to excel but whenever m trying to export multiple objects into multiple sheet with different sheet name it's throwing an error ScriptOut of range

sub ExcelFile

strDate = CDate(Date)

strDay = DatePart("d", strDate)

strMonth = DatePart("m", strDate)

strYear = DatePart("yyyy", strDate)

If strDay < 10 Then

strDay = "0" & strDay

End If

If strMonth < 10 Then

strMonth = "0" & strMonth

End If

GetFormattedDate = strMonth & "-" & strDay & "-" & strYear

Path = "C:\temp\"

FileName = "Test_" & GetFormattedDate & ".xlsx"

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = true

set XLDoc = XLApp.Workbooks.Add(1)

ActiveDocument.GetSheetObject("Page One").CopyTableToClipboard true

XLDoc.Sheets(1).Paste()

XLDoc.Sheets(1).Rows("1:3000").EntireRow.AutoFit

ActiveDocument.GetSheetObject("Page Two").CopyTableToClipboard true

XLDoc.Sheets(2).Paste() --------Throwing error at this line

XLDoc.Sheets(2).Rows("1:3000").EntireRow.AutoFit

XLDoc.Sheets(1).Name = "Page One"

XLDoc.Sheets(2).Name = "Page Two"

XLDoc.Sheets(3).Delete

XLDoc.Sheets(1).Range("A1").Select

end sub

Regards,

Karim Khan

topic Macro not working for multiple object in QlikView

Macro not working for multiple object