作者mdy (fala)
看板Visual_Basic
标题[VBA ] Excel开启新档案
时间Sat Oct 14 23:23:53 2006
请问一下以下的程式码是否哪里出了问题，我在其他台电脑都可以用，
可是一回到家用自己的电脑发现程式就不能跑了，原因在於找不到档案。
从区域变数视窗中可以看到，我的dfile1跟dfile2都有找到档案并且开
启，但是当我想利用dfile2的名字制造一个新档案时，却跟我说找不到档案，
但是我在其他台电脑都可以用，只有自己家里的电脑不能跑，请问一下是啥
缘故，谢谢。
我的部分程式码如下：
dfile1 = Dir(DataPath1, vbNormal) 'get filename of the 1st file
dfile2 = Dir() 'get filename of the 2nd file
Open DataPath1 & dfile1 For Input As #1 'open file
Open DataPath1 & dfile2 For Input As #2 'open file
If dfile1 <> "" And dfile2 <> "" Then
Open DataPath1 & "dvt" & dfile2 For Output As #3
End If
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.216.187.73
1F：推 qsss:从"区域变数视窗"只能看出路径字串吧? 请问您是如何看出 10/16 11:09
2F：→ qsss:"找到档案并开启"的呢? 10/16 11:11
3F：→ mdy:因为我会读dfile2 & dfile2 档案内的数值，确定有读到数值。 10/17 00:42
4F：→ mdy:我记得书上写用Open开档案如果档案不存在，会自行产生一个新档 10/17 00:42
5F：→ mdy:请问一下是因为excel版本的关系吗? 10/17 00:43
6F：→ mdy:原始档我是用excel2000写的， 我自己的电脑是excelXP 10/17 00:44
7F：推 qsss:我个人使用经验, Open不会帮你新增档案耶, 2000 XP都用过... 10/17 09:30
8F：推 qsss:Sorry..刚看了说明, 会产生新档, 嗯, 我没用过这个方式新增过 10/17 09:35
9F：→ qsss:我大多是使用NewFile ^^| 10/17 09:37
10F：→ mdy:我後来的解决方法是直接自己制造一个新档案(确定有读到档案) 10/17 23:53
11F：→ mdy:不过却没有办法把档案写入我的写法是Write #3, deltad, 10/17 23:54