つらい・・・

VBAで同一フォルダにあるブックを全て開く

解決済

質問者：ゆうEX
質問日時：2020/11/29 19:41
回答数：6件

VBAについての質問です。
マクロが保存されているエクセルと同じフォルダにあるエクセルファイルを全て開くマクロをつくりたくて、以下のようにしました。

Dim filename As String
Dim openedbook As Workbook
Dim isbookopen As Boolean

filename = Dir(ThisWorkbook.Path & "*.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

エラーはでないのですが、ファイルは1つも開きません。何がだめなのかを教えていただきたいです。
よろしくお願いします。

Doの行からとばされました

No.1の回答に寄せられた補足コメントです。補足日時：2020/11/29 19:57
通報する
そのように変更しても変わらずです泣

No.2の回答に寄せられた補足コメントです。補足日時：2020/11/29 21:44
通報する

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

ベストアンサー優先
最新から表示
回答順に表示

参考程度に

No.6ベストアンサー

回答者： fujillin
回答日時：2020/11/30 10:36

こんにちは

ファイルパスの「\」その他に関しては、既に指摘の出ている通りですね。

一方で、開いているブックとのチェックを
＞For Each openedbook In Workbooks
で行っていますが、毎回ループでチェックしなければならないのと、ブックを開くごとにチェック対象が増えてゆく（実際は、新しく開いたブックのチェックは不要）という欠点があります。（別に、間違った処理にはなりませんけれど）

さらには、このチェックは、
＞If filename <> ThisWorkbook.Name Then
とも重複していることになります。
（Workbooksには、ThisWorkbookも含まれているので）

最初にDictionaryオブジェクト等に、既オープンのブックをリスト化するなどしておくことで、チェックを単純にできるものと考えられます。
また、ロジックを単純化できると、IFのネストやループのネストも減るので、視認性もよくなると思われます。

以下、ご参考までに。

Sub Sample_12047309()
Dim fList, f
Dim folderPath As String, fileName As String

folderPath = ThisWorkbook.Path & "\"
Set fList = CreateObject("Scripting.Dictionary")

For Each f In Workbooks
　fList.Add f.Name, ""
Next f

fileName = Dir(folderPath & "*.xls")
While fileName <> ""
　If Not fList.Exists(fileName) Then _
　　　Workbooks.Open (folderPath & fileName)
　fileName = Dir()
Wend

End Sub

- 0
- 件

通報する

この回答へのお礼

丁寧にありがとうございます！
考えてたマクロを作ることができました！
ありがとうございました！！

通報する

お礼日時：2020/11/30 20:16

No.5

回答者： tatsumaru77
回答日時：2020/11/30 09:02

とりあえず、修正しておきました。

動作確認済みです。
Public Sub sample()
Dim filename As String
Dim openedbook As Workbook
Dim isbookopen As Boolean

filename = Dir(ThisWorkbook.Path & "\*.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 (ThisWorkbook.Path & "\" & filename)
End If
End If
filename = Dir()
Loop

End Sub