[[20080605223433]] 『Webページで保存時のページタイトル設定』(makirin) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『Webページで保存時のページタイトル設定』(makirin)
 [エクセルのバージョン]
 Excel2003
 [OSのバージョン]
 WindowsXP

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

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

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

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

 この記録したマクロを実行するようにすればいいのかなぁ。
 そうするにしても、その方法がわかりません・・・。
 (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)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.