解決済みの質問

質問No.2598781
すぐに回答を!
すぐに回答を!
お気に入り投稿に追加する (0人が追加しました)
回答数1
閲覧数5899
マクロでフォルダ内の全てのExcelファイルを開くには?
Excelのマクロ機能で、マクロを実行すると、あるフォルダ内にある全てのExcelファイルを開くことってできますでしょうか?
投稿日時 - 2006-12-13 16:31:46

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

回答No.1
ちょうどこの間作ったのがありました。
同じフォルダにある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
投稿日時 - 2006-12-13 16:48:29
この回答を支持する
(現在1人が支持しています)
お礼
教えて頂いた実行したら、うまくいきました。
助かりました。有難うございます!!
投稿日時 - 2006-12-14 10:12:33
この質問は役に立ちましたか?
3人が「このQ&Aが役に立った」と投票しています
もっと聞いてみる

関連するQ&A

この他の関連するQ&Aをキーワードで探す

別のキーワードで再検索する

関連するガイド記事

    回答募集中

    同じカテゴリの人気Q&Aランキング

    カテゴリ
    Windows系OS
    -PR-

    OKWaveのおすすめ情報

    特集

    このQ&Aの関連キーワード

    同じカテゴリの人気Q&Aランキング

    カテゴリ
    Windows系OS
    -PR-

    回答のついた最新のQ&A

    ピックアップ

    -PR-
    -PR-