Migraicon A Excel

Dim ExcelObj As Object

Dim ExcelBook As Object

Dim ExcelSheet As Object

Dim i As Integer

Set ExcelObj = CreateObject("Excel.Application")

Set ExcelSheet = CreateObject("Excel.Sheet")

ExcelObj.WorkBooks.Open App.Path & "\ExcelFile.xls"

Set ExcelBook = ExcelObj.WorkBooks(1)

Set ExcelSheet = ExcelBook.WorkSheets(1)

Dim l As ListItem

lvwList.ListItems.Clear

With ExcelSheet

i = 1

Do Until .cells(i, 1) & "" = ""

Set l = lvwList.ListItems.Add(, , .cells(i, 1))

l.SubItems(1) = .cells(i, 2)

l.SubItems(2) = .cells(i, 3)

l.SubItems(3) = .cells(i, 4)

i = i + 1

Loop

End With

ExcelObj.WorkBooks.Close

Set ExcelSheet = Nothing

Set ExcelBook = Nothing

Set ExcelObj = Nothing

Dim SheetName As String

Dim RS As ADODB.Recordset

Dim LI As ListItem

Dim I As Integer

'Look up 1st Worksheet (or just hardcode its Name).

'

'Notes:

' o Can use Excel 8.0 or Excel 5.0 to read most Excel 7.0/97

' Workbooks, but there is no IISAM specifically for Excel 7.0.

' o Use HDR=Yes if your Worksheet has a header row.

With CreateObject("ADOX.Catalog")

.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" _

& App.Path & "\sample.xls';" _

& "Extended Properties='Excel

...