[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧]
－－＞ No.166 Excel VBA シートをテキストファイルに保存

Excel VBA シートをテキストファイルに保存

発行内容

Excel VBA シートをテキストファイルに保存

どうも、三流プログラマーのＫｅｎ３です。

今回は、
少々の小細工 =B2 & "文字列"とセルに計算式を入れ、
シートを作成します。
そのシートをテキスト保存(名前を.html)してみます。

/*
 * １．今回のキッカケ
*/

前回、
ループで都道府県データを回し、
下記のようなPrint #の羅列でテキストファイルを作成しました。
    'データ書き込み、都道府県だけ変えて作成する
    Print #1, "<html>"
    Print #1, "<head>"
    Print #1, "<title>" & strKEN & " 宿・ホテルの予約／検索</title>"
    Print #1, "</head>"
　　　・
      ・
      ・

すると、読者の心の中からクレームが（実際下記のようなクレームは来てないけど）

あのう～言いにくいんですが、私の上司や同僚はVBAなんて知らないんです。
そうですか、アナタしかＶＢＡを触れない、ＶＢＡなんて知らない、
普通の会社の話ですよね。
（自分ができるからって、みんなができると思うなボケ!!）

雛型を修正する時、alt+F11でVBAの編集画面を開いて、
Print #1, ""の中を修正してと同僚に言ってもたぶんムリです。

結局マスターからのhtml作成作業、誰でもできるようにVBAを作ったつもりが、
修正するのは自分なんてことになりそうです。
これだったら、隣で携帯メールを仕事中に打っている人でもできる、
ファイルをコピーして中身をメモ帳で修正してもらうほうが、私の作業は減ります。

ギク、、確かにＶＢＡでマクロ組んで楽したつもりが、
自分が専任作業者になってしまう、そんなこともありますね・・・

ありますねジャねぇダロ！！コラ、もっと簡単に修正可能にしろよプロだろ。

はぁ、まいったまいった。

-- 余談 逆の専任者を喜ぶ人も居るよ --

誰でもできる（誰でも操作可能な）システムがいいって話だったけど、
人って面白いもので、アナタしかできない、専任者しか動かせないってのを
喜ぶ担当者も居るんだよ。
まったくオレ様が居ないと伝票も発行できないのか、連休とれねえなぁ
と楽しそうに話しているコンピュータ操作が得意なおじさん、意外と多いよ。
まぁ、本題は誰でもできるシステムがいいってことだけど。
誰でもいいのよ と 女性に言われつづけている私も、
アナタじゃなきゃダメと言われてみたいよね（オイオイ話がつながってないよ）
おっと、余談が長いですね。

--

今回は、少し工夫して、シートをマスター的に使って、
そのシートをテキストファイルにしてみたいと思います。

/*
 * ２．VBAの修正が難しい、それならシートを修正させる
*/

マクロは自信なくても、
Excelは得意って人 や 謙虚にExcelの操作ならできます、
そんな社員さんやアルバイトさんが多いと思います。

さすがに、””の中身を修正するだけと言っても、
プログラムを作業者に修正してもらうのは社内の技術担当者として抵抗ありますよね。

そこで、シートを修正してもらう、そんな方式に変えます。

MENU と DATA 2つのシートを作成します。

MENUシートには、
これまでと同様に、都道府県などのマスターデータを置きます。
それと、マクロの起動ボタンを置きます。

DATAシートには、
出力したいHTMLの雛型を書きます。

ここで、１つ細工してほしいのが、
Menu!$B$2 に 動的に変化する都道府県を入れる枠を作ります。
そして、DATAシートでは、="<title>" & Menu!$B$2 & " 旅行～</title>"
と、MENUシートのB2を参照してデータが変わるようにします。

↓作成したMENUシートのイメージ


↓作成したDATAシートのイメージ

↑
文字列として、シートに作成します。
<html>
<head>
="<title>" &MENU!$B$2 & " 宿・ホテルの予約／検索</title>"
</head>
<body>
="<h1>" & MENU!$B$2&" 宿・ホテルの予約／検索</h1>"
=MENU!$B$2&"の宿・ホテルの予約や検索サイトをまとめています<br>"
クリックして探してみてください<br>

あとでここにバナー広告をここに貼る。<br>

</body>
</html>

/*
 * ３．仕込みは終了、シート(A列)を書き出す
*/

MENUのB2に入れた名称で、DATAシート上にHTMLの文章が作成されてます。
あとは、シートをファイルにすればいいので、

