Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
Your code is incomplete. Take here a look into the origin posting: QlikTip #32: Exporting multiple QV objects to a single Excel document.
- Marcus
Your code is incomplete. Take here a look into the origin posting: QlikTip #32: Exporting multiple QV objects to a single Excel document.
- Marcus
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?
Hat sich erledigt. Alles gefunden und müsste un laufen.... der Fehler saß vor dem PC 😉