VBA - Opslaan als

[Buff85]

Dat moet om in te kunnen lezen in het externe programma. De macro is ook niet meer nodig nadat er opgeslagen is vanuit het sjabloon.

 

[edmoor]

Dan moet je ook aangeven dat de bestandindeling die van een .xls moet zijn, zoals ik al eerder aangaf:

ActiveWorkbook.SaveAs fpathname, 56

Zie ook:
https://learn.microsoft.com/en-us/office/vba/api/excel.xlfileformat

N.B.:
De macro verdwijnt daarmee niet.

 

[Buff85]

Ik ga de code nog eens testen. Moet dan het tekstdeel & ".xls" er ook in blijven, of is dat dan overbodig?

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 Sub

 

[edmoor]

Die .xls moet blijven.
En je hebt het er niet in staan zoals ik liet zien.
Wat je nu hebt zal een foutmelding geven.

 

[Buff85]

Ik krijg inderdaad een foutmelding, SaveAs mislukt. Ik heb 2 codes geprobeerd:

Filename = "Calculatie" & " " & .Range("D8") & " " & "Rev." & .Range("J8") & ".xls"
fpathname = Path1 & "\" & Path2 & "\" & Path3 & "\" & Filename
            ActiveWorkbook.SaveAs Filename:=fpathname, 56

en

Filename = "Calculatie" & " " & .Range("D8") & " " & "Rev." & .Range("J8") & ".xls", 56
fpathname = Path1 & "\" & Path2 & "\" & Path3 & "\" & Filename
            ActiveWorkbook.SaveAs Filename:=fpathname

Waar zit nu de denkfout? Moet ik eerst als sjabloon opslaan dan?

 

[edmoor]

Waarom doe je het niet zoals ik in #22 liet zien?

 

[Buff85]

Dat is toch deze variant?

Filename = "Calculatie" & " " & .Range("D8") & " " & "Rev." & .Range("J8") & ".xls"
fpathname = Path1 & "\" & Path2 & "\" & Path3 & "\" & Filename
            ActiveWorkbook.SaveAs Filename:=fpathname, 56

Of moet dat er nog een keer exta onder?

 

[edmoor]

In wat ik plaatste staat het rode gedeelte toch niet?

ActiveWorkbook.SaveAs [COLOR="#FF0000"]Filename:=[/COLOR]fpathname, 56

 

[Buff85]

Daar heb ik helemaal overheen gelezen! Het werkt weer naar behoren.
Bedankt weer!