2017-01-06 4 views
0

Ich möchte die Excel-Daten in treeview anzeigen, aber es zeigt ungültigen Schlüssel. Bitte hilf mir.VBA treeview loading issue - ungültiger Schlüssel

Dim rTWData As Range 
Dim oRow As Variant 
Dim onode As Variant 
Dim lastrow As Integer 

Dim myFileNameDir2 As String 
Dim ws12 As Worksheet 
Dim i2 As Integer 
Dim lastrow2 As Integer 
Dim filecheck As Variant 

myFileNameDir2 = Sheet1.Range("V5").Value 
Workbooks.Open Filename:=myFileNameDir2, UpdateLinks:=0 
Set ws12 = Worksheets(1) 
lastrow = ws12.Range("A" & Rows.Count).End(xlUp).Row - 1 
Set rTWData = ws12.Range("A2:L" & lastrow) 
With TreeView1 
    Set onode = .Nodes.Add(, , "root", "+") 
    onode.Expanded = True 
    For Each oRow In rTWData.Rows 
     .Nodes.Add "root", tvwChild, oRow.Cells(1, 1).Value, oRow.Cells(1, 1).Value 
     .Nodes.Add oRow.Cells(1, 1).Value, tvwChild, oRow.Cells(1, 2).Value, oRow.Cells(1, 2).Value 
     .Nodes.Add oRow.Cells(1, 2).Value, tvwChild, oRow.Cells(1, 3).Value, oRow.Cells(1, 3).Value 
     .Nodes.Add oRow.Cells(1, 3).Value, tvwChild, oRow.Cells(1, 4).Value, oRow.Cells(1, 4).Value 
    Next 
End With 

Antwort

0

Einer der oRow.Cells ist leer oder ist eine Nummer.

Die key muss eine Zeichenfolge sein (muss ein nicht numerisches Zeichen enthalten).

Verwandte Themen