Excel Dosyası Oluşturma

Bu örneğimizde Excel dosyası oluşturacağız. Formunuza 1 adet Button ekleyin ve aşağıdaki kodları yazın.

Şekil 1

Şekil 2

Form1.vb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim excelobject = CreateObject("excel.application")

excelobject.Workbooks.Add()

excelobject.ActiveWorkbook.SaveAs(Filename:="C:\test")

excelobject.Activesheet.Range("A1").value = "test amaçlı oluşturuldu."

excelobject.Activeworkbook.Save()

excelobject.Quit()

MsgBox("test.xls excel dosyası oluşturuldu.")

Catch ex As Exception

MsgBox("Hata oluştu...")

End Try

End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşünceye kadar hoş cakalın. Bahadır ŞAHİN.

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.