directory

Status
Niet open voor verdere reacties.
K

KaatjeVlietstra

Nieuwe gebruiker
Lid geworden
14 jan 2019
Berichten
3
Hallo,
Ik zoek VBA code om een document op te slaan met een gedefineerde naam (tot zover gelukt) maar de directory mag nog bepaald worden door de gebruiker.
Of wel het venster Opslaan als moet geopend worden en de bestandsnaam moet al ingevuld zijn.
Kan iemand mij helpen?
 
En voor welk product?
 
Voorbeeldje:
Code: 
Sub Opslaan()
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Kies bestand"
        .AllowMultiSelect = False
        .ButtonName = "&Opslaan als"
        .InitialFileName = "C:\Diversen\a.xlsx"
        .Title = "Opslaan als"
        If .Show <> -1 Then
            Exit Sub
        End If
        MsgBox .SelectedItems(1)
    End With
End Sub
 
Of:

Code: 
Sub M_snb()
    With Application.FileDialog(2)
        .InitialFileName = "a345.xlsb"
        .FilterIndex = 3
        If .Show Then ActiveWorkbook.SaveAs .SelectedItems(1), 50
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan