一个关于导入execl数据的问题

Question

先有一个execl表，有数据如下：
1   2   3
2   3   1
3   1   2
要将这些数据导入到一个form的3个listbox中，请问这个问题该怎么解决？？
要代码，分数只给正确答案的人

Answer 1

90分，拼了从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。 
Dim xlApp As Excel.Application '定义EXCEL 
Dim xlBook As Excel.Workbook '定义工件簿 
Dim xlsheet As Excel.Worksheet '定义工作表 
Private Sub Command1_Click() '打开EXCEL过程 
　If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否存在 
　　Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 
　　xlApp.Visible = True '设置EXCEL可见 
　　Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿 
　　Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 
　　xlsheet.Activate '激活工作表 
　　Form1.List1.List(0) =str(xlsheet.Cells(1, 1).value) '单元格1行1列赋值给list1 
　End If 
End Sub

Answer 2

落下2行xlBook.Close (True) '关闭EXCEL工作簿　 
xlApp.Quit '关闭EXCEL 

Answer 3

你是3行分别导入不同的listbox中还是这3行数据都要在同一listbox中？看样子是前者。for i=0 to 2
    for j=1 to 3
        list(i).list(j-1)=trim(xlsheet.Cells(i, j).value)
    next j
next i引用以及打开excel的方法楼上已经写了。

Answer 4

Public Sub xlExport(F_Name As String)    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Dim item As ListItem
    Dim n As Long
    Dim num As Long
    Dim var As Long
    Dim i As Long
    Dim F_Name As String
    
    If F_Name = "" Then
        MsgBox "请选择一个Excel文件"
        Exit Sub
    End If
    
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
    
    If Dir(F_Name) = "" Then
        xlApp.Workbooks.Add
        
        Set xlBook = xlApp.ActiveWorkbook
        Set xlSheet = xlBook.ActiveSheet
        
        xlSheet.Name = "test"
        
        n = Lv.ListItems.Count
        num = Lv.ColumnHeaders.Count
        For var = 1 To num
            xlSheet.Cells(1, var) = Lv.ColumnHeaders(var)
        Next        For var = 1 To n
            Set item = Lv.ListItems(var)
            For i = 1 To num
                If i = 1 Then
                    xlSheet.Cells(var + 1, i) = item.Text
                Else
                    xlSheet.Cells(var + 1, i) = item.SubItems(i - 1)
                End If
            Next
        Next
        xlBook.SaveAs F_Name
    Else
        xlApp.Workbooks.Open F_Name
        
        Set xlBook = xlApp.ActiveWorkbook
        Set xlSheet = xlBook.ActiveSheet
        
        xlSheet.Name = "test"
        
        n = Lv.ListItems.Count
        num = Lv.ColumnHeaders.Count
        For var = 1 To num
            xlSheet.Cells(1, var) = Lv.ColumnHeaders(var)
        Next        For var = 1 To n
            Set item = Lv.ListItems(var)
            For i = 1 To num
                If i = 1 Then
                    xlSheet.Cells(var + 1, i) = item.Text
                Else
                    xlSheet.Cells(var + 1, i) = item.SubItems(i - 1)
                End If
            Next
        Next
        xlBook.Save
    End If
    
   xlApp.Visible = True
   
End Sub

Answer 5

以上程序将一个LISTVIEW控件中的内容导出到EXCEL的，稍微改动就能反过来导入EXCEL在FORM里添加一个 COMMONDIALOG控件，
     CommonDialog1.ShowOpen
    xlExport CommonDialog1.FileName
就能把内容导出到指定目录的指定文件