Type Mismatch on copyObjectsToExcelSheet

[souadouert]

i used this script to copy table to excel

Sub export_situation()

set val=ActiveDocument.Fields("souad").GetPossibleValues

for i=0 to val.Count-1

ActiveDocument.Fields("souad").Select (val.Item(i).Text)

set objagenceClient = ActiveDocument.GetSheetObject("tablesouad")

sheetname=val.Item(i).Text

Dim aryExport(6,3)

aryExport(i,0) = "tablesouad"

aryExport(i,1) = val.Item(i).Text

aryExport(i,2) = "A1"

aryExport(i,3) = "data"

Dim objExcelWorkbook 'as Excel.Workbook

Set objExcelWorkbook = copyObjectsToExcelSheet(ActiveDocument, aryExport)

next

end Sub

but i have this error

[marcus_sommer · Accepted solution]

Your code is incomplete. Take here a look into the origin posting: QlikTip #32: Exporting multiple QV objects to a single Excel document.

- Marcus

[bomedic16]

Hallo Markus,

ich nutze das Script schon eine Weile und habe es nun neu in eine qvw integriert und erhalte nun die selbe Fehlermeldung. Habe auch schon auf ganz rudimentär reduziert. Es läuft einfach nicht. In mehreren anderen Apps schon. Auch die original qlikblog_ExportToMultipleExcelSheets.qvw läuft.

In meiner "neuen" App nicht. Dort ist auch sonst kein VBA "verbaut".

1:1 aus der Quelle kopiert:

sub test
'// Array for export definitions
Dim aryExport(0,3)

aryExport(0,0) = "objSalesPerYearAndRegion"
aryExport(0,1) = "Sales per Region a. Year"
aryExport(0,2) = "A1"
aryExport(0,3) = "data"

Dim objExcelWorkbook 'as Excel.Workbook
Set objExcelWorkbook = copyObjectsToExcelSheet(ActiveDocument, aryExport)
end sub

und eine Tabelle unter Objekt-ID als "objSalesPerYearAndRegion" benannt.

Gibt es in Qlikview noch irgendwo eine Einstellung?

[bomedic16]

Hat sich erledigt. Alles gefunden und müsste un laufen.... der Fehler saß vor dem PC 😉