Skip to main content

AccessTr.neT


Accessden Excele Veri Aktarma-Silme

Accessden Excele Veri Aktarma-Silme

Çözüldü #1
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.
Son Düzenleme: 10/02/2009, 18:44, Düzenleyen: Rikay06.
Cevapla
Çözüldü #2
NihatKr Hocamın örneğini inceleyiniz

https://accesstr.net/access-excel-baglan...l#pid10271
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task