The following are 2 vb code blocks, maybe helpful to you. public sub ReadExcelFile dim sTemp as string Dim Range As Excel.Range Set Range = Sheet.UsedRange iCols = Range.Columns.Count iRows = Range.Rows.Count
With Range.Cells For i = 1 To iRows For j = 1 To iCols sTemp = .Item(i, j).Value next j next i end sub public sub SaveExcelFileAsText Dim xl As Excel.Application Dim Workbook As Excel.Workbook Dim