Application.DefaultFilePath

[goose323]

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?

 

[OctaFish]

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.

 

[goose323]

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

    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

 

[OctaFish]

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:

    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.

 

[snb]

Voor bijv. directory G:\OF\

With Application.FileDialog(3)
   .Initialfilename = "G:\OF\*.xls"
   If .Show = True Then Workbooks.Open .SelectedItems(1)
End With

 

[goose323]

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

 

[snb]

#5 over het hoofd gezien ?

 

[edmoor]

Of pas het hier eens aan: