Listview Excel에서 형식이 일치하지 않습니다. 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에서

으로 간단한 첫 번째 시도는이 유효한 정의 된 유형이 아닌 중임을 보여줍니다.

올바른 오브젝트 유형이 당신이 Dim LstItem As Object