-PR-
teru5000

Excelのマクロ機能で、マクロを実行すると、あるフォルダ内にある全てのExcelファイルを開くことってできますでしょうか?
  • 回答数1
  • 気になる数0
  • Aみんなの回答(全1件)

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

    • 2006-12-13 16:48:29
    • 回答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-14 10:12:33
    • ありがとう数0
    -PR-
    -PR-
    • 回答数1
    • 気になる数0
    • ありがとう数3
    • ありがとう
    • なるほど、役に立ったなど
      感じた思いを「ありがとう」で
      伝えてください
    • 質問する
    • 知りたいこと、悩んでいることを
      投稿してみましょう
    このQ&Aにこう思った!同じようなことあった!感想や体験を書こう
    このQ&Aにはまだコメントがありません。
    あなたの思ったこと、知っていることをここにコメントしてみましょう。

    関連するQ&A

    -PR-
    -PR-

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

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

    特集


    成功のポイントとは?M&Aで経営の不安を解決!

    -PR-

    ピックアップ

    -PR-
    ページ先頭へ