[الوليد ☺]

السلام عليكم ورحمة الله

هذا أبسط مثال لقراءة خلية محددة

أضف المرجع Microsoft Excel xx.x Object Library حسب رقم الإصدار المتوفر لديك

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim excelFilename As String = "C:\Users\Microsoft\Desktop\Book1.xlsx"
    Dim xlsApp As New Excel.Application
    Dim xlsWorkBook As Excel.Workbook
    Dim xlsWorkSheet As Excel.Worksheet
    xlsWorkBook = xlsApp.Workbooks.Open(excelFilename) ' فتح الملف '
    xlsWorkSheet = xlsWorkBook.Worksheets(1) ' رقم الورقة '
    '-----------------------------'
    xlsApp.Visible = True ' إظهار برنامج الإكسل '

    Dim xlsRange As Excel.Range

    ' طريقة عنوان الخلية '
    xlsRange = xlsWorkSheet.Range("A1")
    MsgBox("xlsWorkSheet.Range(""A1"")= " & xlsRange.Text)

    ' طريقة الإحداثيات '
    xlsRange = xlsWorkSheet.Cells(1, 1) ' الإحداثيات تبدأ بالرقم واحد وليس صفر '
    MsgBox("xlsWorkSheet.Cells(1, 1)= " & xlsRange.Text)

    xlsRange = Nothing

    '-----------------------------'
    xlsWorkSheet = Nothing
    xlsWorkBook = Nothing
    xlsApp.Quit() ' إغلاق الملف '
    xlsApp = Nothing
End Sub