topic How to export to Excel 2003 mode when Excel 2007 is installed in my computer? in QlikView

How to export to Excel 2003 mode when Excel 2007 is installed in my computer?

Anonymous — Fri, 20 Jan 2012 05:59:23 GMT

my macro script:

Set objExcelApp = CreateObject("Excel.Application")

Set objExcelDoc = objExcelApp.Workbooks.Add

...

... ...

objExcelDoc.SaveAs vFilePath & "\" & vName

objExcelDoc.Close

The default file type I export is ".xlsx", not ".xls", even if I do as following,

Excel Options-Save-"Save files in this format" and select

"Excel 97-2003 workbook".

Why? How do I export files for Excel 2003?

Re: How to export to Excel 2003 mode when Excel 2007 is installed in my computer?

Anonymous — Fri, 20 Jan 2012 06:59:55 GMT

set obj = ActiveDocument.GetSheetObject("CH01")

obj.ExportBiff "C:\test.xls"

use extension according to your version

How to export to Excel 2003 mode when Excel 2007 is installed in my computer?

Anonymous — Fri, 20 Jan 2012 07:37:05 GMT

Dear sarathi87k,

I will export some tables and charts into 1 sheet in an excel file, so I can not use the function like

ExportBiff .

How to export to Excel 2003 mode when Excel 2007 is installed in my computer?

Anonymous — Fri, 20 Jan 2012 11:17:16 GMT

objExcelDoc.SaveAs vFilePath & "\" & vName

what is Vfilepath & Vname..

How to export to Excel 2003 mode when Excel 2007 is installed in my computer?

m_woolf — Fri, 20 Jan 2012 12:14:28 GMT

I googled this:

.ActiveWorkbook.SaveAs(sXLS), 56 'office 2007

.ActiveWorkbook.SaveAs(sXLS), 43 'office 2003

Re: How to export to Excel 2003 mode when Excel 2007 is installed in my computer?

Anonymous — Sat, 21 Jan 2012 03:32:03 GMT

Dear sarathi87k,

It is file full path, like c:\abc.qvw

Dear mwoolf,

It runs wrong with your code.

Set objExcelApp = CreateObject("Excel.Application")

Set objExcelDoc = objExcelApp.Workbooks.Add

objExcelDoc.SaveAs(sXLS), 43 vFilePath & "\" & vName

objExcelDoc.Close

How to export to Excel 2003 mode when Excel 2007 is installed in my computer?

m_woolf — Mon, 23 Jan 2012 15:30:32 GMT

This code is tested:

sXLS = "test.xls"

Set objExcelApp = CreateObject("Excel.Application")
Set objExcelDoc = objExcelApp.Workbooks.Add

set xlSheet = objExcelDoc.Sheets("Sheet1")
xlSheet.Range("A1").value = "hi there"

objExcelDoc.SaveAs sXLS, 56

objExcelDoc.Close