+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Accessden Excele Veri Aktarma-Silme (/konu-accessden-excele-veri-aktarma-silme.html)
Accessden Excele Veri Aktarma-Silme - Rikay06 - 10/02/2009
Private Sub Komut32_Click()
On Error GoTo Err_aktar
Dim Klasor As String
Klasor = CurrentProject.Path & "\SONUÇLAR HAFTALIK.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "SONUÇLAR HAFTALIK.xls 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "SONUCLAR_HAFTALIK", Klasor, True, "ISTATISTIK"
MsgBox "Aktarma işlemi tamamlandı. Sonuçlar Excel sayfasını açıp sonuçları görebilirsiniz .Saygılar", 0, "VERİ AKTARIMI"
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
End If
End Sub
Ben bu şekilde verileri aktarıyorum.
Ancak “SONUÇLAR HAFTALIK.xls” dosyası içerisindeki “ISTATISTIK” sayfasındaki tüm ESKİ verileri silmek istiyorum. exceldeki "ISTATISTIK" adlı sayfadan da exceldeki mevcut matbuu tablolara aktarma işlemi yapıyorum.
lütfen bana yardım edin.
Cvp: Accessden Excele Veri Aktarma-Silme - Puletin - 11/02/2009
NihatKr Hocamın örneğini inceleyiniz
https://accesstr.net/access-excel-baglantisi-t-1843.html#pid10271