• 締切済み

エクセルVBAでフォルダ内にテキストファイルを格納

例示の表データからテキスト(HTML)ファイルを生成し、特定のフォルダヘ格納したい。 ファイル名はすべて index.html とする。 エクセルは2003 フォルダは作成ずみ デスクトップ>zenkoku>kanagawa>kanagawa01>kanagawa01A 分類方法については、 ・大分類:県ごと ・中分類:20社ごと ・小分類:1社ごと テキストHTMLファイルの作成パターンは2つ パターン(1) 中分類のフォルダに格納 ・「会社名」と「住所」の2つの項目 ・20社ごとにファイルを作成 ・ファイル名は index.html パターン(2) 小分類のフォルダに格納 ・「会社名」「住所」「電話番号」の3つの項目 ・1社ごとにファイルを作成 ・ファイル名は index.html

みんなの回答

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.8

止まった時に、黄色くなってる行の strPath にカーソル乗せたら 値が見えますよ。 #5さんの言われるよう、パスのどれかが存在してないハズ 画面下側のイミディエイトウインドウ内で Print strPath でもOK 同じように、Print i って入力して何行目なのかも確認

value100100
質問者

お礼

ありがとうございました。

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.7

#3補足で、「エラー行が特定できない」とありますが、 ScreenUpdating= Falseなどの画面抑制するようなコードは書いてませんよ? 発生するであろうモジュールのmyPath=の行にカーソル置いてF9キー押下して ブレーク行として下さい。(赤くなる。解除は再押下) 実行したら上記行で止まるから、F8キー押下して下さい。一行ずつ実行します。 それでも進めなくなる行に原因があります。 飽きたらF5キー押下で一気に実行できますし、 止めたいならテープレコーダーと同じで■を押して下さい。

value100100
質問者

お礼

回答ありがとうございます。 F8キーを押して1行ずつ実行してみました。 ' 出力ファイルを開く Open strPath & "\index.html" For Output As #nFile 上記の箇所で以下のようなエラー表示が出ました。 実行時エラー'76': パスが見つかりません。

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.6

> デスクトップ>zenkoku>kanagawa>kanagawa01>kanagawa01A 掘ったフォルダと一致してますか? 画像見てたら「列F[小分類]末尾の英字が全角」じゃあるまいか?

value100100
質問者

お礼

回答ありがとうございます。 見た目は全角に見えますが、半角になっていました。 まぎらわしくて申し訳ございません。

  • akito0417
  • ベストアンサー率20% (55/266)
回答No.5

指定してるパスが違うんじゃないの? 指定してるパスを標準出力なりして、コピって、貼付けてそのフォルダにいけますか? 行けないからパスが見つからないって言われてるんだろうけど。 正しいパスを指定すれば、エラーは解決するはずです。 回答のソース及び変えたと言ってるソースみてないですが、良くパスがないと怒られる原因 ・指定した最後のフォルダは、実際ちゃんとありますか? ・ファイルを保存しようとしてるパスが動的にかわってませんか?(変わるのは構わないけど、指定してるパスは実ディレクトリとして存在する必要がある) ・ファイルを保存してるつもりが、開こうとしてませんか? こんくらいですかね、思いつくのは

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.4

