почему VBA не может найти файлы в указанной папке

Question

Sub ReformatForALFA()

    Filename = Dir("C:\Users\Daisy\Desktop\Cloudy\*.*")
    Do While Len(Filename) > 0

    Workbooks.Open (Filename)

    row_num = Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Rows.Count

    myRng = Empty
    For i = 1 To row_num
        If myRng = Empty And Cells(i, 1) Like "*value*row*" = False Then
            myRng = Rows(i).Address()
        ElseIf Cells(i, 1) Like "*value*row*" = False Then
            myRng = myRng & "," & Rows(i).Address()
        Else
            Pos1 = InStr(Cells(i, 1), "=") + 2
            Pos2 = InStr(Cells(i, 1), ">") - 1
            Pos3 = InStr(Cells(i, 1), "/") - 1
            Age = Mid(Cells(i, 1), Pos1, Pos2 - Pos1)
            Num = Mid(Cells(i, 1), Pos2 + 2, Pos3 - (Pos2 + 2))

            Cells(i, 2) = Age
            Cells(i, 3) = Num
        End If
    Next i

    Range(myRng).Delete
    Columns(1).EntireColumn.Delete

    Filename = Dir()
    Loop
End Sub

Здравствуйте, я написал макрос выше, чтобы просмотреть все текстовые файлы в папке. в этой папке находятся два текстовых файла. Когда я запустил его, он показывает мне: «мы не можем найти Tuesday.txt, так как он был удален, перемещен и т. Д. Может ли кто-нибудь помочь мне решить эту проблему. Спасибо! Ромашка

Answer 1

Filename = Dir("C:\Users\Daisy\Desktop\Cloudy\*.*")

просто получит имя файла без пути. Вы можете либо изменить путь с помощью chdir, либо добавить путь к файлу, который хотите открыть

ChDir ("C:\Users\Daisy\Desktop\Cloudy")

или

Workbooks.open("C:\Users\Daisy\Desktop\Cloudy\" & filename)