Extracting a range to a listbox

[alex_read]

You'll need to...

• Start a new vb project
• Add 1 listbox and 1 command button to the form
• Goto the project menu > references option & select the Microsoft Excel Library line
• Create an excel file with the first 10 cells A1 to A10 with data in, then save this file as "C:\file.xls"

Private Sub Command1_Click()
    Dim objXLApp As Excel.Application
    Dim intLoopCounter As Integer
    
    Set objXLApp = New Excel.Application
    
    With objXLApp
        .Workbooks.Open "C:\File.xls"
        .Workbooks(1).Worksheets(1).Select
    
        For intLoopCounter = 1 To 10
            List1.AddItem .Range("A" & intLoopCounter)
        Next intLoopCounter
        
        .Workbooks(1).Close False
        .Quit
    End With
    
    Set objXLApp = Nothing
End Sub