Kod:
Dim YOL As String
YOL = CurrentProject.Path & "\Müşteri Listesi.xls"
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"
Dim YOL As String
YOL = CurrentProject.Path & "\Müşteri Listesi.xls"
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"
Alıntı:tablomu aşağıda ki komut ile excele yolluyorum. Ancak eski dosya yerinde durduğu müddet boyunca sonraki yollamalarım da yeni hali gelmiyor.
If Dir(YOL) <> "" Then
Kill YOL
End If
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"
If Dir(YOL) <> "" Then
Kill YOL
End If
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"