Excel VBA質問箱 IV

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

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


13140 / 13644 ツリー ←次へ | 前へ→

【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さんこんいちは。
上手くいきました、本当に有難うございます。

13140 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free