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