現在選択したEXCELブックの中身をXMLファイルに書くマクロを作っています。
しかし「この操作は、ELEMENT型のノードでは実行できません」とエラーが出てしまいます。
問題ないように見えるのですが何がおかしいのでしょうか・・。
お願いします。
Sub XML() Dim TargetWorkbook As Workbook Dim OpenFileName As String Dim SheetName As String Dim x As String Dim y As String Dim i As Integer Dim Row As Integer Dim Col As Integer Dim xmlDoc As MSXML2.DOMDocument60 Dim xmlPI As IXMLDOMProcessingInstruction Dim xmlNode As Object Dim xmlObj As Object Set xmlObj = New MSXML2.DOMDocument60 Set xmlDoc = New MSXML2.DOMDocument60 Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")) Row = 3 Col = 2 ~中略~ Do While Col < 7 If TargetWorkbook.Worksheets(i).Cells(Row, Col).Value <> "" Then If Col = 2 Then Set xmlNode = xmlDoc.appendChild(xmlDoc.createElement("x")) If Col > 2 Then Row = Row - 1 Col = Col - 1 Do If TargetWorkbook.Worksheets(i).Cells(Row, Col).Value <> "" Then Set xmlNode = xmlDoc.appendChild(xmlDoc.createElement("x!")) Else: Row = Row - 1 End If Loop End If End If x = TargetWorkbook.Worksheets(i).Cells(Row, 7).Value y = TargetWorkbook.Worksheets(i).Cells(Row, 9).Value ここでエラー発生→Set xmlNode = xmlNode.appendChild(xmlObj.createElement("x")) Set xmlNode = xmlNode.appendChild(xmlObj.createTextNode("y")) Col = 2 Row = Row + 1 Else: Col = Col + 1 End If Loop ~略~ End Sub
よろしくお願いします・・。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。