vb.net excel çıktı alma sorunu

13/05/2014, 15:49

Gorkemku

Ö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.
14/05/2014, 09:15

alpeki99

Takıldığınız yer neresi? Nereye kadar ilerlediniz?
14/05/2014, 14:52

Gorkemku

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.