作者seedbcc (志明)
看板Visual_Basic
标题[VBA ] excel 2007开启文字档的问题
时间Tue Feb 4 11:29:33 2014
新年快乐
大家好
最近在写一个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
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 124.8.81.108
1F：推 johnpage:请提供部分程式 02/04 19:47
※ 编辑: seedbcc 来自: 124.8.73.180 (02/04 20:55)
2F：→ seedbcc:已补充,谢谢~~ 02/04 20:56
3F：→ seedbcc:在 Workbooks就产生 错误的讯息 02/04 20:56
4F：推 johnpage:可能shell 锁住档案，你尝试用已经存在的档案，不要用she 02/04 21:46
5F：→ johnpage:ll产生的看看 02/04 21:46
6F：→ MOONRAKER:怎麽还多个close #1 没看到你open 不会错吗 02/05 12:15
7F：→ seedbcc:请问如果不用shell,是否有其它方式 产生目录下的档案清单 02/05 18:59
8F：→ seedbcc:或是可以释放shell的memory 02/05 19:00
9F：→ seedbcc:谢谢楼上各位的解答,我会再试看看,再回报 02/05 19:00
10F：推 fumizuki:Dir("路径\*.xls") 传回符合条件的第一个档案名称 02/05 23:17
11F：→ fumizuki:Dir() 传回符合最近一次条件的下一个档案名称 02/05 23:17
12F：→ MOONRAKER:也可以引用scripting.filesystemobject物件来做。 02/06 15:48
13F：→ seedbcc:请问M大 ,可否提供范例 ....Thanks 02/06 21:41