エクセルのVBAに関する質問です。

質問

エクセルのVBAに関する質問です。
「指定フォルダ（ここではXXXX）内の全てのエクセルファイルを開き、内容を転記していく」
というマクロについての質問です。
ネットを参照し、以下のマクロを見つけました。

--------------------------------------------------------------------------
Sub Macro1()
Dim theName As String
Dim theDir As String
Dim theBook As Workbook
Dim flg As Boolean

flg = True
Application.ScreenUpdating = False

theDir = ThisWorkbook.Path & "\XXXX"
theName = Dir(theDir & "\*.xls")

Do While theName <> ""
Set theBook = Workbooks.Open(theDir & "\" & theName)

Call subA(theBook, flg)
flg = False
theBook.Close
theName = Dir
Loop
End Sub

Sub subA(theBook As Workbook, flg As Boolean)
Dim thetbl As Range, LRow As Long

Set thetbl = theBook.Sheets(1).Range("A1").CurrentRegion
thetbl.Copy

With ThisWorkbook.ActiveSheet
LRow = .Range("A65536").End(xlUp).Row

If LRow = 1 Then
.Range("A" & LRow).PasteSpecial xlPasteValues
Else
.Range("A" & LRow + 1).PasteSpecial xlPasteValues
End If
End With
Application.CutCopyMode = False
End Sub

--------------------------------------------------------------------------

実際にはこのマクロは上手く動作していますが、１つ疑問があります。
「一度開いたファイルは開かない」というのはどの部分のおかげか、ということです。

当方初心者で、分かりづらい質問かもしれませんが、どうぞご教授お願いいたします。

回答No.2

imogasi · ベストアンサー

Dirの（）内に指定する場合としない場合の違いが、Ｇｏｏｇｌｅででも照会すれば載っています。
指定しないときは次のファイルを見てくれる。
Ｄｉｒ関数を使う方法のほかに、ＦｏｒＥａｃｈを使う方法もあり、この方はＥａｃｈ　Ｎｅｘｔにその語感が感じられる。
Ｇｏｏｇｌｅで「ＶＢＡ　フォルダ　ファイル　Ｆｏｒ　Ｅａｃｈ」で照会すると
http://itpro.nikkeibp.co.jp/article/COLUMN/20060120/227645/
など多数記事あり。

お礼

初心者で非常に困っていたのですが、リンクも貼って頂き助かりました！
他の皆さまもありがとうございました！

回答No.3

n-jun

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1143390846

類似している質問がありましたので、ご参考まで。

回答No.1

nda23

Dir関数のおかげ
これはパラメータ付きの処理を実行した後で、パラメータ無しの処理を
行うと、「次のファイル」を探します。無ければ空文字列を返します。
途中で（最後のファイルを処理する前に）パラメータ付きのDir関数を
使うと、検索パターンがリセットされてしまいます。