Excel VBA質問箱 IV

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

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


65088 / 76732 ←次へ | 前へ→

【16219】Re:フォルダ内のファイルを順に処理
回答  でん  - 04/7/21(水) 10:30 -

引用なし
パスワード
   tomo さん こんにちは。

こんなんではどう?

Sub FileSearch()
  Set fs = Application.FileSearch
  With fs
    .LookIn = "c:\test"
    .Filename = "*.xls"
    .SearchSubFolders = True
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
      For i = 1 To .FoundFiles.Count
        Workbooks.Open .FoundFiles(i)
        MsgBox .FoundFiles(i) & " を開いたで!"
        ActiveWorkbook.Close
      Next i
    Else
      MsgBox "ファイルがない!"
    End If
  End With
  Set fs = Nothing
End Sub

ではでは。
1 hits

【16215】フォルダ内のファイルを順に処理 tomo 04/7/21(水) 9:14 質問
【16216】Re:フォルダ内のファイルを順に処理 IROC 04/7/21(水) 9:21 回答
【16217】Re:フォルダ内のファイルを順に処理 tomo 04/7/21(水) 10:14 質問
【16219】Re:フォルダ内のファイルを順に処理 でん 04/7/21(水) 10:30 回答
【16218】Re:フォルダ内のファイルを順に処理 ちゃっぴ 04/7/21(水) 10:28 回答

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