Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
How to export to Excel include Title Caption? May be someone know this setting.
Thanks
Danny,
Please go through this link
http://community.qlik.com/message/138642#138642
This is the macro code
Sub ExcelExpwCaption
'Set the path where the excel will be saved
filePath = "E:\TestBB.xls"
'Create the Excel spreadsheet
Set excelFile = CreateObject("Excel.Application")
excelFile.Visible = true
'Create the WorkBook
Set WorkBook = excelFile.WorkBooks.Add
'Create the Sheet
Set Sheet = WorkBook.WorkSheets(1)
'Get the chart we want to export
Set tableToExport = ActiveDocument.GetSheetObject("LB02")
Set chartProperties = tableToExport.GetProperties
tableToExport.CopyTableToClipboard true
'Get the caption
chartCaption = tableToExport.GetCaption.Name.v
'MsgBox chartCaption
'Set the first cell with the caption
Sheet.Range("A1") = chartCaption
'Paste the rest of the chart
Sheet.Paste Sheet.Range("A2")
excelFile.Visible = true
'Save the file and quit excel
WorkBook.SaveAs filePath
WorkBook.Close
excelFile.Quit
'Cleanup
Set WorkBook = nothing
Set excelFile = nothing
End Sub
Regards
..........
Danny,
Please go through this link
http://community.qlik.com/message/138642#138642
This is the macro code
Sub ExcelExpwCaption
'Set the path where the excel will be saved
filePath = "E:\TestBB.xls"
'Create the Excel spreadsheet
Set excelFile = CreateObject("Excel.Application")
excelFile.Visible = true
'Create the WorkBook
Set WorkBook = excelFile.WorkBooks.Add
'Create the Sheet
Set Sheet = WorkBook.WorkSheets(1)
'Get the chart we want to export
Set tableToExport = ActiveDocument.GetSheetObject("LB02")
Set chartProperties = tableToExport.GetProperties
tableToExport.CopyTableToClipboard true
'Get the caption
chartCaption = tableToExport.GetCaption.Name.v
'MsgBox chartCaption
'Set the first cell with the caption
Sheet.Range("A1") = chartCaption
'Paste the rest of the chart
Sheet.Paste Sheet.Range("A2")
excelFile.Visible = true
'Save the file and quit excel
WorkBook.SaveAs filePath
WorkBook.Close
excelFile.Quit
'Cleanup
Set WorkBook = nothing
Set excelFile = nothing
End Sub
Regards
..........
Thanks
Danny,
Please mark the correct answer if it works.So that others can able to get the solution.
Regards
................
Why can't i use this code? I only use Open Office, not using Excel. May be I don't have ActiveX to execute this code.