ImportExcelFile

Syntax

SQL.ImportExcelFile(FileName, Array2D()[, Worksheet])

Description

Opens an .xls file and loads its contents into a two-dimensional array variable. All records are loaded into the array, with a maximum of 65536 rows.

When loading is successful, this function returns the value TRUE, or else FALSE.

The first dimension of the array contains the lines of the worksheet, the second dimension contains the individual columns. Array2D(0,0) contains the first column of the first row.

Note: Does not require an installed version of Micorosoft Excel.

Supports worksheets that are Excel-97 compatible (BIFF9 format).

Parameter	Description
FileName	Path and file name reference to an MS Excel worksheet (.xls) or other compatible (convertible) file.
Array2D	A variable of type two-dimensional Array (variant) in which the worksheet is loaded (max 65536 rows).
Worksheet	Optional. If a file contains multiple worksheets, the index or worksheet name can be specified here. If not specified, the first worksheet is loaded.

See Also

OpenExcelDocument.

Example

Sub Main()
 
    Dim sFile As String
    Dim myCells() As Variant
    Dim x As Integer, y As Integer
 
    sFile = InputBox$("Excel file:")
 
    If SQL.ImportExcelFile(sFile, myCells()) = True Then
        For x = 0 To UBound(myCells)
            For y = 0 To UBound(myCells, 2)
                Debug.Print x & vbTab & y & vbTab & myCells(x, y)
            Next y
        Next x
    End If
 
End Sub