Skip to main content

AccessTr.neT


Excel Ortamında Rapor Oluşturma

Excel Ortamında Rapor Oluşturma

Çözüldü #1
Aşağıdaki kod yardımıyla PDF ortamında oluşturduğum raporu Excel ortamında açmak istiyorum.
Kodda nasıl bir değişiklik yapmam gerekir.


Kod:
.Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
Cevapla
#2
Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz
Cevapla
#3
(29/03/2022, 22:09)berduş yazdı: Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz



verileri textbox ve combobaxlara çektikten sonra belge düzenle butonuna tıklayıp excelde açmak istiyorum.

excelde hazırlamış olduğum hücrelere textbox ve combobaxdaki veriler aktarılıyor ancak rapor alırken pdf e çevirip açıyor ben yine Excel açsın istiyorum...

Belge düzenle butonunun kodları

Kod:
Private Sub CommandButton5_Click()
With Sheets("belge")
.Range("E9") = Me.TextBox3
.Range("E10") = Me.TextBox4
.Range("E11") = Me.TextBox2
.Range("E12") = Me.TextBox5
.Range("E13") = Me.ComboBox8
.Range("E14") = Me.ComboBox4
.Range("E15") = Me.ComboBox6
.Range("E16") = Me.TextBox1
.Range("E18") = Me.ComboBox2

Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
End With

Cevapla
#4
(29/03/2022, 22:17)H@K@N yazdı:
(29/03/2022, 22:09)berduş yazdı: Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz



Örnek dosyam ektedir.

Arama sayfasında listboxta listelenen kayıtlardan birine tıkladığımızda Personel Getir sayfası açılıyor. Burada Personel Bilgilerini Getir butonuna tıkladığımızda bilgiler textbox ve combobaxlara geliyor.

Rapor Al butonuna tıkladığımda PDF değil Excel olarak açsın istiyorum.

Yardımlarınızı bekliyorum Teşekkürler.
.rar yardım.rar (Dosya Boyutu: 473,31 KB | İndirme Sayısı: 5)
Cevapla
#5
aşağıdaki kodu dener misiniz?
yeni Excel kitabı oluşturup veriyi oraya yollar
not: otomatik olarak kaydetmez, sizin kaydetmeniz gerek.
With Sheets("Sayfa1")
.Range("D4") = Me.TextBox1
.Range("D6") = Me.ComboBox1
.Range("D8") = Me.TextBox2
.Range("D10") = Me.TextBox3
.Range("D12") = Me.TextBox4
Dim wb As Workbook
Set wb = Workbooks.Add
.Copy Before:=wb.Sheets(1)
End With
Cevapla
#6
(30/03/2022, 12:18)berduş yazdı: aşağıdaki kodu dener misiniz?
yeni Excel kitabı oluşturup veriyi oraya yollar
not: otomatik olarak kaydetmez, sizin kaydetmeniz gerek.
With Sheets("Sayfa1")
.Range("D4") = Me.TextBox1
.Range("D6") = Me.ComboBox1
.Range("D8") = Me.TextBox2
.Range("D10") = Me.TextBox3
.Range("D12") = Me.TextBox4
    Dim wb As Workbook
    Set wb = Workbooks.Add
  .Copy Before:=wb.Sheets(1)
End With



Üstadım efsanesiniz. Çok teşekkürler yine sayenizde büyük bir sorunum çözüldü. İyiki varsı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