|
ちょっと以下のサンプルで試しに検証してみました。
結果該当のフォルダにあるファイル全部開きましたね。
※試す場合ファイルが多いフォルダで試さない方が良いです・・・
ファイルオープン例:
Function opentest()
Dim OpenPath As String
Dim OpenFileName As String
Dim OpenFullPath As String
OpenPath = "C:\" 'フォルダパス
OpenFileName = Dir(OpenPath & "*.xls", vbNormal) 'ファイル名
Do While "" <> OpenFileName
OpenFullPath = OpenPath & OpenFileName 'パスとファイル名を連結
Workbooks.Open OpenFullPath
Workbooks(OpenFileName).Activate
If (Worksheets(1).Visible = True) Then '1番目のシートが表示されているか判定
Worksheets(1).Select
End If
OpenFileName = Dir '次のファイルセット
Loop
End Function
|
|