質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.05%

なぜエラーが出る・・?

解決済

回答 3

投稿

  • 評価
  • クリップ 0
  • VIEW 2,080

score 45

現在選択した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

よろしくお願いします・・。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

checkベストアンサー

0

2つの処理を書いてるのに、コンパイルが通ってるのでしょうか?

1行に2つの処理を書きたい時は、
1つの処理の後に「:」を記述すると書けることになってたはずなんですが。。。。

ただ、エラーメッセージを見るに、
Set xmlNode = xmlNode.appendChild(xmlObj.createElement("x"))
の処理で発生しているようですよね

上記処理も2つの処理があるので、下記の様に分けると、
どちらの処理でエラーが発生しているのか判明するかと。
Dim xlElement As Object
set xlElement = xmlObj.createElement("x"))
Set xmlNode = xmlNode.appendChild(xlElement)

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/03/20 11:43

    いろいろとありがとうございます。なんかごちゃごちゃしていたらIf Col > 2 Then →ElseIf Col > 2 Thenは自分で気づけました(笑)
    そして今エラーは解決し、ループ処理の中身に苦戦しています。
    (その行が終わったら次に行きたいのにCol > 2 Then の処理のせいで無限ループしているw)
    階層の紐付けって苦労しますね・・((+_+))

    キャンセル

  • 2018/03/20 11:49

    Do ~ Loop はミスると無限ループになって、応答不能になるので開発効率が悪い点があります。
    自分はできるだけ For ~ Next で記述するよう習いましたし、今でもそうだと思っています。
    きっちり、開始・終了の行・列を取得し、For文にできるものは変えた方が良いでしょう。

    キャンセル

  • 2018/03/20 12:02

    なるほど・・ありがとうございます。一応無限ループも回避し出力もできました!・・が、出力順の階層になってしまっていたのでそこが直せれば完成です!
    ありがとうございます!<m(__)m>

    キャンセル

0

エラーが出ている行に2つのSetが混在しているのは、コピペミスという前提で。
とりあえず実行してみましたが、質問されているエラーは発生しませんでした。
XMLの操作の仕方が正しいかまでは見ていませんが、xとyにセルの値を代入しているのにも関わらず、そのあと使っていないのは気になりました。
エラーが出ている行で"x"と書いていますが、これは変数xではなく文字列xを表します。
こうしたほうが良いと思われます。

Set xmlNode = xmlNode.appendChild(xmlObj.createElement(x))
Set xmlNode = xmlNode.appendChild(xmlObj.createTextNode(y))

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/03/20 10:20

    "x"というノードを作りたいのか、Cells(Row,7)の値でノードを作りたいのか。
    今は前者で、後者が正しいのでは?という回答になります。

    キャンセル

  • 2018/03/20 10:21

    確かになんかバグってるw

    キャンセル

  • 2018/03/20 10:22

    ttyp03さん
    後者が正しいです。

    キャンセル

0

nodeにelementを追加しようとしているからエラーなのでは?
.createElementではなくて、.createnodeじゃないでしょうか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.05%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る