VBA - Opslaan als
- Onderwerp starter Buff85
- Startdatum
- Status
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 41.531
- Besturingssysteem
- Windows 98SE, XP, 7, 10, 11-24H2
- Office versie
- Office 2021
Dan moet je ook aangeven dat de bestandindeling die van een .xls moet zijn, zoals ik al eerder aangaf:
Zie ook:
https://learn.microsoft.com/en-us/office/vba/api/excel.xlfileformat
N.B.:
De macro verdwijnt daarmee niet.
Code:
ActiveWorkbook.SaveAs fpathname, 56Zie ook:
https://learn.microsoft.com/en-us/office/vba/api/excel.xlfileformat
N.B.:
De macro verdwijnt daarmee niet.
Laatst bewerkt:
Ik ga de code nog eens testen. Moet dan het tekstdeel & ".xls" er ook in blijven, of is dat dan overbodig?
Code:
Sub OpslaanBestandsnaam()
With Worksheets("Calc overz")
If .Range("D8") <> "" And .Range("J8") <> "" Then
Dim Path1 As String
Dim Path2 As String
Dim Path3 As String
Dim Filename As String
Dim fpathname As String
Path1 = "\\APPMOHVIE01\Projecten\"
Path2 = Range("D8")
Path3 = "\02 Calculatie\"
Filename = "Calculatie" & " " & .Range("D8") & " " & "Rev." & .Range("J8") & ".xls"
fpathname = Path1 & "\" & Path2 & "\" & Path3 & "\" & Filename
ActiveWorkbook.SaveAs Filename:=fpathname, 56
Else
MsgBox "Project en revisienummer dienen ingevuld te zijn.", vbCritical, "Niet alle gegevens zijn ingevuld!"
End If
End With
End SubIk krijg inderdaad een foutmelding, SaveAs mislukt. Ik heb 2 codes geprobeerd:
en
Waar zit nu de denkfout? Moet ik eerst als sjabloon opslaan dan?
Code:
Filename = "Calculatie" & " " & .Range("D8") & " " & "Rev." & .Range("J8") & ".xls"
fpathname = Path1 & "\" & Path2 & "\" & Path3 & "\" & Filename
ActiveWorkbook.SaveAs Filename:=fpathname, 56en
Code:
Filename = "Calculatie" & " " & .Range("D8") & " " & "Rev." & .Range("J8") & ".xls", 56
fpathname = Path1 & "\" & Path2 & "\" & Path3 & "\" & Filename
ActiveWorkbook.SaveAs Filename:=fpathnameWaar zit nu de denkfout? Moet ik eerst als sjabloon opslaan dan?
Dat is toch deze variant?
Of moet dat er nog een keer exta onder?
Code:
Filename = "Calculatie" & " " & .Range("D8") & " " & "Rev." & .Range("J8") & ".xls"
fpathname = Path1 & "\" & Path2 & "\" & Path3 & "\" & Filename
ActiveWorkbook.SaveAs Filename:=fpathname, 56Of moet dat er nog een keer exta onder?
- Status
