EXCEL VBA問題!

目前有須求為 抓特定文字檔(*.txt) 中的特定文字至目前excel的欄位中
經過google大法 找到下方vba語法
但將1.txt及excel檔放在檔一個目錄下
執行巨集卻都說 找不到1.txt
請問是否那裡出錯了?
(大概2個月前有用過一次是ok的…)


Sub x()

For i = 1 To 1

Filename = i & ".txt"
If i < 10 Then Filename = "0" & Filename<br>txtfile = ThisWorkbook.Path & "\" & Filename

If Dir(Filename) = "" Then
MsgBox Filename & " does not exist"
GoTo nextfile
End If

Open txtfile For Input As #1

R = 0
Do While Not EOF(1)
Line Input #1, Line

Do While InStr(Line, " 台北：")
xPos = InStr(Line, " 台北：")
R = R + 1
Cells(R, i) = Mid(Line, xPos - 11, 11)
Line = Mid(Line, xPos + 1, Len(Line) - xPos + 1)
Loop
Loop
Close (1)

nextfile:
Next i

End Sub