Hi, in oder to force Excel 2007 to generate Excel 2003 files I have been
using this bundle of code inside an Addin

Workbooks(genSyncQteParam.fileName).SaveAs _
fileName:=CStr(SaveAs_path & SaveAsExcel_sourceName), _
FileFormat:=xlExcel8, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

but... while running this code under Excel 2k3 I receive a message "Compile
error inside one hidd"n module" ... the problem being on FileFormat:=xlExcel8

Assuming I do need this addin to stay for a while compatible between the two
Ecel versions, what can I do ?

I guess I will be facing same kind of trouble with such line code
ActiveSheet.ExportAsFixedFormat type:=xlTypePDF

Thanks for your help
Alain

I have found a way by myself... Three steps...

S1 - As long as compatibility will be requested I will place specific 2k7
code lines in specific modules where when needed I can remove the <<Option
Explicit>> => permits to test and debug evolutions on Excel 2003 without
receiving always the same warnings...

S2 - I have redefine xlExcel8 constant as an integer and control its value
according to the current Application.version running the code...

S3 - I avoid some specific 2k7 code lines while running under 2k3 by testing
the version...

Regards
Alain

I think?? you can modify this to save as an xls file in either version.
xlNormal

ActiveWorkbook.SaveAs Filename:="C:\yourfolder\yourfilename.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Alain-79" <(E-Mail Removed)> wrote in message
news:7EB9FC17-F2BB-4A5D-AA06-(E-Mail Removed)...
> Hi, in oder to force Excel 2007 to generate Excel 2003 files I have been
> using this bundle of code inside an Addin
>
> Workbooks(genSyncQteParam.fileName).SaveAs _
> fileName:=CStr(SaveAs_path & SaveAsExcel_sourceName), _
> FileFormat:=xlExcel8, _
> Password:="", _
> WriteResPassword:="", _
> ReadOnlyRecommended:=False, _
> CreateBackup:=False
>
> but... while running this code under Excel 2k3 I receive a message
> "Compile
> error inside one hidd"n module" ... the problem being on
> FileFormat:=xlExcel8
>
> Assuming I do need this addin to stay for a while compatible between the
> two
> Ecel versions, what can I do ?
>
> I guess I will be facing same kind of trouble with such line code
> ActiveSheet.ExportAsFixedFormat type:=xlTypePDF
>
> Thanks for your help
> Alain

Thanks for the idea... in fact I thought I was oblige to use the xlExcel8
while in 2K7 // in fact do not remember where I found that ?

Thanks to you // will check
Alain

"Don Guillett" wrote:

> I think?? you can modify this to save as an xls file in either version.
> xlNormal
>
> ActiveWorkbook.SaveAs Filename:="C:\yourfolder\yourfilename.xls",
> FileFormat:= _
> xlNormal, Password:="", WriteResPassword:="",
> ReadOnlyRecommended:=False _
> , CreateBackup:=False
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "Alain-79" <(E-Mail Removed)> wrote in message
> news:7EB9FC17-F2BB-4A5D-AA06-(E-Mail Removed)...
> > Hi, in oder to force Excel 2007 to generate Excel 2003 files I have been
> > using this bundle of code inside an Addin
> >
> > Workbooks(genSyncQteParam.fileName).SaveAs _
> > fileName:=CStr(SaveAs_path & SaveAsExcel_sourceName), _
> > FileFormat:=xlExcel8, _
> > Password:="", _
> > WriteResPassword:="", _
> > ReadOnlyRecommended:=False, _
> > CreateBackup:=False
> >
> > but... while running this code under Excel 2k3 I receive a message
> > "Compile
> > error inside one hidd"n module" ... the problem being on
> > FileFormat:=xlExcel8
> >
> > Assuming I do need this addin to stay for a while compatible between the
> > two
> > Ecel versions, what can I do ?
> >
> > I guess I will be facing same kind of trouble with such line code
> > ActiveSheet.ExportAsFixedFormat type:=xlTypePDF
> >
> > Thanks for your help
> > Alain
>
> .
>

Don -

xlNormal is Excel 8 format in Excel 2003 and Excel 12 format in Excel
2007. The user asked for Excel 8 format in when running both versions.

Alain -

I've used a function that gives me the constant value I need:

Function xl8FileFormat() as long
If Val(Application.Version) >= 12 Then
xlFileFormat = 56 ' value of xlExcel8 constant
Else
xlFileFormat = xlNormal
End If
End Function

Do the same kind of thing for PDF.

- Jon
-------
Jon Peltier
Peltier Technical Services, Inc.
http://peltiertech.com/



Don Guillett wrote:
> I think?? you can modify this to save as an xls file in either version.
> xlNormal
>
> ActiveWorkbook.SaveAs Filename:="C:\yourfolder\yourfilename.xls",
> FileFormat:= _
> xlNormal, Password:="", WriteResPassword:="",
> ReadOnlyRecommended:=False _
> , CreateBackup:=False
>