Save as (filename,fileformat) from Word VBA will not work

[Jan Scherpbier]

I an trying to change the fileformat of an Excel sheet by means of running a macro in MS Word 2007.
I can only change the name of the excelsheet, but not the fileformat.
When is use Xlbook.saveas(naam) it works

When I use xlbook.saveas(filename = naam) the sheet is saved with then name "FALSE.xls"

When i use xlbook.saveas(filename := naam) I get "error Expect: ="

When I use xlbook.saveas(naam,56) I get "error Expect: ="

So it looks like I can only save the sheet with another name, but not with another fileformat


The code I am using is as follows:

Sub OpslaanAls()
Dim xlApp As Excel.Application, xlBook As Excel.Workbook

Set xlApp = Excel.Application

Set xlBook = xlApp.Workbooks.Open _
("\\hpa0006s\scherpbierje$\Homedir\Excel\Ulco klos\werknemers-2012-04-10(1).xls")
xlApp.Visible = True
formaat = xlBook.FileFormat
If formaat = 39 Then
naam = "\\hpa0006s\scherpbierje$\Homedir\Excel\Ulco klos\werknemersbestand.xls"
xlBook.SaveAs (naam)
'xlBook.SaveAs (FileName = naam)
'xlbook.SaveAs (naam,56)
'xlBook.SaveAs (filename = naam,fileformat = 56)
End If
xlBook.Close
'xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

 

[GS]

A simple look at 'SaveAs' in the VBA online help would quickly answer
this for you!

xlBook.SaveAs filename:=naam, fileformat:=<xlFileFormat>

...where <xlFileFormat> is one of the listed filetype formats
available in the version of Excel you are automating.

*Note*
There's no spaces in the syntax for the argument value pairs!

parameter1:=parameter1value, parameter2:=parameter2value

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion