Application.DefaultFilePath

goose323

Gebruiker
Lid geworden
23 apr 2024
Berichten
24
Ik wil graag de standaard path willen aanpassen zodat als ik een open commando geef hij naar een map gaat die ik van te voren al heb bepaald, en niet mijn standaar "mijn documenten" map.
Weet iemand hoe ik dat kan aapassen dmv een VBA code?
 
Geef eens de code die je nu gebruikt, want dit is een onhandige vraag. De DefaultFilePath is een map die je gebruikt juist als je documenten uit de standaardmap wilt ophalen. In elk ander geval kun je gewoon Path gebruiken in het FileOpen menu. Heb je dus niets met het Default path te maken.
 
Dit is nu het stukje wat in mijn programma staat, en die gaat dus standaard naar mijn documentenmap. Dat is een path die ik dus wil aanpassen

Code:
    Workbooks.Open Filename:=Application.GetOpenFilename(Title:="Selecteer het DATA bestand om te openen", FileFilter:="Excel xlsx *.xlsx (*.xlsx),")
        Cells.Select
            Selection.copy
            ActiveWindow.Close
    Windows(wbStart).Activate
        Sheets("data").Select
        Range("A1").Select
            ActiveSheet.Paste
                Application.WindowState = xlNormal
 
Maar wat wil je precies? Als je wilt kunnen bladeren naar een specifieke map om van daaruit een bestand te openen kun je beter een FileDialog gebruiken:
Code:
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Add "Excel", "*.xlsx; *.xlsm", 1
        .AllowMultiSelect = False
        If .Show = True Then Workbooks.Open Filename:=.SelectedItems(1)
    End With
Die je dan uiteraard nog kan finetunen.
 
Voor bijv. directory G:\OF\
Code:
With Application.FileDialog(3)
   .Initialfilename = "G:\OF\*.xls"
   If .Show = True Then Workbooks.Open .SelectedItems(1)
End With
 
Dat is wat ik dus juist niet wil, bladeren kan ik nu al met de huidige code, ik wil dat hij naar een specifieke map gaat waar het bestand staat die ik wil openen. De map staat best wel diep weggestopt, dus bladeren naar de juiste map kost gewoon teveel klikken
 
Of pas het hier eens aan:
1751890807224.png
 
Terug
Bovenaan Onderaan