難題：検索マクロの作成について

質問

最近、ＶＢＡを始めたのですがどれを見ても下記目的のＶＢＡが作成できなくて困っています。どうか、皆様のお知恵をお貸しください。

----------------------------------------------------
■目的
・エクセルにテキストＢＯＸを作成。その中にキーワードを入力し、参照する先のフォルダ内にキーワードと一致したファイルを開きたい。

■状況
フォルダ内にはキーワード＋複数の日付付のファイル（エクセル、ワードなど）があり、同じ名前でも日付入力が異なるファイルが存在。しかし、同じ名前のファイルは形式が統一していて日付だけが違う状況。

例）D:\My Documents\My Files\ ⇒このフォルダ内に
課題_20090423.xls
質問_093012.doc
回答_080911.xls
課題_090511.xls
・
・

などのファイルがあり、テキストＢＯＸには『課題』と入力。その際、「課題_090511.xls」を開くＶＢＡを作成したいと考えております。----------------------------------------------------
ご回答宜しくお願い致します。

回答No.2

temtecomai2 · ベストアンサー

とりあえず、変数 srcFileName にこんな感じのパスが入っているとして、
Dim srcFileName As String
srcFileName = "D:\hoge\課題_20090411.xls"

・ ファイル名から親パスまでの文字列や拡張子を取り除く方法
FileSystemObject を使います。
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim baseName As String
baseName = fso.GetBaseName(srcFileName)
これで baseName には "課題_20090411" が入ります。

・ 日付部分が何文字目から開始されているか調べる方法
"_" の後ろから日付が始まると仮定しました。

Dim startPos As Long
startPos = InStr(baseName, "_") + 1
これで startPos には 4 が入ります。

・ 日付部分を抜き出す方法（とりあえず文字列として取り出す）
数字の部分を取り出します。

Dim datePart As String
datePart = Mid(baseName, startPos)
これで datePart には "20090411" が入ります。

・ 日付文字列を日付に変換する方法
上記の日付文字列を日付型に変換し、比較しやすくします。
yyyymmdd (8文字) と yymmdd (6文字) の両方に対応。

Dim fileDate As Date
If Len(datePart) = 8 Then
(datePart, 1, 4) & "/" & Mid(datePart, 5, 2) & "/" & Mid(datePart, 7, 2)
ElseIf Len(datePart) = 6 Then
fileDate = Mid(datePart, 1, 2) & "/" & Mid(datePart, 3, 2) & "/" & Mid(datePart, 5, 2)
End If

ファイル名から日付部分を日付型のデーターとして取り出す方法を順を追って書きました。
あとはその他のロジックと組み合わせて適当に簡略化してください。
検索にヒットした複数のファイルについて、この方法で日付部分を比較して、ご自分のルールに従った絞込みをすればよいと思います。

・ ファイルを開く方法
対象ファイルの拡張子にあわせ、Windows がプログラムを判断して開く方法を採用。
変数 srcFileName にファイルのフルパスが入っているとして、

最初にファイルのパスを 「短い形式」 に変換する。(いわゆる 8.3 形式)
これも FileSystemObject を使用する。

Dim shortPathName As String
shortPathName = fso.GetFile(srcFileName).ShortPath

次に Shell の Run メソッドでファイルを開く。

Dim wShellObje As Object
Set wShellObje = CreateObject("WScript.Shell")
wShellObj.Run shortPathname, vbNormalFocus, False

健闘を祈ります。

お礼

お礼が遅くなりまして申し訳ございません。
詳しいやり方ありがとうございます。

おかげさまで目的ＶＢＡが作成できました。
まことにありがとうございました。

回答No.1

temtecomai2

検索ルールをはっきりと整理しましょう。
入力したキーワードから始まるファイル名ですか？
入力したキーワードを含むファイル名ですか？
入力したキーワードで終わるファイル名ですか？ → これは無いと思いますが。

"課題" を含むファイル名は "課題_20090423.xls" と "課題_090511.xls" がありますが、なぜ両方ではなく "課題_090511.xls" なのですか？
複数ヒットした場合の特殊なルールがあるのですか？

Word のファイルも提示されていますが、これも開くのですか？（当然 Word ファイルなら Word で）

補足

補足足らずで申し訳ございません。

テキストＢＯＸに入力したキーワードを含み、尚且つ日付けが新しいファイル名を開けるＶＢＡになります。
その際、日付け部分が"xxx_20090901"や"xxx_090501"とまちまちなので検索時にそのバラバラな日付けを比較して日付けが新しいファイルを開きたいのです。

※現状はテキストＢＯＸを作成しキーワードを含むＶＢＡまでは作成いたしました。しかし、"xxx_20090901"や"xxx_090501"といったバラバラな日付けを比較して新しいファイルを開くというＶＢＡが作成できなくて困っています。

フォルダ内にはwordも存在し、wordファイルも同条件となります。
どうかご教授お願い致します。