+- 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ığı: excele aktar (/konu-excele-aktar.html)
Cvp: excele aktar - tdsharun - 16/04/2009
Microsoft'un ilgili makalesini okuyun:
http://office.microsoft.com/tr-tr/excel/HP100141041055.aspx
Cvp: excele aktar - kadirdursun - 16/04/2009
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
Cvp: excele aktar - nihatkr - 16/04/2009
Klasor = CurrentProject.Path & "\SONUÇLAR.xls"
Klasor = CurrentProject.Path & "\SONUÇLAR.xlsx" olarak değiştirin
Cvp: excele aktar - tdsharun - 16/04/2009
Kod:
Klasor = CurrentProject.Path & "\SONUÇLAR.xls"Kod:
Klasor = CurrentProject.Path & "\SONUÇLAR.xlsx"Yani xls olan uzantıyı xlsx olarak değiştirip deneyin...
Cvp: excele aktar - kadirdursun - 16/04/2009
olmuyor. xlsx uzantılı olarak kaydediyor fakat açmıyor. xls olarak uzantısını değişince açıyor.
Cvp: excele aktar - yazaki - 16/04/2009
Merhaba ,
Ortamda başka bir ofis 2007 yüklü makina var ise onda açmayı denermisiniz.Belki sizin kullandığınız excel'de sorun vardır.
Benim konu hakkındaki yorumum sorunun kodda olmadığı sizin excel'iniz ile alakalı bir problem olduğu yönündedir.
İyi Çalışmalar.