|
Yukiさん、ありがとうございます。
エラーは
Workbooks.Open (FileName)
で止まります。
カレントディレクトリーです。
最初に
ChDir ThisWorkbook.Path
を挿入しましたが、やはり同じでした。
Sub 全て開く()
ChDir ThisWorkbook.Path
Application.ScreenUpdating = False
Dim FileName As String
Dim OpenedBook As Workbook
Dim IsBookOpen As Boolean
FileName = Dir("*.xlsm")
Do While FileName <> ""
If FileName <> ThisWorkbook.Name Then
IsBookOpen = False
For Each OpenedBook In Workbooks
If OpenedBook.Name = FileName Then
IsBookOpen = True
Exit For
End If
Next
If IsBookOpen = False Then
Workbooks.Open (FileName) 'ここで止まります
End If
End If
FileName = Dir()
Loop
Workbooks("メイン.xlsm").Activate
Application.ScreenUpdating = True
End Sub
|
|