Dış Veri Alı Butona Atamak.

Yanıtsız soru kalmasın.

Private Sub Komut3_Click()
Dim DosyaKonumu As String
DosyaKonumu = CurrentProject.Path & "\ToTxt.xlsx"
DoCmd.RunSQL "DELETE Tablo1.* FROM Tablo1;"
DoCmd.TransferSpreadsheet transfertype:=acImport, _
tablename:="Tablo1", _
FileName:=DosyaKonumu, Hasfieldnames:=True, _
Range:="Sayfa2!A:C", SpreadsheetType:=8
End Sub