vba /macro opslaan en sluiten

Status
Niet open voor verdere reacties.
L

lsc.b

Gebruiker
Lid geworden
4 nov 2000
Berichten
245
Code: 
Private Sub CommandButton1_Click()
Dim path As String
Dim filename1 As String

path = "bestandsnaam"
filename1 = Range("a1").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path & filename1 & ".xlsm", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Quit


End Sub

in deze code zit een probleem het slaat niet op met macro`s, het zit in deze regel daar slaat hij vast
ActiveWorkbook.SaveAs Filename:=path & filename1 & ".xlsm", FileFormat:=xlOpenXMLWorkbook
wat doe ik verkeerd
 
probeer eens:

Code: 
FileFormat:=52

of voluit geschreven:

Code: 
FileFormat:=xlOpenXMLWorkbookMacroEnabled
 
Laatst bewerkt:
ik krijg de volgende fout melding 1004 tijdens uitvoering
op beide codes
 
Laatst bewerkt door een moderator:
zo:

Code: 
Private Sub CommandButton1_Click()
Dim path As String
Dim filename1 As String

path = "bestandsnaam"
filename1 = Range("a1").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path & filename1, FileFormat:=52
Application.DisplayAlerts = True
ActiveWorkbook.Quit
End Sub
 
vreemd, plaats eens een bestand als je wilt.

mogelijke oorzaken die ik zo kan bedenken:

- Bestaat de map welke je bij Path opgeeft wel?
- Is cel A1 wel gevuld?
- tekens in bestandsnaam welke niet zijn toegestaan?
 
Laatst bewerkt:
Bekijk bijlage zaagwerknaam.xlsm

Voor zover is het gelukt.
Ik was opnieuw begonnen en met jouw code werkt het wel.
Alleen bij het opslaan wordt de naam zaagwerknaam is dit normaal

path = "\\SERVER\lee\zaagwerk"
de naam \\server \lee is verzonnen
 
Laatst bewerkt door een moderator:
Code: 
path = "\\SERVER\lee\zaagwerk[COLOR="#FF0000"]\[/COLOR]"
 
oke was ik vergeten maar ik dacht zaagwerk een map zou worden maar dat is niet het geval
path = "\\SERVER\lee\zaagwerk"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan