AccessTr.neT

Tam Versiyon: Access-excel aktarım
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.



'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
Teşekkür ederim sayın mzebek, buradaki
'" & fg & " 
ne anlama geldiğini anlayamadım? Excel dosyasındaki sayfayımı belirtiyor?

Çü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.
Hiç bir anlam ifade etmiyor.kodun üst tarafında değer tanımlamışımdır.oradada mesaj verdirmişim.dikkate almayınız.