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
Son Düzenleme: 06/05/2017, 01:47, Düzenleyen: Güven Ongun.