dosya secmek opendialog gibi

[egebes]

arkadaşlar ben bir hücre içerisine path i ile birlikte bir dosya ismi yazmak istiyorum. C:\dosyalar\butce\gunluk.xls gibi ama bunu elle yazmak değilde opendialog türü bir şeyle klasorleri açıp dosyayı seçerek yapmak istiyorum.Dosyanın açılmasını istemiyorum sadece seçtiğim dosyanın adres+ismini bir hücreye yazmak istiyorum.Nasıl yapabilirim

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

.AllowMultiSelect = False

değerini True yaparsanız 1 den fazla dosya seçebilirsiniz.

Tek bir hücre kullanacaksanız Mavi Yazılan Satırları kendinize göre ayarlayabilirsiniz, örneğin

Range("A5") = vrtSelectedItem

yazabilirsiniz.

Sub DosyaAdiniYaz()
    Dim i As Integer
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        .Filters.Clear
        [B][COLOR=red].AllowMultiSelect = False[/COLOR][/B]
        .Filters.Add "All files", "*.*"
        .Filters.Add "Images", "*.xls; *.xls; *.xlsx", 1
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
[B][COLOR=blue]               i = i + 1[/COLOR][/B]
[B][COLOR=blue]               Cells(i, "A") = vrtSelectedItem[/COLOR][/B]
            Next vrtSelectedItem
        Else
            MsgBox "Hiç Bir Dosya Seçilmedi"
        End If
    End With
    Set fd = Nothing
End Sub

 

[egebes]

çok teşekkürler elinize sağlık

 

[Orion1]

Alternatif.

Sub file()
dosya = Application.GetOpenFilename(filefilter:="Excel Dosyaları,*.xls,,*.xlsx", _
Title:="evrengizlen@hotmail.com")
If dosya = False Then Exit Sub
MsgBox "Seçtiğiniz dosya : " & vbLf & dosya
End Sub