Skip to main content

AccessTr.neT


Yıl , Ay Ve Seçilen Tabloyu Access Den Pdf Olarak Ve Excel Olarak İndire Bilme.

Yıl , Ay Ve Seçilen Tabloyu Access Den Pdf Olarak Ve Excel Olarak İndire Bilme.

#19
(19/08/2020, 23:26)kadirtr yazdı: Zaten arkada Excel açık olsa neden verileri indirmek için ayrı bir şey için kod istensin ki.
verileri Access dosyasından almak istediği için excele indirmeyi istemiş ki zaten bu haliyle verileri indiriyor sorun şu bu veriler başka kitaba mı aktarılacak, yoksa bunları yazıcıya göndermek/pdf olarak kaydetmek için mi kullanacak? Eğer başka bir kitap olarak gönderilecekse sayfa yıllara göre oluşturulmuş bir kitaba mı aktarılacak yoksa her her defasında bağımsız bir kitap mı oluşturulacak?
ben çalışma prensibinizi yada amacınızı bilemem o nedenle soru net olmalı iyi açıklanmalı ki en kısa zamanda en doğru cevabı bulabilelim. yoksa verilen cevaptan çok anlamaya çalışmak için sorularla doluyor konu ve bir yerden sonra ipin ucu kaçıyor artık mesajları takip edemez oluyorsunuz.
Cevapla
#20
(19/08/2020, 23:46)berduş yazdı:
(19/08/2020, 23:26)kadirtr yazdı: Zaten arkada Excel açık olsa neden verileri indirmek için ayrı bir şey için kod istensin ki.
verileri Access dosyasından almak istediği için excele indirmeyi istemiş ki zaten bu haliyle verileri indiriyor sorun şu bu veriler başka kitaba mı aktarılacak, yoksa bunları yazıcıya göndermek/pdf olarak kaydetmek için mi kullanacak? Eğer başka bir kitap olarak gönderilecekse sayfa yıllara göre oluşturulmuş bir kitaba mı aktarılacak yoksa her her defasında bağımsız bir kitap mı oluşturulacak?
ben çalışma prensibinizi yada amacınızı bilemem o nedenle soru net olmalı iyi açıklanmalı ki en kısa zamanda en doğru cevabı bulabilelim. yoksa verilen cevaptan çok anlamaya çalışmak için sorularla doluyor konu ve bir yerden sonra ipin ucu kaçıyor artık mesajları takip edemez oluyorsunuz.
Şimdi sizden istediği aylık bazda garfikleri göstere bilmek için excele akarmış onları grafiklerle halletmiş. Program olarak çalışacağı için arkada aktardığı verileri göremez bu nedenle ayrıyetten verileri indirmek istiyor. Örnek haziran ayı verisi programı kim kullanacaksa ona bırakmış pdf olaramı işlem yapacaksa Excel olaramı kim kullanacaksa o istediği şekilde veri alsına getiriyor. Ama tabiki yıllık olarakda indirecek isterse aylık olarakta ayrıca seçtiği tabloyu indirecek. Ayrı ayrı Excel sayfası olarak onu konuyu açan arkadaş bilir isterseniz aylara göre Excel inecek kitaba ay adlarını verirsiniz. Ayrı sayfalarda olur yılsa hangi yılınkini indirecekse o yılın adını verirsiniz. Ama sizin değiniz gibi şuan aktarılmış olan veriyi program bittiğinde göremez o neden ile veri indrimesi olmalı yapılırsa kesin kodu alırım saklarım yani hatta bu programın bitmiş halini isterim.

(19/08/2020, 23:35)berduş yazdı: pdf yapma kod:
mesela verileriniz barajtablo Excel sayfasında ise bahsettiğim dosyadaki grafikformuna bir buton ekleyip butona aşağıdaki kodu yazıp deneyin
dosyaAdıAdresi = ThisWorkbook.Path & "\PdfYap.pdf"
Sheets("barajtablo").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=dosyaAdıAdresi, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
işte arkadaş orada image koymuş sanırım ona uyarlayacak. ben bi deneyim. Ayrıca tabloların başlıklarınıda istemiş. Sizin yazdığınızda Access den gelen verilerde başlıklar yok.
Son Düzenleme: 20/08/2020, 00:02, Düzenleyen: kadirtr.
Cevapla
#21
pdf yapma kodu:
'hy Sayfayı Pdf olarak kaydet
dosyaAdıAdresi = ThisWorkbook.Path & "\PdfYap.pdf"
Sheets("barajtablo").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=dosyaAdıAdresi, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Excel yapma kodu

'hy Sayfayı yeni Excel Yap
Dim wb As Workbook
dosyaAdıAdresi = ThisWorkbook.Path & "\ExcelYap.xlsx"

