Opgelost 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:

 

[OctaFish]

Vergeet de tip van ed, want zoiets héb je al ingesteld, en dat wil je dus niet. De code van snb (waarvan ik hoopte dat je die zelf zou ontdekken, maar daar doet dit subforum niet aan ) doet verder precies wat jij wilt, áls je altijd in dezelfde map wilt starten. En met een (behoorlijk verouderd) xls bestand bovendien. De voorbeeldcode van snb moet je uiteraard wél aanpassen aan jouw eigen situatie, want die zal bij jou geheid niet werken. Bovendien werkt snb met een constructie met één niveau diep. Dat is natuurlijk heel simpel uit te breiden met de andere gewenste mappen.

Wil je dynamischer werken, dan zou ik ervoor kiezen om m.b.v. de aangereikte code (of je die van mij gebruikt, of die van snb maakt dan geen drol uit) bij eerste gebruik een map te kiezen, en die vervolgens in een publieke variabele te zetten. De tweede keer dat je een bestand opent, gebruik je dan die publieke variabele als uitgangspunt bij het openen.
En als je vervolgens een (serie) andere bestand(en) uit een andere map wilt openen, dan controleer je ook nog eens of de map is veranderd, en dan zet je de nieuwe map in de publieke variabele. Dan kun je heel flexibel werken, met elke keer andere mappen als uitgangspunt.

 

[AHulpje]

Je kunt in je hoofdbestand ergens in een cel je padspecificatie zetten en die gebruiken in je filedialog.
Bijvoorbeeld op Blad1 in cel A1:

Sub OpenDatabestand()
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Add "Excel", "*.xlsx; *.xlsm", 1
        .InitialFileName = Sheets("Blad1").Range("A1")
        .AllowMultiSelect = False
        If .Show Then Workbooks.Open Filename:=.SelectedItems(1)
    End With
End Sub

 

[snb]

@OctaFish

Bij initialfilename werkt ".xls" hetzelfde als .xls*"
Ergo: Excelbestanden xlsx, xlsm, xlsb

 

[goose323]

De code van SNB werkt inderdaad naar behoren. Ik mis alleen 1 item.
De opmerking (Title:="Selecteer het NL DATA bestand om te openen", FileFilter:="Excel xlsx *.xlsx (*.xlsx),") en dan vooral de titel die ik krijg in de popup. De filter werkt alleen niet, ik krijg alle bestanden te zien ipv alleen de excel bestanden
Waar moet ik die nu plaatsen dan?

 

[AHulpje]

Sub OpenDatabestand()
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "Selecteer het NL DATA bestand om te openen"
        .Filters.Add "Excel", "*.xlsx; *.xlsm", 1
        .InitialFileName = Sheets("Blad1").Range("A1")
        .AllowMultiSelect = False
        If .Show Then Workbooks.Open Filename:=.SelectedItems(1)
    End With
End Sub

 

[OctaFish]

De filter werkt alleen niet, ik krijg alle bestanden te zien ipv alleen de excel bestanden. Waar moet ik die nu plaatsen dan?

Zie mijn voorbeeld code.

 

[goose323]

dank jullie wel, ik heb de juiste manier nu. Ik heb de code van AHulpje nu gebruikt, omdat mijn map niet een vaste map is maar een dynamische en afhankelijk is van een datum.
Door nu een cel te gebruiken als padspecificatie kan ik de verwijzing dus dynamisch maken
De ander code van jullie waren ook te gebruiken. Ik was alleen denk ik niet duidelijk genoeg in mijn vraagstelling.
Ik zal de vraag op opgelost zetten

 

[OctaFish]

Ik snap zelden waarom er een cel moet worden opgeofferd aan een flexibele datum. Als er een datumformule in A1 staat, kun je die net zo goed in je code gebruiken.

    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Add "Excel", "*.xlsx; *.xlsm", 1
        .InitialFileName = Jouwpad & "\" & Format(Date,"yyymmdd") & "\" 
        .AllowMultiSelect = False
        If .Show Then Workbooks.Open Filename:=.SelectedItems(1)
    End With