Örnek ektedir.
Kod:
Private Sub btn_Transfer_Click()
On Error GoTo Hata
If IsNull(Me.txtPath) Or IsNull(Me.Tablo_Listesi) Then Exit Sub
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Me.Tablo_Listesi.Column(1), Me.txtPath, True
MsgBox "Transfer yapıldı"
Exit Sub
Hata:
MsgBox Err.Description, vbCritical, "mkmkmkm"
Exit Sub
End Sub