Excel VBA 导入数据到 ListBox，实现文件读取和显示

以下是一个简单的 Excel VBA 窗体程序，实现了从文件夹中导入 xls 文件，并将读取的数据显示在 ListBox1 中：

Private Sub CommandButton1_Click()
    '选择文件
    Dim fileDialog As FileDialog
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    fileDialog.AllowMultiSelect = False
    fileDialog.Title = '选择要导入的文件'
    fileDialog.Filters.Clear
    fileDialog.Filters.Add 'Excel文件', '*.xls;*.xlsx'
    If fileDialog.Show = False Then Exit Sub
    
    '打开文件
    Dim filePath As String
    filePath = fileDialog.SelectedItems(1)
    Dim wb As Workbook
    Set wb = Workbooks.Open(filePath)
    Dim ws As Worksheet
    Set ws = wb.Sheets(1)
    
    '读取数据
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Dim data() As Variant
    ReDim data(lastRow - 1, 10)
    Dim i As Long
    For i = 2 To lastRow
        data(i - 2, 0) = ws.Cells(i, 1).Value
        data(i - 2, 1) = ws.Cells(i, 2).Value
        data(i - 2, 2) = ws.Cells(i, 3).Value
        data(i - 2, 3) = ws.Cells(i, 4).Value
        data(i - 2, 4) = ws.Cells(i, 5).Value
        data(i - 2, 5) = ws.Cells(i, 6).Value
        data(i - 2, 6) = ws.Cells(i, 7).Value
        data(i - 2, 7) = ws.Cells(i, 8).Value
        data(i - 2, 8) = ws.Cells(i, 9).Value
        data(i - 2, 9) = ws.Cells(i, 10).Value
        data(i - 2, 10) = ws.Cells(i, 11).Value
    Next i
    
    '显示数据
    ListBox1.Clear
    For i = LBound(data, 1) To UBound(data, 1)
        ListBox1.AddItem data(i, 0) & '---' & data(i, 1) & '---' & data(i, 2) & '---' & data(i, 3) & '---' & data(i, 4) & '---' & data(i, 5) & '---' & data(i, 6) & '---' & data(i, 7) & '---' & data(i, 8) & '---' & data(i, 9) & '---' & data(i, 10)
    Next i
    
    '关闭文件
    wb.Close False
End Sub

代码解析:

选择文件: 使用 FileDialog 对象选择要导入的 Excel 文件。
打开文件: 使用 Workbooks.Open 方法打开选中的 Excel 文件。
读取数据: 循环遍历 Excel 文件的每一行，将数据存储在 data 数组中。
显示数据: 使用 ListBox1.AddItem 方法将读取的数据显示在 ListBox 中，每个字段之间用 --- 连接。
关闭文件: 使用 wb.Close 方法关闭 Excel 文件。

注意:

该程序只支持导入 .xls 和 .xlsx 格式的 Excel 文件。
文件中必须包含 11 列数据，且列顺序与代码中读取数据的顺序一致。
可以根据需要修改代码中的 data 数组大小和 ListBox1.AddItem 中的数据连接符。

扩展:

可以添加错误处理，以防止程序在导入文件时出现错误。
可以添加数据验证，以确保导入数据的正确性。
可以将数据保存到数据库或其他数据源。

其他提示:

在使用 Excel VBA 编程时，请使用 Option Explicit 语句声明所有变量，以避免潜在的错误。
使用代码注释来解释代码的功能，使代码易于理解和维护。
为了使程序更加健壮，请使用错误处理机制来处理可能发生的错误。
避免使用硬编码，例如文件名和路径，以便程序可以更容易地适应不同的环境。
测试你的程序，以确保它按预期工作。

希望以上内容对您有所帮助。如果您还有其他问题，请随时提出。

相关资源:

作者:

[您的姓名或机构]

日期:

[日期]