csv内のソース部分セルをそれぞれhtmlファイルに書き出したい

Question

ECサイト修正の仕事をしております。
商品ページのデータを落としたcsvがあるのですが、そのうちのソース部分のセルを、VBAを用いてすべてそれぞれhtmlファイルに書き出したいです。

例）
商品ID,商品名,ページ内ソース
00001,りんご,<div><p>美味しいリンゴです</p></div>
00002,みかん,<div><p>お得なミカンです</p></div>
・
・
(数百行)

といった形のcsvから、
「<div><p>美味しいリンゴです</p></div>」を○○.htmlに、
「<div><p>お得なミカンです</p></div>」を××.htmlに、としたいのです。

恥ずかしながらVBAやマクロは全くの初心者です。
「エクセル VBA セル htmlファイルに書き出し」等で検索しても、エクセルの表をテーブルに直す等の結果しか見つからず、セルをそれぞれ別ファイルに掃き出し方法がわからないため途方に暮れております。

お優しい方、なんとか処理のコードのヒントを頂けないでしょうか。
どうぞよろしくお願いいたします。

Answer 1

出来るか出来ないかでいえば出来ますね。
質問文が修正されたので追記。
まず下記サイトのサンプルコードを前提として解説します。
Excel VBA テキストファイルで.htmlの雛型を作成する

    Dim strFNAME As String 'ファイル名格納用

    'ブックと同じ位置にtest165.htmlを作成する
    strFNAME = ThisWorkbook.Path & "\test165.html" 'ファイル名の作成
    Open strFNAME For Output As #1 'ファイル番号１で新規作成

ファイルの作成部分はこのコードになります。
VBAはopenの宣言と共にファイルが存在しなければ自動的にファイルが作成されます。（少しラグがありますし同名ファイルが存在すれば動作は変わります）
F8でコードを1行ずつ進めていけばこのタイミングでファイルが生成されているのは確認できます。

質問では1セルごとに作成したいとのことなのですが命名規則などが分からないのでforループで作成します。

Sub test001()

    Dim strFNAME As String 'ファイル名格納用
    
    For i = 1 To 10
    
    'ブックと同じ位置に変数名iの.htmlを作成する
    strFNAME = ThisWorkbook.Path & "\" & i & ".html" 'ファイル名の作成
    Open strFNAME For Output As #1 'ファイル番号１で新規作成

    'データ書き込み、
    Print #1, ActiveSheet.Cells(i, 3).Value
    
    Close #1  '開いたら閉じようね

    Next
End Sub

このコードであればactivesheetのC列を上から10セル分データを書き出します。
また、変数でセル位置も指定しているので中身のデータも個別になっています。
C列に1~10までの数値を入れれば確認できるでしょう。
最終行の取得は
最終行の取得
をみてください。
これで想定通りの動きになりますか？

Comments

[yoshino_hanako]

ありがとうございます。
質問が悪かったですね、書き出す方法を知りたいです。

[退会済みユーザー]

htmlであればtxtやcsvと出力方法は同じです。
vba html 出力あたりで検索すればいろいろ出るでしょう。
下記のサイトを一度見てみては？
https://tonari-it.com/vba-html-table/

質問内容がふわっとしすぎています。
htmlのバージョンもなければ作成したコードもないので何をアドバイスすればいいのかわからない状態です。

[yoshino_hanako]

参考サイトありがとうございます。
ふわっとしていますか？自分で試したコードを書けという事でしょうか。
であればこちらで質問するのは私には早すぎたかもしれませんね。
ご迷惑おかけすると思うのでmsuguru様はこれ以上は大丈夫です、ありがとうございました。

[tomy-c]

https://teratail.com/help/question-tips
何事も初めて触るのなら最低限の説明くらいは見ましょう。
回答者さん達は適当に触っても反応する機械じゃなくて、感情を持ち、思考して、反応する人間です。
ヘルプのトップにある[teratailについて]を見てからあなた自身の質問内容を見直してみて下さい。
プログラムのイメージすら沸かないふわっとした質問ならQiitaの方がいいかもしれません。(teratailは最低限自身が組んだコードを元に詰まったところを聞く形を要求するので。)
https://help.qiita.com/ja/articles/qiita-question-guideline

[yoshino_hanako]

お答え以外は結構です。ありがとうございました。

[退会済みユーザー]

tomy-c様
コメントありがとうございます。
その一言で気持ちが楽になります。

[yoshino_hanako]

もちろん質問者も人間です。
「出来るか出来ないかでいえば出来ますね」のひとことは、あまりにも嫌味でないでしょうか…( ;∀;)
素晴らしい知識をお持ちの方が、なんのためにそのような質問者を見下すためだけのような回答にもならない回答を、わざわざお時間割いていただいてまでいただいたのか理解しかねます。
私の質問の仕方も悪かったと思いますが、それならそれでわざわざ嫌味を書き込みに来ず放っておいてほしかったですね。

[K_3578]

横からで申し訳ありませんが、自分も色んな事をteratailで質問し、回答頂いている立場から少し意見を。

＞「出来るか出来ないかでいえば出来ますね」のひとことは、

自分もこのように回答頂いたことはありますが、最初は嫌味だと思いましたが時間を空けて
から自分の質問を見直して見るとコードを実際に書いている自分では理解出来ても、
質問文のみを見て回答するにはあまりに情報が不足していました。
自分はVBAはからっきしですが、質問文を見てみてもさすがに質問者様の
期待した回答を得るには不十分な内容かと思います。
msuguru様も仰られているようにせめて作成したコードは必要かと思いますので今一度
質問を追記するべきかと。

＞私の質問の仕方も悪かったと思いますが、
自分の非を認められるのは良いことだと思うので、あくまで時間を使ってくださる
回答者様にも敬意を払いながらteratailのルールに則った質問をしてみてはどうでしょうか。

横入りした上に解決策ではなく、個人的な意見を長文で書いてしまった事は
お詫び申し上げます。

[退会済みユーザー]

>「出来るか出来ないかでいえば出来ますね」のひとことは、あまりにも嫌味でないでしょうか…( ;∀;)

情報が不足しているのなら情報が足りませんと伝えるべきでした。
これは私の配慮不足です。
申し訳ありません。

質問が修正されているのを確認したので回答を追記しました。