Excelden Veri Okuma -VB.NET

Merhaba Arkadaşlar ,

Bu seferki yazım da visual basi cte  , excel dosyasın dan veri okumayı gösteren bir kod parcaçığını örnek olması için paylaşağım.

Kod ta yer alan bir takım değişken tanımlamalarını kullanabilmeniz için -Microsoft Excel 15(hangi sürüm var ise ).0 Object Library-  projenize referans olarak eklemeniz gerekmektedir.

Projenize göre - add reference  seçeneğini bulun ( örn: web projelerinde solution explorer da proje üzerine sağ tık->add-reference dedikten sonra COM sekmesinin altında belirtiğim kütüphane yi seçip ok deyin.)

Imports System.Runtime.InteropServices

Imports Microsoft.Office.Interop

Partial Class _Default

    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(sender As Object, e As EventArgs)

        'nothing : başlangıç degeri boş veya sıfır demektir.

        Dim xlApp As Excel.Application = Nothing

        Dim xlWorkBook As Excel.Workbook = Nothing

        Dim xlworksheet As Excel.Worksheet = Nothing

        Dim range As Excel.Range = Nothing

        'verileri stringe çevirip ekranda gösteriyorum.

        'isterseniz dizi olarak tanımlayıp diziyede atabilirsiniz 

        Dim str As String = Nothing

        'okudugum exceldeki satır ve sutun sayısı

        Dim rw As Integer = Nothing

        Dim cl As Integer = Nothing

        xlApp = New Excel.Application()

        'excel dosyasını okuma

        xlWorkBook = xlApp.Workbooks.Open("C:\Desktop\deneme.xlsx", 0, True, 5, "", "", True, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", False, False, 0, True, 1, 0)

        'hangi woorksheetten okuyacağımı belirtiyorum (1) diyerek

        xlworksheet = DirectCast(xlWorkBook.Worksheets(1), Excel.Worksheet)

        'satır ve sutun sayısı

        range = xlworksheet.UsedRange

        rw = range.Rows.Count

        cl = range.Columns.Count

        'sırası ile satır ve sutun değerlerine ulaşıp ekranda gösteriyorumn

        'satır ve sutun sayısını kendiniz belirleyip , ordan başlamasının da sağlayabilirsiniz

        For rCnt As Integer = 1 To rw

            For cCnt As Integer = 1 To cl

                str = range.Cells(rCnt, cCnt).Value.ToString

                MsgBox(str)

            Next cCnt

        Next rCnt

        'işim bitince kapatıyorum.Gereksiz hafıza kullanımı olmasın diye

        xlWorkBook.Close(True, Nothing, Nothing)

        xlApp.Quit()

        Marshal.ReleaseComObject(xlworksheet)

        Marshal.ReleaseComObject(xlWorkBook)

        Marshal.ReleaseComObject(xlApp)

    End Sub

End Class

umarım faydalı olur.