vba save excel file door middel van celwaarde in map door middel van celwaarde

[michelleblanc]

Hallo,

Ik heb VBA code waarmee ik probeer mijn excel file te saven met een naam afkomstig uit cel g34 in sheet "Start". De excel dient gesaved te worden in een eerder aangemaakte folder met naam afkomstig uit cel F30 in sheet "Start".

De folder met naam (F30) bestaat... Ik krijg een foutmelding dat de folder niet bestaat...

Dank voor uw zeer geapprecieerde hulp!

Michel Leblanc.

[Sub SaveAsExample()

Dim FName As String
Dim FPath As String

FPath = "S:\Groups\VPK Display Verkoop\99 Testomgeving\structuur\02 Aanvraag Modellen\worksheet.value (F30)"
FName = Worksheet.Value(G34).Text
ThisWorkbook.SaveAs : FPath \ FName & ".xlsx"

End Sub]

 

[Cobbe]

Probeer deze eens:

Sub SaveAsExample()
Dim FName As String
Dim FPath As String

FPath = "S:\Groups\VPK Display Verkoop\99 Testomgeving\structuur\02 Aanvraag Modellen\" & ActiveSheet.Range("F30")
FName = Range("G34").Value
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName & ".xlsm", fileformat:=52 

End Sub

 

[michelleblanc]

Dag Cobbe,

Ik krijg volgende foutmelding:
Fout 1004 tijdens uitvoering:
Het is niet gelukt om het bestand te openen. Ga op een van volgende manieren tewerk:
* controleer of de opgegeven map bestaat. (JA)
* Controleer of de map die het bestand bevat niet alleen-lezen is (NEEN)
*controleer op tekens zoals <>? en dergelijke... (NEEN)

Zie jij wat fout zit?

Dank voor reply.

Michel

 

[Cobbe]

Uw FPath is niet correct en dat zal je toch echt wel zelf moeten oplossen.
Ik heb het zo getest en werkt correct.

Sub SaveAsExample()
Dim FName As String
Dim FPath As String
FPath = "C:\Testmap\" & ActiveSheet.Range("F30")
FName = Range("G34").Value
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName & ".xlsm", FileFormat:=52
End Sub

 

[michelleblanc]

Dag Cobbe,

Met wat gepuzzel werkt het bij mij ook!!

Dank u voor de hulp!!:thumb:

Michel

 

[rocknroadie]

Uw FPath is niet correct en dat zal je toch echt wel zelf moeten oplossen.
Ik heb het zo getest en werkt correct.

Sub SaveAsExample()
Dim FName As String
Dim FPath As String
FPath = "C:\Testmap\" & ActiveSheet.Range("F30")
FName = Range("G34").Value
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName & ".xlsm", FileFormat:=52
End Sub

ik heb krak dezelfde vraag, alleen .....

wanneer ik op mijn knop "bewaren" klik krijg ik eerst de melding dat het bestand gaat opgestaan worden zonder macro's.... het is wel de bedoeling dat de macro's mee opgeslagen worden.

als ik op ok klik krijg ik een runtime error op de lijn

ThisWorkbook.SaveAs Filename:=FPath & "" & FName & ".xlsm", FileFormat:=52

met de melding dat ik niet over de juiste machtigingen beschik om dit bestand op te slaan.... de bladen zijn beveiligd.....

hoe kan ik dit oplossen zodat gebruikers toch kunnen "opslaan als" en mijn werkboek toch beveiligd is en blijft?


belangrijk om weten is dat ik op n mac werk ......

 

[michelleblanc]

Dag Rocknroadie,

Heb even gegoogled op dit probleem:

Code is :ThisWorkbook.SaveAs Filename:=FPath & "" & FName & ".xlsm", FileFormat:=52

Getal 52 is een aanduiding van type file MET macro's. (excel 2007 - 2016)

Als je op MAC werkt wordt dit code 53.

Probeer eens?

Michel

 

[rocknroadie]

Dag Rocknroadie,

Heb even gegoogled op dit probleem:

Code is :ThisWorkbook.SaveAs Filename:=FPath & "" & FName & ".xlsm", FileFormat:=52

Getal 52 is een aanduiding van type file MET macro's. (excel 2007 - 2016)

Als je op MAC werkt wordt dit code 53.

Probeer eens?

Michel

Michel,

SUPER! maar het moet ook gebruikt kunnen worden door windows gebruikers. dan moet het dus code 52 zijn.... wordt moeilijk om dit op te vangen denk ik....

 

[VenA]

Gebruik ipv fileformat 52 of 53 fileformat xlOpenXMLWorkbookMacroEnabled. Waarschijnlijk gaat dit op beide besturingssystemen goed.

 

[michelleblanc]

Hallo,

Mag ik alle hulpvaardigen hartelijk danken voor de diensten?
Voor mij is dit VBA probleem opgelost.

Michel