13/05/2014, 15:49
Öncelikle merhabalar benim sorunum Formumda ki bilgileri daha önceden hazırladığım bi Excel taslağının içinde çıktısını aldırmak istiyorum yardımlarınız için şimdiden teşekkür ederim.
13/05/2014, 15:49
14/05/2014, 09:15
Takıldığınız yer neresi? Nereye kadar ilerlediniz?
14/05/2014, 14:52
Kod:
Dim excel As Excel.Application
Dim kitap As Excel.Workbook
Dim sayfa As Excel.Worksheet
excel = CreateObject("excel.aplication")
kitap = excel.woorkbooks.add
sayfa = kitap.Worksheets(1)
For yaz = 1 To DataGridView1.RowCount
sayfa.Cells(yaz, 1).value = DataGridView1.Rows(yaz - 1).Cells(0).Value
sayfa.Cells(yaz, 2).value = DataGridView1.Rows(yaz - 1).Cells(1).Value
sayfa.Cells(yaz, 3).value = DataGridView1.Rows(yaz - 1).Cells(2).Value
Next
sayfa.cells(1, 1).value = "isim"
sayfa.cells(1, 2).value = "soy isim"
sayfa.cells(1, 3).value = "yaş"
kitap.SaveAs(TextBox12.Text)
MsgBox("aktarma tamamlandı")sadece excele aktarabiliyorm yani bu kodun o işe yaraması gerekiyor ama (ActiveX bileşeni oluşturulamıyor.) hatası veriyor ki yazdırma kısmını nasıl yapabilirim bilmiyorum.