'メインのループ
Sub test003_main()

    Dim y As Integer  'ループのカウンター
    
    y = 10  '10行目から
    While Cells(y, "B") <> ""  'B列に何か入っている間ループ
        'ファイル作成のサブ関数に都道府県名とファイル名を渡す
        Call test003_CreateHtmlFile(Cells(y, "B"), Cells(y, "C"))
        y = y + 1
    Wend
    
    MsgBox "作成が終了しましたデータを確認してください"
    
End Sub
↑は、前回と同様で都道府県名とファイル名を下のサブ関数に渡してます。

'都道府県名とファイル名を受け取り、HTMLファイルを作成するサブ関数
Sub test003_CreateHtmlFile(strKEN As String, strHTML As String)
    Dim strFNAME As String 'ファイル名格納用

    '処理する値をB2にセットする B2に県名をセットする
    Sheets("MENU").Range("B2") = strKEN

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

    'データ書き込み、DATAシートの</html>まで
    Dim y As Integer
    For y = 1 To 999 '最大999行まで
        Print #1, Sheets("DATA").Cells(y, "A")
        '書き込みの終了判断を</htmlで行う>
        If Sheets("DATA").Cells(y, "A") = "</html>" Then
            Exit For  'ループを抜ける
        End If
    Next y
    
    Close #1  '開いたら閉じようね

End Sub

MENUシートのB2にデータをセット後、
単純に、DATAシートのA列を書き出してます。
これで、DATAシートを直せば雛型ファイルを
誰でも大量生産できそうです。
^^^^^^

プログラムとデータを切り離す、基本といえば基本なんだけど、
やはり直でPrint #1, "出力データ"と書いてしまったりします。

自分にしかできないプログラム修正もいいけど、
みんなが修正できるシステムも作ってみては？

/*
 * ４．シートをTEXTにする方法をマクロ記録で探る
*/

で、終了してしまうと、面白くないので、
シートをテキストファイルに保存するマクロを探ってみます。

普通に手で操作すると、あれ？
選択したファイルの種類は複数のシートを含むブックをサポートしていません。
と警告が、まぁＯＫ押すと保存されるけど。


↑警告メッセージ

そしたら、
・シートのコピー、新規ブック
・そのシートをテキストタブ区切りで保存
・シートを閉じる
といった流れにするか。

記録すると下記のようになりました。
Sub Macro1()
    Sheets("DATA").Select
    Sheets("DATA").Copy
    ActiveWorkbook.SaveAs Filename:="E:\広告旅行\aaa.html", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWorkbook.Close
End Sub

このままだと、２回目走らせた時に上書確認のメッセージが出るので、

↑上書き確認メッセージ

該当ファイルをKillで消してから、新規に上書きしてみます。
そして.Closeで閉じたときも確認メッセージをキャンセルしてみます。

'都道府県名とファイル名を受け取り、HTMLファイルを作成するサブ関数
Sub test004_CreateHtmlFile(strKEN As String, strHTML As String)
    Dim strFNAME As String 'ファイル名格納用

    '処理する値をB2にセットする B2に県名をセットする
    Sheets("MENU").Range("B2") = strKEN

    'ブックと同じ位置にxxx.htmlを作成したいので
    strFNAME = ThisWorkbook.Path & "\" & strHTML 'ファイル名の作成

    'ファイルが既にあったら消す
    If Dir(strFNAME) <> "" Then
        Kill strFNAME   'Killステートメントでファイルを消す
    End If
    
    'データシートをコピーして新規ブックが作られる
    Sheets("DATA").Copy
    
    'テキスト形式FxlTextで保存する
    ActiveWorkbook.SaveAs Filename:=strFNAME, FileFormat:=xlText

    '保存の確認をしないで終了
    ActiveWorkbook.Close SaveChanges:=False

End Sub

実行すると、画面がチカチカするけど、まぁ、なんとかできました。
んっ？この方法だったら、初めから自分でテキストファイル作らないで、
保存のファイルフォーマットをFileFormat:=xlTextと指定すればよかったってこと？

まぁ、同じ処理でも処理方法はいっぱいあるってことで・・・

/*
 * ５．終わりの挨拶
*/

今回のサンプル、
http://www.ken3.org/vba/lzh/vba166.lzh
に保存しました。
解凍して都道府県.xlsを開いて、
内容を変えたりして、遊んでください。

ポイントは、
別シートに雛型を作り、データを切り替える(貼りかえる)ことで処理しました。

あとは、データとプログラムを切り離す参考、
同じ動作でも、自分でループで回す書き方
と
シートコピー後、ファイルの記録フォーマットを変えるExcel標準関数で処理、
なんて感じで、いろいろあるんだなぁと感じとってもらえれば

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

三流プログラマー Ｋｅｎ３でした。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する

あとは、項目別にMSでお勉強かな？
◆ マイクロソフトサイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジマップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・

Excel VBA シートをテキストファイルに保存

発行内容