運行時錯誤1004-有時找不到工作簿

Question

我對宏的使用經驗很少，在尋找需要發布的問題之前，我已經在網上搜索了很長時間。 我的目標是用從其他表格獲得的信息填充一種表格。 我將“合並文件”放在一個文件夾中，讓人們將填寫好的問卷表上傳到一個單獨的文件夾中，該文件夾更深一層。

奇怪的問題是，有時它會完美地填寫合並文件，而有時它根本不執行任何操作。 我收到運行時錯誤1004，說找不到該文件。 它實際上提到了文件的確切名稱，但隨后無法“查找”它。

任何幫助，將不勝感激。

親切的問候，

馬丁

Sub LoopThroughDirectory()

    Sheets("Data").Select

    Application.ScreenUpdating = False

    Dim FileNames() As String
    Dim MyFile As String
    Dim erow

    MyFile = Dir(ActiveWorkbook.Path & "\Filled out Forms\")

    Do While Len(MyFile) > 0
        If MyFile = "Z. Master.xlsm" Then
            Sheets("Candidate selection").Select
            Exit Sub
        End If

        Workbooks.Open (MyFile)
        Worksheets("Hidden Sheet").Range("B3:I13").Copy
        ActiveWorkbook.Close

        erow = Sheet1.Cells(Rows.count, 1).End(xlUp).offset(1, 0).Row
        ActiveSheet.Paste Destination:=Worksheets("Data").Range(Cells(erow, 1), Cells(erow, 8))

        MyFile = Dir
    Loop

    Application.ScreenUpdating = True

End Sub

Answer 1

試試這個MyFile = Dir(Path & Filename)