Excel Ortamında Rapor Oluşturma

[Programcı24]

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.

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

 

[Cengiz Demir]

Yanlış konuya mesaj atmışım . İçeriği sildim.

 

[Programcı24]

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

PDF olarak değil de Excelde açmak istiyorum

 

[Programcı24]

örnek dosya

İndir yardım

Dosyayı indir yardım

dosya.co

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.

 

[Cengiz Demir]

Yanlış anlamadıysam. Rapor getir düğmesine bastığınızda, rapor pdf olarak oluşturuluyor. Ama siz excel kitabı olarak oluşturulsun istiyorsunuz.

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

Kodunu silip. Aşağıdaki kodu eklerseniz. Sayfa1 yeni bir excel dosyasına kopyalanır.

Sheets("Sayfa1").Copy

Ayrıca Personel getir formunuzun initalize makrosunun en sonuna bu kodu eklerseniz; personeli getir düğmesine basmanıza gerek kalmaz.

Call CommandButton1_Click

 

[Programcı24]

Yanlış anlamadıysam. Rapor getir düğmesine bastığınızda, rapor pdf olarak oluşturuluyor. Ama siz excel kitabı olarak oluşturulsun istiyorsunuz.

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

Kodunu silip. Aşağıdaki kodu eklerseniz. Sayfa1 yeni bir excel dosyasına kopyalanır.

Sheets("Sayfa1").Copy

Ayrıca Personel getir formunuzun initalize makrosunun en sonuna bu kodu eklerseniz; personeli getir düğmesine basmanıza gerek kalmaz.

Call CommandButton1_Click

Excele kopyalıyor ama veritabanından kaydı siliyor. Listboxta görünmüyor kayıt.

 

[Cengiz Demir]

Range satırında sadece pdf oluşturma komutları var.
Onun silinmesi başka bir yere etki etmez diye düşünüyorum.
Başka bir sorun olmasın ?