![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
accessvba初心者です。質問なのですが下記のようなxmlファイルがあるとします。
<?xml version="1.0" encoding="shift_jis"?>
<データ>
<aaa>
<bbb>1</bbb>
<ccc>2</ccc>
<ddd>3</ddd>
<eee>4</eee>
<fff>5</fff>
</aaa>
</データ>
これをvbaにて<bbb><ccc><ddd><eee>の内容を取り出し結合して出来た1234をAテーブルのBフィールドにレコード保存したいのですが出来ますでしょうか?
テーブルを開いてフィールドに保存する部分はなんとか理解出来たのですが要素を取り出して結合する部分がわかりません。
access2003を使用しています。よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
ホントに質問にあるような構造の XML だとしての回答。
つまりルートの下に一度だけ <aaa> が出てきて、<aaa> の下に一度だけ <bbb> <ccc> <ddd> <eee> <fff> が出てきて、そのうちの <bbb> <ccc> <ddd> <eee> のテキストを取得する。
Dim xmlValue As String
Dim xmlDoc As MSXML2.DOMDocument
Set xmlDoc = New MSXML2.DOMDocument
If xmlDoc.Load("d:\hoge.xml") Then
xmlValue = xmlDoc.selectSingleNode("データ/aaa/bbb").Text & _
xmlDoc.selectSingleNode("データ/aaa/ccc").Text & _
xmlDoc.selectSingleNode("データ/aaa/ddd").Text & _
xmlDoc.selectSingleNode("データ/aaa/eee").Text
End If
ちなみに参照設定で Microsoft XML,v6.0 を参照している。
Windows 7 64bit で Access 2010 の他に Visual Studio なども入っているので、質問者の環境で一番新しいバージョンの Microsoft XML を参照すればいとおもう。
この回答への補足
ありがとうございます。一度だけしか出てこない場合は出来ました。ほんとうにありがとうざいます。
xmlファイルによっては<aaa>~</aaa>のあとに複数回<aaa>~</aaa><aaa>タグがループして出てくる場合があるのですがそういう場合は一番目の<aaa>タグの中身を1234とし次に2番目に出てきた<aaa>タグの中身を1234・・・とすることは出来ますでしょうか??
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Excel(エクセル) ¥マークを含むパスの処理について(マクロ、または関数) 2 2022/12/25 02:11
- SQL Server ACCESSで複数テーブルを結合して、リストを作る方法を教えてください。 2 2022/08/12 19:32
- その他(データベース) カラム上の重複を削除するクエリを教えてください 3 2022/04/12 14:11
- Visual Basic(VBA) 【VBA】特定の文字で改行(次の行)に行きたい。 3 2022/04/11 17:20
- JavaScript 指定したパスが現URLに含まれていたら特定要素を削除するJavascriptのコードを教えてください 2 2023/04/27 17:58
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- Perl perl このテキストファイルを簡単に配列に入れるには? 2 2022/04/27 20:24
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】ステータスバーについて...
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
Excel VBA 選択範囲の罫線色の...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
ExcelVBA修正のお願い
-
エクセルのVBAコードについて教...
-
VBAコードについて教えてくださ...
-
マクロの記録を使用したマクロ...
-
【ExcelVBA】インデックスが有...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
現在のブックを閉じないで、マ...
-
重複確認
-
VBAでCOPYを繰り返すと、処理が...
-
VBA 別ブックからコピペしたい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6のオラクルのバインド変数
-
指定文字を太字にするVBAを別シ...
-
Pro*Cの大文字小文字
-
複数のデータテーブルのデータ...
-
配列への分割方法
-
VBA 条件に合わせたデータ抽出
-
SQL構文
-
oo4oを使ったOracleへのデータ...
-
SQLローダーCSV取込で、囲み文...
-
select文の実行結果に空白行を...
-
テーブルの最後(最新)のレコー...
-
単一グループのグループ関数で...
-
【PL/SQL】FROM区に変数を使う方法
-
SQL*Loader Append
-
count関数の値をwhere句で使用...
-
Oracleで「文字が無効です」の...
-
where句中のtrim関数について
-
AccessのSQL文で1件のみヒット...
-
group byの並び順を変えるだけ...
-
2つの列が同じ値の行を取得するSQL
おすすめ情報