Sub HTMLファイル出力改_小分類用()  Dim myPath As String  Dim i As Long  Dim strPath as string  'HTML出力ファイルのパス  dim nFile as long   'ファイルハンドル  dim nCount as long   '20社判定  ’環境変数からデスクトップフォルダへのパスを定義する  myPath = Environ("USERPROFILE") & "\Desktop\Zenkoku\"  ’なんとなくソートする  ’フォルダは要件に記載のとおり、正確に作成されていることを期待  Range("A:F").Sort Key1:=Range("E2"), Key2:=Range("F2"), _    Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom  nCount = 0    For i = 2 To Range("F1").End(xlDown).Row   ' ブレーク判定1:前行と現在行を比較する   '  処理が必要なのは「初回」または「20社単位名が変わる」   '  ※初回は見出し行≠データ1行目であること   ' 1社の場合   If nCount = 0 or Range("E" & i - 1).Text & "|" & Range("F" & i - 1).Text <> Range("E" & i ) & "|" & Range("F" & i ).Text Then        'ファイルハンドルの空きを取得    nFile = freefile()    '-出力パスの作成--ここから---------------------------------    ’ 1社の場合    strPath = myPath & Range("E" & i).Text & "\" & Range("F" & i).Text "\" & Range("G" & i).Text    '-出力パスの作成--ここまで---------------------------------    ' 出力ファイルを開く    Open strPath & "\index.html" For Output As #nFile    '-1社共通部分1出力--ここから---------------------------------    Print #nFile, "<!DOCTYPE html>" & vbNewLine _      & "<html lang=""en"">" & vbNewLine _      & "<body>" & vbNewLine _      & "<div class=""span3"" id=""sidebar"">" & vbNewLine    '-1社共通部分1出力--ここまで---------------------------------    nCount = 0   End If   '-1社個別部分出力--ここから---------------------------------   Print #nFile, vbNewLine _     & "<div class=""widget"">" & vbNewLine _     & "<h4 class=""widgetTitle"">" & Range("A" & i) & "</h4>" & vbNewLine _     & "<ul><li>" & Range("B" & i) & "</li>" & vbNewLine _     & "<li>" & Range("C" & i) & "</li></ul></div>" & vbNewLine   '-1社個別部分出力--ここまで---------------------------------   ’20社単位の出力件数をインクリメント   nCount = nCount + 1   ' ブレーク判定2:現在行と次行を比較する   '  処理が必要なのは「次行は20社単位名が変わる」または「先ほどの出力が20社目」   '  ※データ最終行の次行は空白等であること   ’ 1社の場合   If Range("E" & i).Text & "|" & Range("F" & i).Text <> Range("E" & i + 1) & "|" & Range("F" & i + 1).Text Then    '-1社共通部分2出力--ここから---------------------------------    Print #nFile, "</div>" & vbNewLine & "</body>" & vbNewLine & "</html>"    ' 出力ファイルを閉じる    Close #nFile    nCount = 0    '-1社共通部分2出力--ここまで---------------------------------   End If  Next i End Sub

value100100
質問者

お礼

「パスが見つかりません」というエラーが出ます。 そこで Sub Sample() Dim Path As String, WSH As Variant Set WSH = CreateObject("WScript.Shell") Path = WSH.SpecialFolders("Desktop") & "\zenkoku\" ActiveWorkbook.SaveAs Path & "Sample.xls" Set WSH = Nothing End Sub というものでためしてみると問題なくファイルが作成できたので、 大分類用の部分だけを以下のように、すこし変更してみたのですが、 それでも「パスが見つかりません」というエラーが出て先に進めずにいます。 私の知識では解決できないでいます。 Sub HTMLファイル出力改_大分類用() Dim myPath As String Dim i As Long Dim strPath As String 'HTML出力ファイルのパス Dim nFile As Long 'ファイルハンドル Dim nCount As Long '20社判定 Dim Path As String, WSH As Variant '環境変数からデスクトップフォルダへのパスを定義する Set WSH = CreateObject("WScript.Shell") myPath = WSH.SpecialFolders("Desktop") & "\zenkoku\" ~これより以下は変更せず~

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.3

Sub HTMLファイル出力改_中分類用()  Dim myPath As String  Dim i As Long  Dim strPath as string  'HTML出力ファイルのパス  dim nFile as long   'ファイルハンドル  dim nCount as long   '20社判定  ’環境変数からデスクトップフォルダへのパスを定義する  myPath = Environ("USERPROFILE") & "\Desktop\Zenkoku\"  ’20社単位で処理できるよう、ソートする  Range("A:F").Sort Key1:=Range("E2"), Key2:=Range("F2"), _    Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom  nCount = 0    For i = 2 To Range("F1").End(xlDown).Row   ' ブレーク判定1:前行と現在行を比較する   '  処理が必要なのは「初回」または「20社単位名が変わる」   '  ※初回は見出し行≠データ1行目であること   ' 20社の場合   If nCount = 0 or Range("E" & i - 1).Text <> Range("E" & i ).Text Then        'ファイルハンドルの空きを取得    nFile = freefile()    '-出力パスの作成--ここから---------------------------------    ’20社の場合    strPath = myPath & Range("E" & i).Text & "\" & Range("F" & i).Text    '-出力パスの作成--ここまで---------------------------------    ' 出力ファイルを開く    Open strPath & "\index.html" For Output As #nFile    '-20社共通部分1出力--ここから---------------------------------    Print #nFile, "<!DOCTYPE html>" & vbNewLine _      & "<html lang=""en"">" & vbNewLine _      & "<body>" & vbNewLine _      & "<div class=""span3"" id=""sidebar"">" & vbNewLine    '-20社共通部分1出力--ここまで---------------------------------    nCount = 0   End If   '-20社個別部分出力--ここから---------------------------------   Print #nFile, vbNewLine _     & "<div class=""widget"">" & vbNewLine _     & "<h4 class=""widgetTitle"">" & Range("A" & i) & "</h4>" & vbNewLine _     & "<ul><li>" & Range("B" & i) & "</li>" & vbNewLine _     & "<li>" & Range("C" & i) & "</li></ul></div>" & vbNewLine   '-20社個別部分出力--ここまで---------------------------------   ’20社単位の出力件数をインクリメント   nCount = nCount + 1   ' ブレーク判定2:現在行と次行を比較する   '  処理が必要なのは「次行は20社単位名が変わる」または「先ほどの出力が20社目」   '  ※データ最終行の次行は空白等であること   ' 20社の場合   If Range("E" & i).Text <> Range("E" & i - 1).Text or nCount = 20 Then    '-20社共通部分2出力--ここから---------------------------------    Print #nFile, "</div>" & vbNewLine & "</body>" & vbNewLine & "</html>"    ' 出力ファイルを閉じる    Close #nFile    nCount = 0    '-20社共通部分2出力--ここまで---------------------------------   End If  Next i End Sub

