Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/01/2009 14:44
Konu Sahibi
86126
Yorumlar
19
Okunma
8449
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

86126


 Belirtilmemiş
 20
 6
 29/10/2008
0
 Aydın
 
 Ofis 2010
 14/09/2015,23:41
Çözüldü 
arkadaşlar elimde aşağıdaki şekilde kod var
Private Sub Komut79_Click()
On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\SONUÇLAR.xlsx"
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

koda göre excele verileri aktara biliyorum. ancak benim isteğim tek sayfaya verileri göndermek. Excel de sayfa 1 de a1 den başlayarak boş bulduğu satır ve sütuna verileri aktarmak yardımlarınızı bekliyorum.
veya sayfa 1 de belirtiğim aralıklara ilgili sorguları aktarabilirmiyiz.


4158526, proud to be a member of AccessTr.neT since Oct 2008.

Kullanici Avatari

86126


 Belirtilmemiş
 20
 6
 29/10/2008
0
 Aydın
 
 Ofis 2010
 14/09/2015,23:41
Çözüldü 
yokmu anlayan arkadaşlar


4158526, proud to be a member of AccessTr.neT since Oct 2008.

Kullanici Avatari

Seruz


SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 10/10/2018,17:31
Çözüldü 
Access isteğinizi otomatik olarak yapmaz,
ancak access'te kod yazarak yapabilirsiniz.

Ekte buna benzer bir Bilanço örneği var inceleyebilirsiniz.

Veya Excel'deki Dış veri al ile bir sayfada Access teki verileri istediğiniz yerden başlatarak alabilirsiniz.


Ek Dosyalar
.rar   Bilanco_Excel.rar(Dosya Boyutu: 36,49 KB / İndirme Sayısı: 267)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

kadirdursun


KA.... DU....
 38
 1.291
 104
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
Çözüldü 
Arkadaşlar yukarıdaki kodları örneğime yapıştırdım. İstediğim gibi tüm sorguları tek kodla dışarı aktardı fakat xlsx uzantılı aktardı buda benim istediğim format. Ama ortada gariplik var xlsx dosyasını açmadı. Uzantıyı xls olarak değiştirince açıyor. Acaba xlsx uzantılı olarak açması için ne gibi bir değişiklik yapmalıyım?

[uyari] mesaj düzenlenmiştir. lütfen tümü büyük harflerle mesaj yazmayınız[/uyari]



Kullanici Avatari

yazaki


 45
 60
 8
 24/11/2008
0
 İstanbul
 
 Ofis 2007
 21/07/2010,23:56
Çözüldü 
Merhaba ,
Kod tarafında yapman gerekeni bilemiyorum.Ama Giderek yaygınlaşan Office 2007 programı dosyaları default olarak xlsx,docx v.b. şeklinde kaydeder Eğer gelen dosyaları açmak istiyorsan Bunu aşağıda verdiğim linkteki convert çalıştırıp çok rahat bir şekilde açabilirsin.Her seferinde uzantıyı xls'e çevirmen gerekmez.
http://www.microsoft.com/downloads/detai...bb74cd1466

Ayrıca Office 2007 de sağ üsteki windows logo 'una tıklayıp.Excel seçeneklerine gelirsen buradaki save yada kaydet kısmında Excel dosyalarını nasıl kaydedeceğini sorar default'u xlsx dir bunu Excel 97-2003 seçersen bunan sonraki kaydettiğin her dosyayı offiice 2003 ve alt sürümlerin açabileceği bir şekilde kaydedebilirsin.
İsterseniz bunu bir deneyin.


Adres Tektir.
Doğru Yer Accesstr.net 'dir.

Kullanici Avatari

kadirdursun


KA.... DU....
 38
 1.291
 104
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
Çözüldü 
Satır ve sutun sayısı fazla olduğundan benim işimi gören office 2007. Ben 2007 de açmak istiyorum. Bunun için ne yapmalıyım.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Accessten Excele Veri Aktarımında Sorguda Nz Problemi mehmetb84 7 213 06/08/2018, 15:28
Son Yorum: mehmetb84
Çözüldü Raporları Excele Aktarma mmert06 12 538 10/07/2018, 19:44
Son Yorum: mmert06
Çözüldü Accessten Excele Veri Aktarırken Saat Hatası Ve Evet/hayır Biçimlendirme Rıfat KARA 2 306 23/01/2018, 00:11
Son Yorum: Rıfat KARA
Çözüldü Excele Aktarırken Yeni Türk Lirası Simgesinin Soru Işareti Olarak Gözükmesi mmert06 8 436 31/12/2017, 12:53
Son Yorum: mmert06
Çözüldü Liste Kutusunundan Excele Aktarma Sorunu mmert06 11 451 26/12/2017, 00:18
Son Yorum: direnist

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.