Excel VBA質問箱 IV

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

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


7433 / 76732 ←次へ | 前へ→

【74886】Re:フォルダー内のbook全て開く
回答  Jママ  - 13/10/21(月) 16:38 -

引用なし
パスワード
   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
554 hits

【74883】フォルダー内のbook全て開く Jママ 13/10/21(月) 13:31 質問
【74884】Re:フォルダー内のbook全て開く Jママ 13/10/21(月) 14:58 質問
【74885】Re:フォルダー内のbook全て開く Yuki 13/10/21(月) 16:03 発言
【74886】Re:フォルダー内のbook全て開く Jママ 13/10/21(月) 16:38 回答
【74888】Re:フォルダー内のbook全て開く Yuki 13/10/21(月) 18:27 発言
【74889】Re:フォルダー内のbook全て開く Jママ 13/10/21(月) 20:35 お礼
【74910】Re:フォルダー内のbook全て開く Jママ 13/10/23(水) 11:20 お礼

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