makaledekini bliyordum. bu excelden kayıt ederkenki mevzuyu anlatıyor.
benim istediğim ise aşağıdaki kodla excele aktarırken 2007 olarak aktarması
Private Sub Komut79_Click()
On Error GoTo Err_aktar
Dim Klasor As String
Klasor = CurrentProject.Path & "\SONUÇLAR.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "SONUÇLAR.xlsx 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "ARSAYGÖREKAZA TÜRLERİ SON", Klasor, True, "ARSAYGÖREKAZA TÜRLERİ SON"
DoCmd.TransferSpreadsheet acExport, 8, "SÜRÜCÜSAYISI", Klasor, True, "SÜRÜCÜSAYISI"
DoCmd.TransferSpreadsheet acExport, 8, "asli kusurlar son", Klasor, True, "asli kusurlar son"
DoCmd.TransferSpreadsheet acExport, 8, "HAVADURUMUSON", Klasor, True, "HAVADURUMUSON"
DoCmd.TransferSpreadsheet acExport, 8, "GÜNDURUMUSON", Klasor, True, "GÜNDURUMUSON"
DoCmd.TransferSpreadsheet acExport, 8, "YOLUNKAPLAMADURUMUSON", Klasor, True, "YOLUNKAPLAMADURUMUSON"
DoCmd.TransferSpreadsheet acExport, 8, "KAZAYAETKİEDENARAÇ AKSAMLARI SON", Klasor, True, "KAZAYAETKİEDENARAÇ AKSAMLARI SON"
DoCmd.TransferSpreadsheet acExport, 8, "ARAÇ CİNSLERİ SON", Klasor, True, "ARAÇ CİNSLERİ SON"
DoCmd.TransferSpreadsheet acExport, 8, "YOLUN YÜZEYİSON", Klasor, True, "YOLUN YÜZEYİSON"
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
Adı Soyadı:
Ka.... DU....
Yaşı:
44
Konum:
İstanbul
Ofis Versiyonu:
Ofis 2016 64 Bit
Son Oturumu:
07/05/2024,00:06
Yorumları:
1.297
Konuları:
106
Kayıt Tarihi:
12/01/2009
Teşekkür Puanı:
86
Mesleğiniz:
İnşaat Mühendisi
Cevapla