|
▼かみちゃん さん:
返信ありがとうございます。いろいろ調べたのですが、わかりません。
以前、かみちゃん さんから教えていただいたものを使ってデータファイルを
開いてデータを抽出し、Closeを使ってデータファイルを閉じようとしても
閉じてくれません。どうしたらいいですか?
'最新のテキストファイルを取得する。
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
>何かエラーが出ますか?
>変数OpenFileNameは、どのような値になっているのでしょうか?
|
|