|
こんにちは。かみちゃん です。
keinさん、フォローありがとうございます。
> この中にどのようにしたらフォルダの更新日時の最新のファイルが開きますでしょうか?
keinさんのコードは、FileSearchオブジェクトを使っていますので、詳しくは、下記のURLでも参照して調べていただきたいのですが、具体的には次のようにします。
http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI06010051
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9192.html
以下の部分を書き換えます。
> DataFileName = "倉庫管理.xls"
>
> 'データファイル = "C:\My Documents\*.f01"
> Path = "C:\My Documents"
> ext_Name = "\*.f01"
> OpenFileName = Dir(Path & ext_Name)
>
> 'データファイルを開き、コピーする
> Workbooks.Open FileName:=Path & "\" & OpenFileName
'最新のテキストファイルを取得する。
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents" ' 検索対象フォルダ
.filename = "*.f01" ' 検索対象ファイル
.LastModified = msoLastModifiedAnyTime
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
x = .FoundFiles.Count
OpenFileName = .FoundFiles(x)
Else
MsgBox "ファイルは見つかりませんでした。"
Exit Sub ' 処理を終了する
End If
End With
'データファイルを開き、コピーする
Workbooks.Open FileName:=OpenFileName
|
|