マクロ - 開いているフォルダ

Question

内のすべてのファイルは私が持っている問題はそれだけで最初のファイルを開こうとし続けるということです指定したフォルダ内のすべてのファイルを開き、次のコード

Sub OpenFiles() 
Dim MyFolder As String 
Dim MyFile As String 
MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning 
      Department\Marks Tracker\Quality Control Reports" 
MyFile = Dir(MyFolder & "\*.xlsx") 
Do While MyFile <> "" 
Workbooks.Open Filename:=MyFolder & "\" & MyFile 
Loop 
End Sub 

を持つようにしたいですフォルダを繰り返して移動しません。誰でも助けることができる、私はVBAの初心者のビットであり、本当にいくつかの援助で行うことができます。私はすべてxlsx形式の約30のレポートを開こうとしています。事前に多くの感謝。

Answer 1

は、あなただけのloop

MyFile = Dir 
Loop 

Answer 2

は、以下のコードを試してみてくださいする前にこの行を追加する必要があります。

Sub opendfiles() 

Dim myfile As Variant 
Dim counter As Integer 
Dim path As String 

myfolder = "D:\temp\" 
ChDir myfolder 
myfile = Application.GetOpenFilename(, , , , True) 
counter = 1 
If IsNumeric(myfile) = True Then 
    MsgBox "No files selected" 
End If 
While counter <= UBound(myfile) 
    path = myfile(counter) 
    Workbooks.Open path 
    counter = counter + 1 
Wend 

End Sub 

Answer 3

あなたがループチェック文でLen(StrFile) > 0を使用することができます！