Skip to main content

AccessTr.neT


Access-excel aktarım

atkinsonmuldo
atkinsonmuldo
3
3039

Access-excel aktarım

Çözüldü #1
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.


.rar deneme.rar (Dosya Boyutu: 32,03 KB | İndirme Sayısı: 30)
Cevapla
Çözüldü #2

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task