仕事場で前任者が下記のようなマクロを組んでいたのですが、「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
- 回答日時:
検索すると、結構ヒットするみたいですよ。
調べれば、コピーペーで終わりますよ。
早々の回答いただけたのに返信が遅くなりまして大変申し訳ございません。
アドバイスありがたとうございます。
検索すると、かなりヒットできるのですが・・・理解不足でできません。
コピーペーで出来るのですが、選択したセルの値のファイル名を呼び出すとなるとうまく動作しません。
呼び出すだけだと、うまくいくんですけどね。
文章で手直ししていただくことが可能でしたら、大変ありがたいのですが。
どうぞよろしくお願い致します。
No.1
- 回答日時:
FileSystemObject を使ってファイル名から探せばいいんじゃないでしょうかね。
サブフォルダー内も検索しているようですから 「FileSystemObject 再帰呼び出し」 あたりで調べれば良いと思います。
早々に回答いただけたのに返信遅くなりまして大変申し訳ございません。
アドバイスありがとうございます。
検索したりして探してヒットはしてるのですが、理解できず使いこなせずです。
せっかく回答いただけたのに申し訳ございません。
「FileSystemObject」と「Dir」まではやってみました。
が組み方が違うようで動きません。
上記の文を変えてアドバイスいただくと大変ありがたいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでほかのアプリケーシ...
-
VBAで、強制保存してブックを閉...
-
vbaでIEの名前を付けて保存(A)...
-
Pivot table で集計されたデー...
-
ASPでファイルを保存するダイア...
-
VBAでIEの「ファイルのダウンロ...
-
N88 BASICで作成されたEXEのソ...
-
エクセルで「名前を付けて保存...
-
エクセルでファイルの最終更新...
-
AccessVBAでIEを操作、ページ内...
-
読み取り専用ファイルを上書き...
-
タイトルバーやメニューバーの...
-
Excel VBAで作成したマクロをxl...
-
FileSearchが使えなくなり困っ...
-
エクセル:マクロ:保存時に連...
-
【VC++】CDC→WMFファイルに保存...
-
保存をすると再開できる時とで...
-
CrescentEve書き込みモード解除...
-
VBA メモ帳の上書き保存がしたい
-
onedriveで同期解除をしたら、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでファイルの最終更新...
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
Excel VBAで作成したマクロをxl...
-
VBAで、強制保存してブックを閉...
-
Pivot table で集計されたデー...
-
コマンドプロンプトでデスクト...
-
VBScriptで日本語が変です
-
エクセルで「名前を付けて保存...
-
vbaでIEの名前を付けて保存(A)...
-
タイトルバーやメニューバーの...
-
VBScriptでのSaveAsについて
-
VB.NETでEXCELファイルを開き、...
-
VBA メモ帳の上書き保存がしたい
-
意味不明のタグが挿入されてい...
-
エクセル:マクロ:保存時に連...
-
ファイルのダウンロード保存先...
-
AccessVBAでレポートをPDFで出力
-
EclipseでJavaScriptファイルの...
-
「名前をつけてファイルを保存...
おすすめ情報