vb question

tigerforest

anyone know how to read the contents of an xls file into an array in a vb6 application? Also how do you do a file input box where the user can browse their computer to find the file they wish to insert into the form?

ob

I did something similar in vba, but you can probably adapt it. What this code does is populate a 2-dimensional array with the contents of the worksheet.

Public Sub ReadIntoArray

Dim arrContents() As String

Worksheets("Sheet1").Activate

Dim ArrayColumns, ArrayRows, i, j As Integer

ArrayRows = Cells.SpecialCells(xlCellTypeLastCell).Row

ArrayColumns = Cells(1, Columns.Count).End(xlToLeft).Column

ReDim arrContents(ArrayRows - 1, ArrayColumns - 1)

For i = LBound(arrContents, 1) To UBound(arrContents, 1)

For j = LBound(arrContents, 2) To UBound(arrContents, 2)

arrContents(i, j) = Range(Cells(i + 1, j + 1), Cells(i + 1, j + 1))

Next j

Next i

End Sub