Aşağıdaki biçimde kendime uyarladım.
Yalnız burada kafama takılan bir başka husus şu oldu.
Bizim örneğimizde Excel dosyası bir sayfa.
Sayfa sayısı birden fazla olan dosyalarda örneğin Sayfa2 den veri alacak olursak
aşağıdaki kodları nasıl revize edebiliriz. ?
Private Sub Command0_Click()
Dim DosyaKonumu As String
DoCmd.RunSQL "DELETE Table1.* FROM Table1;"
DosyaKonumu = CurrentProject.Path & "\ToTxt.xlsx"
DoCmd.TransferSpreadsheet acImport, 8, "Table1", DosyaKonumu, True, "A:C"
End Sub