Treba da koristis Excel Object Model. Imas Workbook, Worksheet, .. objekte. U helpu imas prilicno detaljno objasnjene ove stvari
Evo funkcije koji ide po excel workbooku, worksheetovima, vrstama, kolonama, ...
Code:
Option Explicit
Private Function ExtractWorkbookText(Doc As Excel.Workbook) As Boolean
Dim WorksheetsNo As Integer
Dim RowsCount As Long
Dim ColumnsCount As Long
Dim StrResult As String
Dim i As Long
Dim j As Long
Dim z As Long
WorksheetsNo = Doc.Worksheets.Count
For i = 1 To WorksheetsNo
RowsCount = Doc.Worksheets(i).UsedRange.Rows.Count
ColumnsCount = Doc.Worksheets(i).UsedRange.Columns.Count
For j = 1 To RowsCount
StrResult = ""
For z = 1 To ColumnsCount
If StrResult <> "" Then StrResult = StrResult & ", "
StrResult = StrResult & Doc.Worksheets(i).UsedRange.Cells(j, z)
Next z
'-- print current row to the debug.window
Debug.Print StrResult
Next j
Next i
ExtractWorkbookText = True
End Function
HTH