value100100
質問者

補足

「パスが見つかりません」というエラーが出ます。 エラーの場合、通常ですと黄色くなって場所がわかるのですが、 表示がでるだけなので、場所を特定することができません。 パスのことなので、 ’環境変数からデスクトップフォルダへのパスを定義する  myPath = Environ("USERPROFILE") & "\Desktop\Zenkoku\" の箇所なのでしょうか? もう少し調べてみます。

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.2

文字数制限に引っかかったので、3分割します。 sub 実行()  'これを呼び出してください  call Sub HTMLファイル出力改_大分類用  call Sub HTMLファイル出力改_大分類用  call Sub HTMLファイル出力改_小分類用 end sub Sub HTMLファイル出力改_大分類用()  Dim myPath As String  Dim i As Long  Dim strPath as string  'HTML出力ファイルのパス  dim nFile as long   'ファイルハンドル  dim nCount as long   '20社判定  ’環境変数からデスクトップフォルダへのパスを定義する  myPath = Environ("USERPROFILE") & "\Desktop\Zenkoku\"  ’都道府県別に処理できるよう、ソートする  Range("A:F").Sort Key1:=Range("D2"), Key2:=Range("E2"), _    Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom  nCount = 0    For i = 2 To Range("F1").End(xlDown).Row   ' ブレーク判定1:前行と現在行を比較する   '  処理が必要なのは「都道府県が変わる」   '  ※初回は見出し行≠データ1行目であること   If nCount = 0 or Range("D" & i - 1).Text <> Range("D" & i ).Text Then        'ファイルハンドルの空きを取得    nFile = freefile()    '-出力パスの作成--ここから---------------------------------    ’20社の場合    strPath = myPath & Range("D" & i).Text    '-出力パスの作成--ここまで---------------------------------    ' 出力ファイルを開く    Open strPath & "\index.html" For Output As #nFile    '-都道府県別1出力--ここから---------------------------------    Print #nFile, "<!DOCTYPE html>" & vbNewLine _      & "<html lang=""en"">" & vbNewLine _      & "<body>" & vbNewLine _      & "<div class=""span3"" id=""sidebar"">" & vbNewLine    '-都道府県別1出力--ここまで---------------------------------    nCount = 0   End If   '-個別部分出力--ここから---------------------------------   Print #nFile, vbNewLine _     & "<div class=""widget"">" & vbNewLine _     & "<h4 class=""widgetTitle"">" & Range("A" & i) & "</h4>" & vbNewLine _     & "<ul><li>" & Range("B" & i) & "</li>" & vbNewLine _     & "<li>" & Range("C" & i) & "</li></ul></div>" & vbNewLine   '-個別部分出力--ここまで---------------------------------   ’出力件数をインクリメント 尤も意味は無い   nCount = nCount + 1   ' ブレーク判定2:現在行と次行を比較する   ' 都道府県別の場合   If Range("D" & i).Text <> Range("D" & i - 1).Text Then    '-都道府県別2出力--ここから---------------------------------    Print #nFile, "</div>" & vbNewLine & "</body>" & vbNewLine & "</html>"    ' 出力ファイルを閉じる    Close #nFile    nCount = 0    '-都道府県別2出力--ここまで---------------------------------   End If  Next i End Sub

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

