お世話になります。
ExcelのVBAを使用して、xmlファイルの全要素・全属性を読み込み、
Excelに書き出したいと思っております。
ネットを参考に下記のソースで、全ての要素をエクセルに
書き出すことは、できたのですが、どうしても全属性を読み込むことが
できません。
どのようにすればよいか教えて頂けないでしょうか?
お手数ですがよろしくお願い致します。
-----------------ソース----------------
Sub main()
Dim myxml As New DOMDocument40
Dim nodelist As IXMLDOMNodeList
Dim onenode As IXMLDOMNode
Dim i As Integer
myxml.Load ("C:\Users\harada\Desktop\problem_info取り込み\problem_info.xml")
Set nodelist = myxml.DocumentElement.ChildNodes
i = 1
For Each onenode In nodelist
Call submain(onenode, i, 1)
i = i + 1
Next
End Sub
Sub submain(tmp As IXMLDOMNode, itmp As Integer, j As Integer)
If tmp.HasChildNodes = False Then Exit Sub
k = tmp.ChildNodes.Length
For m = 0 To k - 1
Cells(itmp, j + m).Value = tmp.ChildNodes(m).Text
Next
j = j + m
Set tmp = tmp.ChildNodes.NextNode
Call submain(tmp, itmp, j)
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
#直接の回答にはなっていないでしょうから、ご要望から離れておりましたら、スルーなさってください。
>xmlファイルの全要素・全属性を読み込み、
>Excelに書き出したい
[XML ファイル] でしたら、お示しのような面倒くさいコードを使わなくても、エクセルの標準機能で行った方が簡単ではありませんか?
「書き出した」後の閲覧もビジブルですし。。。
Sub Macro1()
ActiveWorkbook.XmlImport URL:= _
"C:\Users\harada\Desktop\problem_info取り込み\problem_info.xml", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) マクロのコードを、少しでも削って短くしたい 3 2022/08/30 07:46
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
XMLをエクセルに取り込むマクロ
Visual Basic(VBA)
-
Excel-VBAでXMLの複数ノードの取り出し
Visual Basic(VBA)
-
Access VBAでXMLが読み込めない
Visual Basic(VBA)
-
-
4
VBAでXML文書のある特定タグ以下の内容をそのまま取得したい
XML
-
5
xmlの値を配列変数に格納したい。
Visual Basic(VBA)
-
6
XMLからデータを取得
Visual Basic(VBA)
-
7
XML文書の指定した属性値を持つノードを取得したい
XML
-
8
あるノードリストに、特定の名前のノードが存在するかどうか調べたい
XML
-
9
ExcelのVBAで、XMLファイルのデータ抽出
Excel(エクセル)
-
10
VBSでxmlの値を書き換えたい
Visual Basic(VBA)
-
11
XPathで途中に名前空間が設定されていると狙った要素を指定できない
XML
-
12
vbaでxmlからNodeListでデータがない時、空欄で取得する方法
Visual Basic(VBA)
-
13
同じタグ名の項目取得
XML
-
14
XMLでのAttributeを持ったNodeの追加方法
Visual Basic(VBA)
-
15
VB6でXMLを処理するには
Visual Basic(VBA)
-
16
VB6.0でDOMを使用してノードを削除したい
Visual Basic(VBA)
-
17
VB2005でXMLデータから複数ある要素の入れ子を取得する方法
Visual Basic(VBA)
-
18
xmlの値を配列に格納したいんですけどエラーがでてしまう。
Visual Basic(VBA)
-
19
XMLファイル内のデータ(値)を変更するには?
XML
-
20
xmlファイル内の文字列置換
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
ユーザーフォームに別シートか...
-
VB.net(VB)で、フォームにExcel...
-
Excelのマクロについて教えてく...
-
エクセルの合計を自動で表示さ...
-
Excelのマクロでワードのテキス...
-
VBAの計算で@が出てしまう件
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
左右の表のキー位置を合わせたい
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
VBA レジストリの値の読み方に...
-
2つのマクロでチェックボックス...
-
Vba SelStart、SelLen教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報