-PR-
解決
済み

マクロでフォルダ内の全てのExcelファイルを開くには?

  • すぐに回答を!
  • 質問No.2598781
  • 閲覧数10952
  • ありがとう数4
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 52% (10/19)

Excelのマクロ機能で、マクロを実行すると、あるフォルダ内にある全てのExcelファイルを開くことってできますでしょうか?
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 55% (658/1196)

ちょうどこの間作ったのがありました。
同じフォルダにあるExcelファイルのうち、開いてないものを全て開きます。もしフォルダを指定したいのであれば、
  FileName = Dir("*.xls")
の行の前に
  Chdir("フォルダ名")
を挿入してください。

Sub OpenAllBooks()
  Dim FileName As String
  Dim OpenedBook As Workbook
  Dim IsBookOpen As Boolean
  
  FileName = Dir("*.xls")
  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
End Sub
お礼コメント
teru5000

お礼率 52% (10/19)

教えて頂いた実行したら、うまくいきました。
助かりました。有難うございます!!
投稿日時 - 2006-12-14 10:12:33
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このQ&Aにこう思った!同じようなことあった!感想や体験を書こう
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