HTMLファイルの目次を作る: やむえむのExcel VBAメモ

2010年3月31日 (水)

指定したフォルダ内のHTMLファイルのリンクを一列に並べた
目次のようなHTMLファイルを作ります。

HTMLファイルを作るといっても
タグの生成までで
生成したタグはメモ帳などで
HTML形式で保存してください。

手順は、指定したフォルダ内を
ワイルドカードを使って
「*.htm*」で検索して
見つかったHTMLファイルをリンクにしていきます。

HTML形式の拡張子は
.htmlと.htmの2つあるので、
「*.htm*」で検索すると両方が含まれます。

タグAの属性hrefにファイル名を、
タグAの表示もファイル名にします。

生成したタグはイミディエイトウィンドウに出力します。
これをコピペして使います。

フルパスではなくファイル名だけをhref属性に指定してますので
リンク先のHTMLファイルと同じフォルダ内に
作った目次のHTMLファイルを置きます。

コードはこちら

HTMLファイルの目次を作るコード：
Sub macro100330a() '指定したフォルダ内の 'HTMLファイルの目次を作る SheetAddDel ("macro100330a") Dim MyPath As String, MyFile As String Dim MyHTML As String Dim i As Integer MyHTML = "<HTML><BODY>" & Chr(10) 'フォルダを指定する MyPath = "C:\" 'ファイルの有無を確認 With Application.FileSearch .LookIn = MyPath ' .Filename = ".htm" If .Execute() > 0 Then MsgBox .FoundFiles.count & _ " 個のファイルが見つかりました。" For i = 1 To .FoundFiles.count MyHTML = MyHTML & "<A href = " & Chr(34) _ & Dir(.FoundFiles(i)) & Chr(34) & ">" _ & Dir(.FoundFiles(i)) & "</A><BR/>" & Chr(10) Next i Else MsgBox "検索条件を満たすファイルはありません。" End If End With MyHTML = MyHTML & "</BODY></HTML>" Debug.Print MyHTML End Sub

実行後のイミディエイトウィンドウの一例
Vba20100331a

これをメモ帳にコピペして
HTML形式で保存すると
指定したフォルダ内のすべてのHTMLファイルのリンクが並んだ
目次ができる。

いつか作ったHTMLファイルやいつか保存したHTMLファイルなど
一個一個開いて見るより便利だと思います。

2010年3月31日 (水) | 固定リンク
Tweet

この記事へのコメントは終了しました。

この記事へのトラックバック一覧です： HTMLファイルの目次を作る:

　記事のコードは，記事内に実行環境の記載がない場合は（Excel2000, winXP）で実行できたコードですが、動作は保証できませんのご注意ください。
　また、コードの実行は自己責任で行ってください。

　ご感想、ご意見、ご指摘などありましたら、コメントをください。