Skip to main content

AccessTr.neT


excele aktar

excele aktar

Çözüldü #13
Microsoft'un ilgili makalesini okuyun:

http://office.microsoft.com/tr-tr/excel/...41055.aspx
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #14
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
Cevapla
Çözüldü #15
Klasor = CurrentProject.Path & "\SONUÇLAR.xls"

Klasor = CurrentProject.Path & "\SONUÇLAR.xlsx" olarak değiştirin
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #16
Kod:
Klasor = CurrentProject.Path & "\SONUÇLAR.xls"
olan bölümü

Kod:
Klasor = CurrentProject.Path & "\SONUÇLAR.xlsx"
olarak değiştirip dener misiniz?

Yani xls olan uzantıyı xlsx olarak değiştirip deneyin...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #17
olmuyor. xlsx uzantılı olarak kaydediyor fakat açmıyor. xls olarak uzantısını değişince açıyor.
Cevapla
Çözüldü #18
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.
Adres Tektir.
Doğru Yer Accesstr.net 'dir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task