Listview Excel VBA中的类型不匹配错误

Question

我想从Excel工作表中提取所有数据并显示在listview3上。 在以下代码下运行时，出现“运行时错误13”和“类型不匹配”错误。请告知需要进行哪些更改。

Dim myFileNameDir As String
Dim wksSource As Worksheet
   Dim rngData As Range
   Dim rngCell As Range
    Dim LstItem As listItem
    Dim RowCount As Long
   Dim ColCount As Long
   Dim I As Long
  Dim j As Long

 myFileNameDir = Sheet1.Range("V3").Value & TextBox40.Text & ".xlsx"

    Workbooks.Open Filename:=myFileNameDir, UpdateLinks:=0
    Set wksSource = Worksheets("Sheet1")

       Set rngData = wksSource.Range("A1").CurrentRegion



        For Each rngCell In rngData.Rows(1).Cells
        Me.ListView3.ColumnHeaders.Add Text:=rngCell.Value, Width:=90
    Next rngCell
       RowCount = rngData.Rows.Count
    ColCount = rngData.Columns.Count
        For I = 2 To RowCount
       Set LstItem = ListView3.ListItems.Add(Text:=rngData(I, 1).Value)
      For j = 2 To ColCount
         LstItem.ListSubItems.Add Text:=rngData(I, j).Value
    Next j
   Next I

Answer 1

正如我在评论中所说

您的ListItem没有大写似乎很奇怪

Dim LstItem As listItem

这可能表明找不到正确的对象引用

作为Debug | Compile简单首次尝试Debug | Compile Debug | Compile将向您显示这不是有效的定义类型。

如果您不知道正确的对象类型是什么，可以尝试Dim LstItem As Object