![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
仕事場で前任者が下記のようなマクロを組んでいたのですが、「FileSearch」が使用できなくなり、なおさなくてはいけなくて困ってます。
指定の保存先から、アクティブセルと同じ保存名のファイル(エクセル)を開く内容なのですが、お分かりになるかた知恵を拝借願いますでしょうか?
素人なので、できれば専門用語じゃない回答をいただけるとありがたいです。
よろしくお願い致します。
Dim p As Range
For Each p In Selection
If p = "" Then
Exit Sub
End If
With Application.FileSearch
.Filename = p
.LookIn = "保存先"
.SearchSubFolders = True
.LastModified = msoLastModifiedAnyTime
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = xt
.Execute
For Each f In .FoundFiles
Workbooks.Open f
Next f
End With
Next p
End Sub
No.4ベストアンサー
- 回答日時:
こんにちは。
OSやExcel のバージョンが書いていないようですが、FileSearch は、Windows のアップデートと共に壊れることがあります。FileSearch は、Excel のバージョンとOSに依存性があります。VBAを長くしている人なら、FileSearch は壊れることは経験しているはずです。私のも壊れていましたし、他の方も壊れていました。その場合は、他のOffice 系の検索機能も壊れています。いくらやっても元通りにはなりません。だから、Office 2007 では、なくすことになっているはずです。
いくらやっても、Coreプログラムとの結びつきがダメなら、FileSearchは完全に動きません。もう別のコードを考えるしかありません。
こんにちは。
早々の回答感謝致します。
おっしゃる通りで、アップデートと共に壊れてしまいました。
前任者が作成したものをそのまま使ってた為、素人の私が別のコードを考えなくてはならないとゆうピンチが訪れてしまいました。
記述不足で申し訳ございませんでした、OSはXP、Office2007になります。
つくりなおしたほうがよさそうですね。
色々調べても理解が出来なくて自分でも情けなくなります。
アドバイスありがとうございました。
No.5
- 回答日時:
#3です
>FailSearchメソッドがサポートされなくなったとのこと
そうでしたか、Office 2007を持っていないこともあり知りませんでした
お役に立てず申し訳ありませんでした
Wendy02さんの知識には頭が下がります
今回は勉強になりました
有難う御座いました
No.3
- 回答日時:
>.LookIn = "保存先"
.LookIn = "C:\保存先\"
>.SearchSubFolders = xt
'.SearchSubFolders = xt
以上、2行の修正でうまく行きませんか?
早々の回答ありがとうございます。
私の説明不足です。
Office2007に変更されたところ、FailSearchメソッドがサポートされなくなったとのことで手直しが必要になった次第でした。
せっかくアドバイス頂いたのに大変申し訳ございません、回答感謝致します。
No.2
- 回答日時:
検索すると、結構ヒットするみたいですよ。
調べれば、コピーペーで終わりますよ。
早々の回答いただけたのに返信が遅くなりまして大変申し訳ございません。
アドバイスありがたとうございます。
検索すると、かなりヒットできるのですが・・・理解不足でできません。
コピーペーで出来るのですが、選択したセルの値のファイル名を呼び出すとなるとうまく動作しません。
呼び出すだけだと、うまくいくんですけどね。
文章で手直ししていただくことが可能でしたら、大変ありがたいのですが。
どうぞよろしくお願い致します。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_12.png?5a7ff87)
No.1
- 回答日時:
FileSystemObject を使ってファイル名から探せばいいんじゃないでしょうかね。
サブフォルダー内も検索しているようですから 「FileSystemObject 再帰呼び出し」 あたりで調べれば良いと思います。
早々に回答いただけたのに返信遅くなりまして大変申し訳ございません。
アドバイスありがとうございます。
検索したりして探してヒットはしてるのですが、理解できず使いこなせずです。
せっかく回答いただけたのに申し訳ございません。
「FileSystemObject」と「Dir」まではやってみました。
が組み方が違うようで動きません。
上記の文を変えてアドバイスいただくと大変ありがたいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
読み取り専用ファイルを上書き...
-
コマンドプロンプトでデスクト...
-
VBSでHPを保存するにはど...
-
VBScriptで日本語が変です
-
ファイルのダウンロード保存先...
-
エクセルマクロ PDF出力、CSV出力
-
ExcelVBAでデスクトップのPATH...
-
Excel VBAで作成したマクロをxl...
-
EXCEL VBA Workbook_BeforeSave...
-
HPの1ページだけが白紙で表示さ...
-
VB2005サービスパックのダウン...
-
EclipseでJavaScriptファイルの...
-
VBA メモ帳の上書き保存がしたい
-
Excel2003とWord2003の作動が遅...
-
EXCEL VBAでカンマ区切りCSVフ...
-
タイトルバーやメニューバーの...
-
CFileDialogで保存したい
-
エクセル:マクロ:保存時に連...
-
インストール時、「実行」と「...
-
英語でインストールができない。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAについて
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
Excel VBAで作成したマクロをxl...
-
VBAで、強制保存してブックを閉...
-
コマンドプロンプトでデスクト...
-
ExcelVBAでデスクトップのPATH...
-
VBScriptで日本語が変です
-
vbaでIEの名前を付けて保存(A)...
-
Corel Digital Studioの動画をS...
-
エクセルで「名前を付けて保存...
-
タイトルバーやメニューバーの...
-
CImageのファイル名を指定して保存
-
webページの特定の部分だけ消し...
-
Pivot table で集計されたデー...
-
VBA メモ帳の上書き保存がしたい
-
VB.NETでEXCELファイルを開き、...
-
EclipseでJavaScriptファイルの...
-
VBScriptでのSaveAsについて
-
エクセル:マクロ:保存時に連...
おすすめ情報