Private Sub Komut7_Click()
Dim Klasor As String
Dim Sonuc As String
With DoCmd
    .SetWarnings False
    .RunSQL "delete from TblUrunler "
    .SetWarnings True
End With
    With Application.FileDialog(msoFileDialogOpen)
   
        .Title = "Select a file"
        .Filters.Clear
        .Filters.Add "Excel files", "*.xlsx, *.xls"
        .AllowMultiSelect = False
        .Title = "Belge Seçiniz"
        .InitialFileName = CurrentProject.Path
       
        Sonuc = .Show
       
            If (Sonuc <> 0) Then
                Klasor = Trim(.SelectedItems.Item(1))
                 DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _
                tablename:="TblUrunler", FileName:=Klasor, _
                Hasfieldnames:=True
                Me.SiraNo.SetFocus
                Me.Requery
        End If
    End With

End Sub

(13/10/2016, 12:06)atoz112 yazdı: sayın ates2014,

EK'te yer alan örnek uygulamayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.

Sayın atoz112
eğer excelden veri alırken sütunlarda başlık olmadan  ilk sıradan itibaren veri almak istersek yukarıdaki kodları nasıl düzenlememiz gerekir.Teşekkürler