Access-excel aktarım
Tarih
04/05/2011 13:28
Konu Sahibi
atkinsonmuldo
Yorumlar
3
Okunma
1763
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ü 
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ü 
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 Formülleri hk. murat dikme 5 152 10/11/2016, 04:59 ozanakkaya
  Filtreleme Yaparak Excel'e Export Etme! Rıdvan Üçok 3 111 06/11/2016, 13:53 atoz112
  Excel Dosyasında veri alma idrisy 3 100 04/11/2016, 22:00 idrisy
  Excel ile bağlantı sorunu ertans 12 285 12/10/2016, 20:00 ertans
  VBA Makro ile Access'teki verileri formatlı Excel sayfasına aktarma hatası balkan85 26 543 28/09/2016, 15:54 atoz112


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