Kod'a yol göstermek

[asi_kral]

Merhaba

 a = Application.GetOpenFilename(filefilter:="Excel Workbooks,*.xls", Title:="asi_kral_1967", MultiSelect:=False)

Bu kod ile dosya seçimi yapıyorum ama benim istediğim bu kod her çalıştığında aktif olarak

b="D:\aktif"

olmasını istiyorum mutlaka bu sayfa açık olarak gelmeli nasıl yapabilirim.

 

[Murat OSMA]

Ben genelde bu yöntemi kullanırım...

Açılışta görüntülenecek dosya yolu: .InitialFileName = "C:\Program Files"

Sub Dosya_Sec()
    Dim fd As FileDialog
    Dim objfl As Variant
    Dim filname As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
       With fd
            .ButtonName = "Evn"
            .AllowMultiSelect = False
            .Filters.Add "Ofis Dosyaları", "*.xls;*.xlsx;*.xlsm", 1
            .Title = "Ofis Dosyası Seçimi"
            .Show
            .InitialFileName = "C:\Program Files"
                For Each objfl In .SelectedItems
                    filname = objfl
                Next objfl
    On Error GoTo 0
        End With
    Cells(1, 1).Value = filname
    Set fd = Nothing
End Sub

 

[asi_kral]

Ben genelde bu yöntemi kullanırım...

Açılışta görüntülenecek dosya yolu: .InitialFileName = "C:\Program Files"

Sub Dosya_Sec()
    Dim fd As FileDialog
    Dim objfl As Variant
    Dim filname As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
       With fd
            .ButtonName = "Evn"
            .AllowMultiSelect = False
            .Filters.Add "Ofis Dosyaları", "*.xls;*.xlsx;*.xlsm", 1
            .Title = "Ofis Dosyası Seçimi"
            .Show
            .InitialFileName = "C:\Program Files"
                For Each objfl In .SelectedItems
                    filname = objfl
                Next objfl
    On Error GoTo 0
        End With
    Cells(1, 1).Value = filname
    Set fd = Nothing
End Sub

Sayın : Murat Osma
Kod için teşekkür ederim ama maalesef olmamış. Sebebi ise dosyayı yeniden açtığımda tekrardan eski ayarlarına dönüyor.

 

[Orion1]

En üste

ChDir ("C:\Evren")

 

[asi_kral]

En üste

ChDir ("C:\Evren")

Orion1 çok teşekkür ederim.
İşimi görüyor şu an itibariyle. Çok sağol.