اريد ان اعرض محتويات ملف اكسل في اداة Flexgrid

اضف Microsoft Excel 11.0 Object Library من قائمة References

Private Sub Form_Load()
	ShowCells App.Path & "\Test.xls", 1, 1, 1, 20, 20
End Sub

Sub ShowCells(WorkSheetNaame As String, SheetIndex As Integer, FromRow As Integer, FromCol As Integer, ToRow As Integer, ToCol As Integer)
Dim ExcelAplication As Excel.Application
Dim R As Integer, C As Integer
Dim CR As Integer
Dim CC As Integer
Me.MSFlexGrid1.Rows = Abs(ToRow - FromRow) + 2
Me.MSFlexGrid1.Cols = Abs(ToCol - FromCol) + 2
Set ExcelAplication = CreateObject("Excel.application")
ExcelAplication.Workbooks.Open App.Path & "\Test.xls"
For R = FromRow To ToRow
	CR = R - FromRow + 1
   For C = FromCol To ToCol
	CC = C - FromCol + 1
	Me.MSFlexGrid1.TextMatrix(CR, CC) = ExcelAplication.Sheets(SheetIndex).Cells(R, C)
   Next C
Next R
ExcelAplication.Workbooks.Close
End Sub

مشكور اخي الكود شغال 100/ 100

هل لازم العميل يكون عنده برنامج اكسيل لتشغيل هذا البرنامج ؟