Sub PDF_Programini_Baslatma()
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
AdobeFile = "C:\users\kullanici\desktop\RDS\dosyaAdi.pdf" 'Buraya dosyanın yerini ve adını girin.
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
Application.OnTime Now + TimeValue("00:00:05"), "FirstStep"
End Sub
Private Sub ikinci_adim()
Bu sadece pdf olarak indirmeye yarar belki işinize yarar ama filitreleyerek istediğin veri alma konusunda bende bir şey diyemem . Yapan olursa kullanırım o kodları takipteyim.
bahsettiğim dosyada verileri Grafik Ekle butonuna basarak
Excel dosyasına alıyor ve yazdırmak istediğinizde de zaten ilgili sayfayı yada tümünü pdf olarak kaydedebiliyorsunuz
(19/08/2020, 23:14)berduş yazdı: [ -> ]bahsettiğim dosyada verileri Grafik Ekle butonuna basarak Excel dosyasına alıyor ve yazdırmak istediğinizde de zaten ilgili sayfayı yada tümünü pdf olarak kaydedebiliyorsunuz
Ama
Vba program olarak çalışırken
Excel arkada açık olarak çalışmaz o nedenle o verileri pdf olarak alamazsınız. Sadece yapılan program üzerinden verileri indirme bilirsiniz. Bu nedenle programa indirme seceneği eklenmeli. Sanırım koyu açan arkadaşta ondan istemiş şuan program bitmemiş bittiğinde
Excel şuan açıldığı gibi açılmayacak sadece program açık kalacak.
(19/08/2020, 23:24)ahmet66 yazdı: [ -> ] (19/08/2020, 23:14)berduş yazdı: [ -> ]bahsettiğim dosyada verileri Grafik Ekle butonuna basarak Excel dosyasına alıyor ve yazdırmak istediğinizde de zaten ilgili sayfayı yada tümünü pdf olarak kaydedebiliyorsunuz
Ama Vba program olarak çalışırken Excel arkada açık olarak çalışmaz o nedenle o verileri pdf olarak alamazsınız. Sadece yapılan program üzerinden verileri indirme bilirsiniz. Bu nedenle programa indirme seceneği eklenmeli. Sanırım koyu açan arkadaşta ondan istemiş şuan program bitmemiş bittiğinde Excel şuan açıldığı gibi açılmayacak sadece program açık kalacak.
Net güzel anatmışsın. Evet konuyu açan arkadaş programı daha bitirmemiş bu nedenle indirme seceneği istemiş. Zaten arkada
Excel açık olsa neden verileri indirmek için ayrı bir şey için kod istensin ki. Program bittiğinde sadece program açık kalacak
Excel arkada saklı olarak çalışacak.
Evet program bittiğinde ana excelde olan ve çekilen verileri göramez sadece programda olanları göre bilirsiniz. Bu nedenle filitreleme ile indirme seçeneği olması gerek yoksa istediğiniz verileri ayırarak alamazsınız. Kolay gelsin bende bakıyorum bulursam atarım. Ama zor yapa bilmem. Yapan olursa dediğim gibi kullanırım.
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