Set wb = Workbooks.Add
ThisWorkbook.Sheets("barajtablo").Copy Before:=wb.Sheets(1)
wb.SaveAs dosyaAdıAdresi
Cevapla
#22
(20/08/2020, 00:01)berduş yazdı: pdf yapma kodu:
'hy Sayfayı Pdf olarak kaydet
dosyaAdıAdresi = ThisWorkbook.Path & "\PdfYap.pdf"
Sheets("barajtablo").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=dosyaAdıAdresi, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
Excel yapma kodu

'hy Sayfayı yeni Excel Yap
Dim wb As Workbook
dosyaAdıAdresi = ThisWorkbook.Path & "\ExcelYap.xlsx"

    Set wb = Workbooks.Add
    ThisWorkbook.Sheets("barajtablo").Copy Before:=wb.Sheets(1)
    wb.SaveAs dosyaAdıAdresi
Sadece baraj tabloları yapar

Sadece şuan boş bir Excel sayfası oluşturuyor Excel kodu. Pdf kodu da bozuk pdf diye hata veriyor. Arkadaşın koyduğu comboboxlar ile alınacak verilerin seçilmsei gerek.
Son Düzenleme: 20/08/2020, 00:13, Düzenleyen: kadirtr.
Cevapla
#23
(20/08/2020, 00:07)kadirtr yazdı: Sadece baraj tabloları yapar
Evet sadece barajı yapıyor. eğer dosya eklenseydi ve o dosyada kutulardan seçim yapılabilseydi, ki esas dosyada açılır kutulara veri ekleme kodları vardı ve zaten sayın merttr07 onu yapabiliyor, kodu ona göre yazardım. ama burda amaç kodun mantığını göstermek gerisi biraz araştırarak öğrenilebilir.

eğer barajtablo sayfasında veri yoksa normaldir. kodu çalıştırdığınız Excel dosyasının ilgili sayfasında veri var mı?
ben az önce denedim hem pdf'de hem hem de excelde verileri aktardı.
Cevapla
#24
(20/08/2020, 00:13)berduş yazdı:
(20/08/2020, 00:07)kadirtr yazdı: Sadece baraj tabloları yapar
Evet sadece barajı yapıyor. eğer dosya eklenseydi ve o dosyada kutulardan seçim yapılabilseydi, ki esas dosyada açılır kutulara veri ekleme kodları vardı ve zaten sayın merttr07  onu yapabiliyor, kodu ona göre yazardım. ama burda amaç kodun mantığını göstermek gerisi biraz araştırarak öğrenilebilir.

eğer barajtablo sayfasında veri yoksa normaldir. kodu çalıştırdığınız Excel dosyasının ilgili sayfasında veri var mı?
ben az önce denedim hem pdf'de hem hem de excelde verileri aktardı.
Ellerine sağlık güzel olmuş ve arkadaşa gayet iyi bir destek vermişsin. Ama o arkadaşta bizim gibi araştırmıştır kodları kendi kafamıza göre uyarlayamıyoruz. Emin ol bula bilsem başka sitede arardım araştırdım burada bu konuyu gördüm üye oldum zaten. Ve yapa bilirsen bizede yardımcı olacaksın konuyu acan arkadaşa da. İşi biliyorsun bir tek koda verileri aktarmak kalıyor. Şuan boş sayfa oluşturuyor. Yaparsan emin ol çok kişinin işine yarar ve çok dua alırsın.

Siz nasıl çalıştırdınız kodları nereye yazdırdınız ben arkadaşın koydu Excel image ve pdf yazdım ama olmadı

(20/08/2020, 00:19)kadirtr yazdı:
(20/08/2020, 00:13)berduş yazdı:
(20/08/2020, 00:07)kadirtr yazdı: Sadece baraj tabloları yapar
Evet sadece barajı yapıyor. eğer dosya eklenseydi ve o dosyada kutulardan seçim yapılabilseydi, ki esas dosyada açılır kutulara veri ekleme kodları vardı ve zaten sayın merttr07  onu yapabiliyor, kodu ona göre yazardım. ama burda amaç kodun mantığını göstermek gerisi biraz araştırarak öğrenilebilir.

eğer barajtablo sayfasında veri yoksa normaldir. kodu çalıştırdığınız Excel dosyasının ilgili sayfasında veri var mı?
ben az önce denedim hem pdf'de hem hem de excelde verileri aktardı.
Ellerine sağlık güzel olmuş ve arkadaşa gayet iyi bir destek vermişsin. Ama o arkadaşta bizim gibi araştırmıştır kodları kendi kafamıza göre uyarlayamıyoruz. Emin ol bula bilsem başka sitede arardım araştırdım burada bu konuyu gördüm üye oldum zaten. Ve yapa bilirsen bizede yardımcı olacaksın konuyu acan arkadaşa da. İşi biliyorsun bir tek koda verileri aktarmak kalıyor. Şuan boş sayfa oluşturuyor. Yaparsan emin ol çok kişinin işine yarar ve çok dua alırsın.

Siz nasıl çalıştırdınız kodları nereye yazdırdınız ben arkadaşın koydu Excel image ve pdf yazdım ama olmadı
Son Düzenleme: 20/08/2020, 00:22, Düzenleyen: kadirtr.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da