Excel VBA Application.Getopenfilename alapértelmezett mappa
2021-02-15T08:22:20+01:00
2021-02-15T10:50:45+01:00
2022-08-12T00:55:31+02:00
amatore
Sziasztok,

Valaki esetleg meg tudja mondani, hogy a makróban hogyan tudok beállítani egy alapértelmezett mappát, amit az Application.GetOpenFileName automatikusan felkínáljon fájl kiválasztásához? Mert a ChDir (ActiveWorkbook.Path) sajnos nem működik.
Előre is köszönök minden segítséget.

A makróm:


Sub Fileselection()
 
    Application.ScreenUpdating = False
    
    ChDir (ActiveWorkbook.Path)
    Dim sfile As String
        sfile = Application.GetOpenFilename("Excel files, *.xlsx")
    If sfile = False Then
        Exit Sub
    End If
    Workbooks.Open Filename:=sfile
    
    Application.ScreenUpdating = True
 
End Sub
Mutasd a teljes hozzászólást!
Szia amatore!

Ez lehet egy megoldás:

Sub OpenFileFromDefaultPath() Dim fileDialogBox As Office.FileDialog Dim fileName As String Set fileDialogBox = Application.FileDialog(msoFileDialogFilePicker) With fileDialogBox .InitialFileName = "C:\valami" If .Show = True Then ' e nélkül is működik fileName = .SelectedItems(1) End If End With End Sub
Látod, ugye!?
Az .InitialFileName értékeként megadhatod az alaértelmezett mappa útvonalát.

üdvözlettel
verax
Mutasd a teljes hozzászólást!

abcd