Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70967 / 76734

←次へ　｜　前へ→


	【10269】Re:ファイルを開いたときに

YOSHI - 04/1/15(木) 0:45 -


	引用なし

	パスワード

▼かみちゃんさん　keinさん　：
返信本当にありがとうございます。とても勉強になりました。
教えていただいたものを使ってテキストファイルを開く事が出来ました。

ですが、今度は最後に使い終わったデータファイルを閉じようとしたのですが、
どうしても閉じてくれません。いろいろ調べたのですが、どうしても
わかりません。これが最後の質問になると思います。　
最後まで私にお力をお貸し下さい。よろしくお願いします。

>'最新のテキストファイルを取得する。
>　 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

2 hits

▼

【10205】ファイルを開いたときに YOSHI 04/1/12(月) 2:47