Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13142 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6823】FileName にセルの値は取得できますか？ katakana 03/8/5(火) 10:02 質問
【6826】Re:FileName にセルの値は取得できますか？ GG 03/8/5(火) 11:16 回答
【6827】Re:FileName にセルの値は取得できますか？ katakana 03/8/5(火) 11:49 お礼
【6823】FileName にセルの値は取得できますか？
質問  katakana  - 03/8/5(火) 10:02 -
引用なし
パスワード
   Application.FileSearchを使ってファイルを検索したいのですが、
.FileName = "cmd*.*"の条件を関数を使ってセルの値を取得する事はできるのでしょうか？

Set fs = Application.FileSearch
With fs
　　.LookIn = "C:\My Documents"
　　.FileName = "cmd*.*"
　　If .Execute > 0 Then
　　　　MsgBox .FoundFiles.Count & _" 個のファイルが見つかりました。"
　　　　For i = 1 To .FoundFiles.Count
　　　　　　MsgBox .FoundFiles(i)
　　　　Next i
　　Else
　　　　MsgBox "検索条件を満たすファイルはありません。"
　　End If
End With
【6826】Re:FileName にセルの値は取得できますか？
回答  GG  - 03/8/5(火) 11:16 -
引用なし
パスワード
   こんにちわ。

>.FileName = "cmd*.*"の条件を関数を使ってセルの値を取得する事はできるのでしょうか？

関数を使ってというのは分かりませんが、
　　.FileName = ActiveSheet.Range("A1")
とすればアクティブなシートのセルA1の値で検索できると思います。
【6827】Re:FileName にセルの値は取得できますか？
お礼  katakana  - 03/8/5(火) 11:49 -
引用なし
パスワード
   GGさんこんいちは。
上手くいきました、本当に有難うございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13142 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free