新年快乐
大家好
最近在写一个Excel 2007的VBA。其中的程式码，开启文字档会出现错误讯息,如下列
“执行阶段错误 '1004':找不到'list.txt
'。请检查档名是否有拼错，或是档案位置是否正确。.................”
详细错误讯息，请详以下网址的图示
http://ppt.cc/YdfM
有确认档案存在位置及档名都正确，并且有先用google找过解决的方法，
试过后，执行时一样有相同的错误讯息。
请教各位达人高手 是否可以帮忙看看并解决，感谢!
补充 "部份程式"如下，谢谢!
Sub cmd()
cmdstr1 = "cmd /c del D:\list.txt"
retval = Shell(cmdstr1, 0)
cmdstr = "cmd /c dir/b D:\JOB\dormantID_Review\VBA\*.xls > D:\list.txt"
retval = Shell(cmdstr, 0)
'开启"档案清单文字档"
Workbooks.OpenText Filename:="D:\list.txt"
'计算文字档有几列
last_row = ActiveSheet.UsedRange.Rows.Count
'将档案名称分别填入页签(Sheet2)每一列的第一栏
For i = 1 To last_row
Sheet2.Cells(i, 1).Value = Cells(i, 1).Value
Next i
ActiveWorkbook.Close
'关闭刚才开启的档案清单文字档
Close #1