Code voor fileformat

[HierEnNu]

Forumleden,

Ik heb de volgende code om bestanden weg te schrijven:

 With myWb
        .SaveAs Filename:="H:\Finbel\Begroting\Begr2010\Productenraming\Test\LIAS" & r.Text, FileFormat:=xlExcel9795
        .Close
    End With

De bedoeling is dat bestanden als Excel-files worden wegsgeschreven. Dit wil echter maar niet lukken. Ik heb al vanalles geprobeerd voor het FileFormat, maar er blijven bestanden uitrollen die wel geopend kunnen worden met excel, maar niet de extensie "xls" mee krijgen.
Kan iemand mij aangeven hoe ik dit oplos?

Groeten,

M.

 

[Hoornvan]

HierEnNu,

Kijk hier eens.
Nog een link.

 

[Joske2000]

Je moet de .xls wel toevoegen in je bestandsnaam :

dus bv "H:\Finbel\Begroting\Begr2010\Productenraming\Test\LIAS.xls". file format: = xlExcel9795

Joske

 

[HierEnNu]

Ik heb het opgelost.
Ik heb het veld waar de r.value wordt opgehaald aangepast.
Daar stond eerst b.v. 01.01 en daar heb ik 01.01.xls van gemaakt. dan werkt het wel.

Een ieder bedankt voor het meedenken.

Groeten,

M.

 

[Warme bakkertje]

With myWb
.SaveAs Filename:="H:\Finbel\Begroting\Begr2010\Productenraming\Test\LIAS" & r.Text & ".xls", FileFormat:=xlExcel9795
.Close
End With

 

[Wigi]

Voor een volledig overzicht van bestandsformaten, kijk eens op mijn site, bij Excel > VBA-code > Bestandsformaten.

Wigi