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.