[[20180207171248]]　『vbaを利用したxml変換について』（gf）　ページの最後に飛ぶ

『vbaを利用したxml変換について』（gf）

vbaを使用しexcelの表をxmlに書き出したいと思っています。

<document>
<data id="1">
<日付>2018/1/1</日付>
<曜日>月</曜日>
<祝日>○</祝日>
</data>
<data id="2">
<日付>2018/1/2</日付>
<曜日>火</曜日>
<祝日></祝日>
</data>
・
・
<data id="31">
<日付>2018/1/31</日付>
<曜日>水</曜日>
<祝日></祝日>
</data>
</document>
にしたいのですがvba初心者のためプログラムがわからない現状です。

＜使用 Excel：unknown、使用 OS：unknown ＞

環境を書いてください。時間をかけてwindows用のコードを書いても、「実はMacでした」なんて事になると、ゴミ化してしまい、がっかりですので。

そして、1セルに1行書かれていて、それが数行あるのでしょうか？シーケンシャルファイルとしてXMLファイルをOpenし、1行ずつ Print し、Close するだけに思います。シーケンシャルファイルの読み書きはコーディングの基本なので、まずはご自分で調べてみてください。

XMLのコード体系と改行コードは何でしょう？ Shift-JISでCRLFならば、このように簡単に作れますが、utf-8だとかLFだけだとかの場合、かなり面倒な事をしないといけませんので、初心者を自称するようでは止めた方が良いです。
（???） 2018/02/07(水) 18:01

返信ありがとうございます。
環境はWindows10、excelは2016です。
A1からC1まで要素名、データはA2から始まっています。

  日付      曜日  祝日   
20181/1     月     ○
    ・
    ・
    ・
2018/1/31   水     ○
となっており、
コード体系はshift-jis
改行コードは\r\nです。

（gf） 2018/02/07(水) 18:50

shift-jisでCRLFのようですね。これなら最初に言った通り、プログラムの基本である、シーケンシャルファイル出力のコードを書くだけなのですけどねぇ？ヒントを与えたのに、これを自力で調べて書けなかったのならば、マクロなんて使おうとしない方が良いように思います。

 Sub test()
    Dim F1 As Integer
    Dim i As Long
    Dim cw As String

    F1 = FreeFile
    Open ThisWorkbook.Path & "\test.xml" For Output As #F1
    Print #F1, "<document>"
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Print #F1, "<data id=""" & i - 1 & """>"
        Print #F1, "<日付>" & Cells(i, "A").Text & "</日付>"
        Print #F1, "<曜日>" & Cells(i, "B").Text & "</曜日>"
        Print #F1, "<祝日>" & Cells(i, "C").Text & "</祝日>"
        Print #F1, "</data>"
    Next i
    Print #F1, "</document>"
    Close #F1
 End Sub
（???） 2018/02/08(木) 10:18

コメント返信：

[ 一覧(最新更新順) ]

[[20180207171248]] 『vbaを利用したxml変換について』（gf） ページの最後に飛ぶ

[[20180207171248]]　『vbaを利用したxml変換について』（gf）　ページの最後に飛ぶ