ادراج بيانات ملف اكسل في داتا غريد

First You Must Add Reference For

MicroSoft Excel Object

Dim xlApp As Excel.Application

Dim xlWorkBook As Excel.Workbook

Dim xlWorkSheet As Excel.Worksheet

xlApp = New Excel.ApplicationClass

xlWorkBook = xlApp.Workbooks.Open(mFileName)

xlWorkSheet = xlWorkBook.Worksheets(1)

While xlWorkSheet.Cells(i, 1).value <> Nothing

xlWorkSheet.Cells(1, i).value

End While