런타임 오류 '13'VBA 매크로 엑셀

Question

나는이 매크로를 만들어 나는

Set objDomAttribute = objDomElement3.Attributes.setNamedItem(objDomDoc.createAttribute("Name4")) 

내 엑셀 파일은 2727 개 행이 라인에서 런타임 오류 '13'를 얻을. 적은 수의 행으로 테스트했는데 완벽하게 작동하지만 2727에서는 작동하지 않습니다. 그 문제를 해결하기 위해 무엇을해야합니까?

Option Explicit 
Public Sub MakeXMLWithDom() 

Dim Q As String 
Q = Chr$(34) 

Dim objDomDoc As New MSXML2.DOMDocument60 

objDomDoc.LoadXML ("<?xml version=" & Q & "1.0" & Q & "encoding=" & Q & "utf-8" & Q & "?>") 

Dim objDomElement As MSXML2.IXMLDOMElement 
Dim objDomAttribute As MSXML2.IXMLDOMAttribute 
Dim nodeSet As MSXML2.IXMLDOMNodeList 

Set objDomElement = objDomDoc.createElement("Containers") 
Set objDomElement = objDomDoc.appendChild(objDomElement) 

'finding the amount of rows in the excel 
Dim numofrows As Long 
numofrows = Worksheets("EXAMPLE").Range("E1").Offset(Worksheets("EXAMPLE").Rows.Count - 1, 0).End(xlUp).Row 

Dim iRow As Integer 

Dim Value11 As Variant 
Dim Value12 As Variant 
Dim Value13 As Variant 

Dim objDomElement1 As Variant 
Dim objDomElement2 As Variant 
Dim objDomElement3 As Variant 

For iRow = 10 To (numofrows + 1) 

    If Worksheets("EXAMPLE").Cells(iRow - 1, 5) = Worksheets("EXAMPLE").Cells(iRow, 5) Then 
     Value11 = Worksheets("EXAMPLE").Cells(iRow - 1, 11).Value & ", " & Worksheets("EXAMPLE").Cells(iRow, 11).Value 
     Value12 = Worksheets("EXAMPLE").Cells(iRow - 1, 12).Value & ", " & Worksheets("EXAMPLE").Cells(iRow, 12).Value 
     Value13 = Worksheets("EXAMPLE").Cells(iRow - 1, 13).Value & ", " & Worksheets("EXAMPLE").Cells(iRow, 13).Value 
    Else 
     Value11 = Worksheets("EXAMPLE").Cells(iRow, 11).Value 
     Value12 = Worksheets("EXAMPLE").Cells(iRow, 12).Value 
     Value13 = Worksheets("EXAMPLE").Cells(iRow, 13).Value 
    End If 

    If Worksheets("EXAMPLE").Cells(iRow, 5) <> Worksheets("EXAMPLE").Cells(iRow + 1, 5) And Worksheets("EXAMPLE").Cells(iRow, 3) <> "" And Worksheets("EXAMPLE").Cells(iRow, 5) <> "" Then 

     Set objDomElement1 = objDomElement.appendChild(objDomDoc.createElement("Data")) 
     Set objDomAttribute = objDomElement1.Attributes.setNamedItem(objDomDoc.createAttribute("Relevant")) 
     objDomElement1.Attributes.getNamedItem("Relevant").Text = "True" 

     Set objDomElement2 = objDomElement1.appendChild(objDomDoc.createElement("Info")) 

     Set objDomElement3 = objDomElement2.appendChild(objDomDoc.createElement("Part")) 
     Set objDomAttribute = objDomElement3.Attributes.setNamedItem(objDomDoc.createAttribute("Name1")) 
     Set objDomAttribute = objDomElement3.Attributes.setNamedItem(objDomDoc.createAttribute("Name2")) 
     Set objDomAttribute = objDomElement3.Attributes.setNamedItem(objDomDoc.createAttribute("Name3")) 
     Set objDomAttribute = objDomElement3.Attributes.setNamedItem(objDomDoc.createAttribute("Name4")) 

     objDomElement3.Attributes.getNamedItem("Name1").Text = Trim$(Worksheets("EXAMPLE").Cells(iRow, 5).Value) 
     objDomElement3.Attributes.getNamedItem("Name2").Text = Value11 
     objDomElement3.Attributes.getNamedItem("Name3").Text = Value12 
     objDomElement3.Attributes.getNamedItem("Name4").Text = Value13 

    End If 
Next iRow 

objDomDoc.Save ("c:\Example.xml") 
End Sub 

Answer 1

당신은 지역 창에서 Value13이 Value: Error 2015 및 Type: Variant/Error으로 표시 말한다. 음, 알았어. 계속 조사해 ... Value13은 어디에서 왔니? Excel 시트에서 해당 줄을보십시오. 거기에 #VALUE! 오류가 표시 될 것입니다.

입력 데이터에는 문제가 있으므로 코드에는 문제가 있습니다. 문제를 해결하면 문제가 해결됩니다.