なるほど。ID変えたのだから仕切直しということですね。 例示のデータの6行目~7行目でしか、同一都道府県下の中分類が出てませんよ。 条件として「同一都道府県下で、20社を越えて処理が必要となることは無い」が抜けてる。 でなければ21社あったら2個目のファイル名はどうする? 前問(他人様?)で中分類+小分類もコメント行で記述したんだが 参考にすらなりませんでしたか。 列D(大分類)も判断条件に加えるだけですよ

参考URL:
http://okwave.jp/qa/q8806227.html

関連するQ&A

  • エクセル2003 VBAでフォルダ内にファイル格納

    作成してあるフォルダの中にテキストファイル(html)を格納する事は可能でしょうか。 フォルダはすでに作成してあります。 デスクトップ>zenkoku>kanagawa>kanagawa01>kanagawa01A ファイル名はすべて index.html   (1)「kanagawa02」フォルダには 会社名と住所とF列の値(20社分)   →20社ごとに01、02、03 となっています。 (2)「kanagawa02A」フォルダには 会社名と住所と電話番号(1社分のみ) ※以下は 会社と住所のHTMLファイル((1)の例)です。 <!DOCTYPE html> <html lang="en"> <body> <div class="span3" id="sidebar">   <div class="widget">   <h4 class="widgetTitle">HHH病院</h4>   <ul><li>神奈川県横浜市</li>   <li>kanagawa02A</li></ul></div>   <div class="widget">   <h4 class="widgetTitle">株式会社III</h4>   <ul><li>神奈川県横浜市</li>   <li>kanagawa02B</li></ul></div>   (20社分) </div> </body> </html> ※以下は 会社と住所と電話番号のHTMLファイル((2)の例)です。 <!DOCTYPE html> <html lang="en"> <body> <div class="span3" id="sidebar">   <div class="widget">   <h4 class="widgetTitle">HHH病院</h4>   <ul><li>神奈川県横浜市</li>   <li>電話番号</li></ul></div> </div> </body> </html>

  • エクセル2003 VBAでファイルのフォルダを作成

    会社の一覧があるのですが企業数が増えてきたのでフォルダを作成して分類しようと考えています。 一覧表には「県ごと」「20社ごと」「1社ごと」にコードが割り振られています。 以下のようなフォルダの構成にしたいのですが、VBAによって自動的にフォルダ作成することは可能でしょうか。 zenkoku > hokkaido        miyagi        chiba        mie        kanagawa > kanagawa01 > kanagawa01A           ・    kanagawa02 > kanagawa02A           ・       ・     kanagawa02B           ・           ・ 1県あたりに20社以上ある場合は、kanagawa01、kanagawa02 となっています。 元のエクセルのデータがソートされてもOKです。                           

  • エクセルでフォルダとファイルを作りたい

    お世話になります。 エクセル2007で質問です。 下記のような表をエクセルで作り、A列の名称でフォルダを作り、 そのフォルダの中にすべて同じファイル名のテキストファイルを作り、 その内容をB列の文字としたいのですが、マクロなどでの作成方法を教えてくだい。 A列 B列 a1  ああああああ a2  いいいい a5  かかかかか いままで使っていたマクロはテキストのファイル名がすべてバラバラだった ので同じフォルダ内に書き出していましたが、変更があり同じファイル名で内容が 違うデータが必要となってしまいましたので、違う名称のフォルダの中に、 同じ名称のテキストデータを格納したいと思っています。 テキストデータの名称は何でもいいです。 作成するデータの数は決まっていなく、最大で1000くらいあります。 ぜひ、ご教授お願いします。

  • csv内に書いてある全テキストデータを、1txtファイル内に格納したい

    csv内に書いてあるテキストデータを、 テキストファイル表に変換・・というツールは見つけたのですが 表ではなく、こちらが指定した表示方法で1txtファイル内に 全テキスト内容を格納したいです。(1項目ずつではなく) 例) 名称,電話番号,住所1,住所2 ○○店,011-○○-○○○,北海道,札幌市 △△店,031-△△-△△△,北海道,苫小牧    ↓↓↓ 表示させるためのテンプレートを自分で作成する テンプレート例) 名称:【名称】店 電話番号:【電話番号】 住所:【住所1】【住所2】    ↓↓↓ 名称:○○店 電話番号:011-○○-○○○ 住所:北海道札幌市 名称:△△店 電話番号:011-△△-△△△ 住所:北海道苫小牧     ・     ・     ・ という感じで、全テキスト内容を 「1txtファイル内に」格納したいです。 色々と調べているんですが、 うーん、これが中々方法が見つかりません^^; どなたか分かる方にお答え頂ければ幸いです。

  • 同じファイル名で違うフォルダーに格納するには?

    同じファイル名で違うフォルダーに格納するには? Excel VBAで、読み取りパスワードの付いたファイルを、読み取りパスワードを削除し同名ファイルで 違うフォルダーに格納するにはどうすればよいのでしょうか?

  • エクセルVBAでフォルダ指定後、フォルダ内のファイル操作について

    あるフォルダ内に大量のフォルダ(フォルダ名は日時)があり、その各フォルダ内にテキストファイルが001.txt、002.txtとあります。 それぞれのテキストファイルの名前をフォルダ名(日時)とテキストファイル名を組み合わせたファイル名にしたいです。 イメージ)  最初に大元のフォルダを選択。     ↓  選択されたフォルダ内にある大量のフォルダから  それぞれのフォルダ名をフォルダ内のテキストファイルへファイル名を変更する。 例)フォルダ名「2006-08-28 11-30」   テキスト名「001.txt」   このファイルを「2006-08-28 11-30-001.txt」 みたいにしたいです。 非常にわかりにくいかもしれません。。 これができると非常に助かりますので、是非ご教示お願いします。

  • エクセルVBAでブックのデータをテキストファイルに

    エクセル「Excel2003」ブックのデータを仕分けしてテキストファイルを作成する。 住所録(全国一覧表:シート1枚に記載)があります。 住所ごとにデータを分けて、個別のテキストファイルを作成する ※テキストファイルのファイル名は地域コード(英数字)にする。  tokyo.html ※テキストファイルの種類は、HTMLファイル ※住所録の項目は、  会社名、住所、電話、FAX、担当者、地域コード の6個 ※HTMLファイルに表示させるのは地域コードを除いた5項目 ※以下は、HTMLファイルの例になります。 <!DOCTYPE html> <html lang="en"> <body> <div class="span3" id="sidebar"> <div class="widget"> <h4 class="widgetTitle">会社名1</h4> <ul><li>住所1</li> <li>電話番号1</li> <li>ファックス1</li> <li>担当者1</li></ul></div> <div class="widget"> <h4 class="widgetTitle">会社名2</h4> <ul><li>住所2</li> <li>電話番号2</li> <li>ファックス2</li> <li>担当者2</li></ul></div> <div class="widget"> <h4 class="widgetTitle">会社名3</h4> <ul><li>住所3</li> <li>電話番号3</li> <li>ファックス3</li> <li>担当者3</li></ul></div> <div class="widget"> <h4 class="widgetTitle">会社名4</h4> <ul><li>住所4</li> <li>電話番号4</li> <li>ファックス4</li> <li>担当者4</li></ul></div> <div class="widget"> <h4 class="widgetTitle">会社名5</h4> <ul><li>住所5</li> <li>電話番号5</li> <li>ファックス5</li> <li>担当者5</li></ul></div> <div class="widget"> <h4 class="widgetTitle">会社名6</h4> <ul><li>住所6</li> <li>電話番号6</li> <li>ファックス6</li> <li>担当者6</li></ul></div> </div> </body> </html>

  • エクセルVBAで住所録からテキストファイルを作成

    住所録を分類(大中小の3つ)して、それぞれの名前でファイルを作成しています。 旧)中分類のファイル名で「chu」フォルダ内にHTMLファイルを作成   小分類のファイル名で「sho」フォルダ内にHTMLファイルを作成 これを以下のように改変したいと思っております。 新)大分類の名前のフォルダを作成して、   そのフォルダの中に該当する分だけの「中分類のファイル」を作成   同じフォルダの中に該当する分だけの「小分類のファイル」を作成 当方まったくの初心者なので、手も足も出ませんでした。 どうかご教授よろしくお願いいたします。 Sub 中分類HTMLソース() Dim fso As Object 'ファイルシステムオブジェクト Dim strPath As String '削除対象ファイル Set fso = CreateObject("Scripting.FileSystemObject") strPath = Environ("USERPROFILE") & "\Desktop\chu\*.*" fso.DeleteFile strPath, True Set fso = Nothing 'ファイルの削除(読み取り専用の場合も削除) Dim myPath As String Dim i As Long myPath = Environ("USERPROFILE") & "\Desktop\chu\" Range("A:I").Sort Key1:=Range("H2"), Header:=xlYes, MatchCase:=False, _ Orientation:=xlTopToBottom For i = 2 To Range("H1").End(xlDown).Row If Range("H" & i).Text <> Range("H" & i - 1).Text Then Open myPath & Range("H" & i).Text & ".html" For Output As #1 Print #1, "<!DOCTYPE html>" & vbNewLine _ & "<html lang=""en"">" & vbNewLine _ & "<body>" & vbNewLine _ & "<div class=""span3"" id=""sidebar"">" & vbNewLine End If Print #1, "<div class=""widget"">" & vbNewLine _ & "<h4 class=""widgetTitle"">" & Range("A" & i).Text & "</h4>" & vbNewLine _ & "<ul><li>" & Range("B" & i).Text & "</li>" & vbNewLine _ & "<li><a href=""/sho/" & Range("I" & i).Text & ".html"">連絡先・地図はこちら</a></li></ul></div>" & vbNewLine If Range("H" & i).Text <> Range("H" & i + 1).Text Then Print #1, "</div>" & vbNewLine & "</body>" & vbNewLine & "</html>" Close #1 End If Next End Sub Sub 小分類HTMLソース() Dim fso As Object 'ファイルシステムオブジェクト Dim strPath As String '削除対象ファイル Set fso = CreateObject("Scripting.FileSystemObject") strPath = Environ("USERPROFILE") & "\Desktop\sho\*.*" fso.DeleteFile strPath, True Set fso = Nothing 'ファイルの削除(読み取り専用の場合も削除) Dim myPath As String Dim i As Long myPath = Environ("USERPROFILE") & "\Desktop\sho\" Range("A:I").Sort Key1:=Range("I2"), Header:=xlYes, MatchCase:=False, _ Orientation:=xlTopToBottom For i = 2 To Range("I1").End(xlDown).Row If Range("I" & i).Text <> Range("I" & i - 1).Text Then Open myPath & Range("I" & i).Text & ".html" For Output As #1 Print #1, "<!DOCTYPE html>" & vbNewLine _ & "<html lang=""en"">" & vbNewLine _ & "<body>" & vbNewLine _ & "<div class=""span3"" id=""sidebar"">" & vbNewLine End If Print #1, "<div class=""widget"">" & vbNewLine _ & "<h4 class=""widgetTitle"">" & Range("A" & i).Text & "</h4>" & vbNewLine _ & "<ul><li>" & Range("B" & i).Text & "</li>" & vbNewLine _ & "<li>" & Range("C" & i).Text & "</li>" & vbNewLine _ & "<li>" & Range("D" & i).Text & "</li>" & vbNewLine _ & "<li>" & Range("E" & i).Text & "</li></ul></div>" & vbNewLine If Range("I" & i).Text <> Range("I" & i + 1).Text Then Print #1, "</div>" & vbNewLine & "</body>" & vbNewLine & "</html>" Close #1 End If Next End Sub

  • (VBA)フォルダの中の複数のテキストファイルをエクセルに取り込みたい

    フォルダの中に複数のテキストファイルがあります。 それをVBAで1シートに1テキストファイルづつで取り込んで(区切り文字(#)、列のデータ形式(文字列)を指定して)作成済みのマクロを実行し、出力させたいのですが。。 データが大きいので5シートで1つのファイルにしたいです。フォルダの中にはテキストファイルが100ほどあるので、結果、エクセルファイルが20できればいいのですが。。 できればデスクトップに新しいフォルダが作成されてその中に出力されていくようにしたいです。 お力を貸してください。よろしくお願いします。

  • VBAでテキストファイルをEXCELに取り込む方法

    VBA初心者です。下記の要件の動きについてどう組めば良いのかほぼ???の為、どなたか回答よろしくお願いします。 ・インポート時はテキストを毎回選択する。←これは何とか実装できています。 ・インポートされたテキストファイルは「テキストファイル名」で別作成する。このインポート先Excelファイルには項目は定型で作成されており、行途中から、データの貼り付けを行いたい。 ・このExcelファイルには罫線を挿入したい。 以上です。何だか詳しい内容がかけなくてゴメンナサイ!