[[20080605223433]]　『Webページで保存時のページタイトル設定』（makirin）　ページの最後に飛ぶ

『Webページで保存時のページタイトル設定』（makirin）

 [エクセルのバージョン]
 Excel2003
 [OSのバージョン]
 WindowsXP

 ページタイトルの"変更"ではなく、ページタイトルの"設定"をしたいのですが
 どのようにしたら可能ですか？

 更新（保存）する都度にページタイトルを変更するのが、面倒なので
 "設定"をしたいのです。

 保存についてVBAのコードで実行しようと検討中で
 save as でファイル形式をhtmlにして保存を実行する事が可能となったのですが
 ページタイトルの変更部分が実行できず・・・。
 あらかじめ、ページタイトルを設定しておけばＯＫかなぁと考えています。

 ちなみに、マクロの自動記録でコードを見てみても
 ページタイトルの変更部分については、何も書かれていませんが
 マクロを実行すると、ちゃんとページタイトルは希望通り変更されています

 この記録したマクロを実行するようにすればいいのかなぁ。
 そうするにしても、その方法がわかりません・・・。
 (html化したいファイルとは別のファイルでVBAのコードを記述しているので）

 いずれにしても、希望のページタイトルでhtml化する事を自動化したいのです。

 よろしくお願いいたします。

 操作のすべてがマクロとして記録されるとは限りませんが、
 今回のページタイトルもそういった、記録対象外の操作のようです。

 ファイル名の指定と、ページタイトルはどのように行う予定でしょうか。
 両方のデータが把握できているなら、下記のようなコードを追加してあげれば、
 タイトルが設定できると思います。

 HTML を作成するマクロの最後に、下記のような処理を追加したらどうでしょうか。

 htmlFileName = "C:\test.htm"     '--- 作成したファイルの名前を入れる
 htmlTitle = "my Title"           '--- タイトルにつけたい名前を入れる

 With CreateObject( "Scripting.FileSystemObject")
     txt = .OpenTextFile( htmlFileName ).ReadAll
     If InStr( txt, "<title>" ) = 0 Then
         txt = Replace( txt, "</head>", _
             "<title>" & htmlTitle & "</title>" & vbNewLine & "</head>" )
         .CopyFile htmlFileName, htmlFileName & ".bak"
         .CreateTextFile( htmlFileName, True ).Write txt
     End If
 End With

 この処理は作成した htm ファイルを更新するので、処理の前に対象のファイルを
 閉じておく必要があります。
 (Mook)

 Mook様

 なるほどぉ～、HTMLのソースに直接タグを追加しちゃえばいいんですね。
 テキストファイルで開けばソース変更できますものね。
 この発想力、感動です！

 案外他にも応用できそうですね。
 今回の件は、これでバッチリ解消しました！
 ありがとうございます。

 (makirin)

コメント返信：

[ 一覧(最新更新順) ]

[[20080605223433]] 『Webページで保存時のページタイトル設定』（makirin） ページの最後に飛ぶ

[[20080605223433]]　『Webページで保存時のページタイトル設定』（makirin）　ページの最後に飛ぶ