makro - bir klasör

Question

Ben belirli bir klasördeki tüm dosyaları açmak istiyor ve aşağıdaki kodu var tüm dosyaları açmak

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 

Ben sorun sadece ilk dosyayı açmaya çalışırken tutmasıdır klasör tekrar tekrar ve devam etmeyecek. Herkes yardım edebilir, VBA’da biraz acemi olabilir ve bazı yardımlarla gerçekten yapabilirim. .xlsx biçiminde olan yaklaşık 30 rapor açmaya çalışıyorum. Şimdiden çok teşekkürler.

Answer 1

sadece loop

MyFile = Dir 
Loop 

Answer 2

aşağıdaki kodu deneyin önce bu satırı eklemek zorunda:

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

Sen döngü onay açıklamada Len(StrFile) > 0 kullanabilirsiniz!

Sub openMyfile() 

    Dim Source As String 
    Dim StrFile As String 

    'do not forget last backslash in source directory. 
    Source = "E:\Planning\03\" 
    StrFile = Dir(Source) 

    Do While Len(StrFile) > 0       
     Workbooks.Open Filename:=Source & StrFile 
     StrFile = Dir() 
    Loop 
End Sub