İmport adresi elde etme

[ysn6741]

Merhaba Arkadaşlar,
Access projesi üzerinde çalışıyorum.Excel dosyalarını import edebilmek için, Ekteki gibi dosya seçme menüsüne ihtiyacım var.Butona tıkladığımda o menü ekrana gelmeli ve ordan kullanıcı excell dosyası seçebilmeli.
Yardımcı olursanız çok memnun olurum.
Teşekkürler.

 

[modalı]

Sayın ysn6741,

Aşağıdaki kodları kullanınız.

Sub getFileName()
    ' Displays the Office File Open dialog to choose a file name
    
    
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Excel Dosyası Seç"
        .Filters.Add "Bütün dosya türleri", "*.*"
        .Filters.Add "Excel 2007 - 2010", "*.xlsx"
        .Filters.Add "Excel", "*.xls"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path 
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            'Buraya import cümlesi gelecek. Dosya adı yerine fileName i kullanınız
        End If
    End With
End Sub

İyi çalışmalar

 

[ysn6741]

Çok teşekkür ederim.
Denedim çalıştı ama küçük bir hata veriyor.Hata vermesine karşın import işini eksiksiz yapıyor.Acaba import kodumda mı hata olabilir ?

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, "printer", _
fileName
MsgBox "Import was performed."

 

[modalı]

Ne çeşit hata üretiyor