hi!
i have a visual basic program and i need read data from a excel sheet and put them in an array after. i would not like use data control or another data access control.
any idea?
thanks

Moving data from an excel worksheet into a memory array takes 5 simple steps:

1 Add the following items to the program References
Microsoft ActiveX 2.5 for DDL and Security
Microsoft Excel 8.0 Object Library


2. Predefine memory variables in the globals.bas file
Public m_XLSconx As ADODB.Connection
Public m_XLScmd As ADODB.Command
Public m_XLSrs As ADODB.Recordset
Public m_XLSdir As String
Public m_XLSfile As String
Public m_strSQL As String


3 Establish an ADO connection to Excel worksheet in the globals.bas file
Sub XLSCONX()
m_xlsdir = "" 'where the XLS file located
m_xlsfile = "" 'name of XLS file
Set m_XLScmd = New ADODB.Command
Set m_XLSconx = New ADODB.Connection
Set m_XLSrs = New ADODB.Recordset
With m_XLSconx
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = " & m_XLSdir & _
"\" & _m_XLSfile & ";" & _
"Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
End Sub


4. Establish a way to drop Excel-ADO connection in the globals.bas file
sub XLSDROP()
Set m_XLScmd = Nothing
Set m_XLSconx = Nothing
Set m_XLSrs = Nothing
end sub


5. In one of the forms, connect to Excel worksheet, move data into the data array, and drop connection
dim refCells as string
dim dataArray() as string
dim colMax as integer
dim colCnt as integer
dim rowMax as integer
dim rowCnt as integer

' make XLS ADO connection
XLSCONX

'estblish data range
referCells = "<top left cell>:<bottom right cell>"

'select data from worksheet data range
m_strSQL = "SELECT * FROM [<worksheet name>$" & referCells & "]"

'open recordset readonly
m_XLSrs.Open m_strSQL, m_XLSconx, adOpenStatic, adLockReadOnly, -1

'got to first record
m_XLSrs.MoveFirst

'setup 2-dimensional data array to fit rows and columns in data range
ReDim dataArray(rowMax, colMax)

'load 2-dimensional array with data
For rowCnt = 0 To rowMax - 1
colCnt = 0
For colCnt = 0 To colMax - 1
dataArray(rowCnt, colCnt) = "" & m_XLSrs.Fields(colCnt).Value
Next
m_XLSrs.MoveNext
Next

'drop XLS ADO connection
XLSDROP


Good luck