Access-excel aktarım
Tarih
04/05/2011 13:28
Konu Sahibi
atkinsonmuldo
Yorumlar
3
Okunma
1828
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



atkinsonmuldo
Üye
Kullanici Avatari
Üye
6
2
20/11/2010
0
Belirtilmemiş
Belirtilmemiş
28/07/2014,01:40
Çözüldü 
Sponsor Reklam
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.

Visual Basic Code
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.





Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 32,03 KB / İndirme Sayısı: 23)
Cevapla

mzebek
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
48
02/11/2008
Balıkesir
Ofis 2003
09/11/2013,12:16
Çözüldü 

'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

atkinsonmuldo
Üye
Kullanici Avatari
Üye
6
2
20/11/2010
0
Belirtilmemiş
Belirtilmemiş
28/07/2014,01:40
Çözüldü 
Sponsor Reklam
Teşekkür ederim sayın mzebek, buradaki

Visual Basic Code
'" & 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

mzebek
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
48
02/11/2008
Balıkesir
Ofis 2003
09/11/2013,12:16
Çözüldü 
Hiç bir anlam ifade etmiyor.kodun üst tarafında değer tanımlamışımdır.oradada mesaj verdirmişim.dikkate almayınız.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Excel'e Gönderirken Biçimlendirme husem 1 45 22/02/2017, 00:38 husem
  Excel Tablosunda Tekrarlayan Kayıtları Access'e Taşıma dralioner 17 201 17/02/2017, 00:55 dralioner
  Dinamik Excel İle Sorgu Cevabı Almak dufrety 6 76 08/02/2017, 13:02 dufrety
  Raporu Excel'e aktarma nightashes 10 319 31/01/2017, 10:09 nightashes
  Accessten excel bağlantısı ile veri alırken parola hatası. Mecnun24 8 315 02/01/2017, 20:11 Mecnun24


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya