+- 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ığı: Access-excel aktarım (/konu-access-excel-aktarim.html)
Access-excel aktarım - atkinsonmuldo - 04/05/2011
Herkese merhaba, bu forumda rapor hazırlama konu başlıklı yazım ile accessten rapor yardımı ile excele accessteki table yada query leri göndermeye çalıştığımdan bahsetmiştim. Yalnız istediğimi raporla değilde direk bir form ve buton yardımı ile yapabileceğimi öğrendim. Sizlerden kod konusunda yardım isteyeceğim.
Öncelikli amacım; ekte belirttiğim örnekteki querylerin 1 buton yardımı ile exceldeki sayfalara birebir yapışmasıdır. Yalnız burada 3 sayfadan oluşan 1 Excel dosyası oluşturmak istiyorum. Formdaki butona kod yazmaya başladım. İlk olarak Excel dosyası ve 3 sayfasını oluşturabiliyorum, ama queryleri tek tek sayfalara gönderemiyorum. Ayrıca aşağıdaki kod sadece bağımsız bir Excel sayfası yarattığından işime yarayamıyor.
DoCmd.OutputTo acQuery, "Querynin adı", "MicrosoftExcel(*.xls)", "ExcelDosyasi", False, "", 0
Bana özellikle Excel dosyasını yarattıktan sonra , accessteki queryleri sayfalara kopyalamakta yardımcı olabilir misin? Şimdiden teşekkür ederim.
Cvp: Access-excel aktarım - mzebek - 04/05/2011
'bu kodun son 10 satırını incele, Ayrıca sorgu çıktısı aynı olacağından Excel çıktısına 'oluşturulduğu tarih ve saati yazıyor ve önceki dosya da klasör içinde 'kalıyor.kolay gelsin
Dim Klasor As String
Dim sorgua As String
Dim ilk As String
Dim son As String
Dim dosyasorguadi
Dim dosyaadı
ilk = İlk_Tarih.Value
son = Son_tarih.Value
isim = sorgu.Column(2)
saati = Time
ssalise = Right(saati, 2)
ssaat = left(saati, 4)
sssaat = left(ssaat, 2)
ssssaat = Right(ssaat, 2)
xsaat = [sssaat] + [sssaat] + [ssalise]
'MsgBox "" & xsaat & ""
dosyasorguadi = isim
arası = "-"
tiresi = "-"
dosyaadım = [ilk] + [arası] + [son] + [tiresi] + [dosyasorguadi] + [tiresi] + [xsaat]
dosya = ".xls"
dosyaadı = [dosyaadım] + [dosya]
sorgua = sorguadi.Value
Klasor = "c:"
With DoCmd
.TransferSpreadsheet acExport, 8, "" & sorgua & "", Klasor & "\" & dosyaadı & "", True, ""
'" & fg & "
MsgBox "Sorgu çıktılarınız: C: Klasörü İçine oluşturuldu.", vbInformation, "Bilgi.."
End With
Cvp: Access-excel aktarım - atkinsonmuldo - 04/05/2011
Teşekkür ederim sayın mzebek, buradaki
'" & fg & " Çünkü eğer benim örneğimdeki forma yazdığım kodları incelediyseniz görmüşsünüzdür, ben ilk önce exceli ve bunun sayfalarını tanımlıyorum. Daha sonra ise queryleri tek tek bu sayfalara kopyalamak istiyorum.
Cvp: Access-excel aktarım - mzebek - 16/05/2011
Hiç bir anlam ifade etmiyor.kodun üst tarafında değer tanımlamışımdır.oradada mesaj verdirmişim.dikkate almayınız.