那位能幫我看看下列語言儲存本機是否有問題?
Worksheets("sheet1").Range("i2").Value = Now()Data2 = Worksheets("sheet1").Range("i2").Value
d = Format(Day(data), "00")
m = Format(Month(data), "000")
y = Format(Year(data), "000000")
Filename = "c:\C:\vit71023.52\vit71023.52.dat" & y & m & d & ".txt"
Open "C:\MIT68013.50\MIT68013_51.dat" For Append As nfn1
Open Filename For Append As nfn1 --------------------编程问答-------------------- Filename = "c:\C:\vit71023.52\vit71023.52.dat" & y & m & d & ".txt"
一看这个就不对。 --------------------编程问答-------------------- Filename = "C:\vit71023.52\vit71023.52.dat" & format(Now,"YYYYMMDD") & ".txt"
--------------------编程问答-------------------- 很大问题,自己看:
Filename = "c:\C:\vit71023.52\vit71023.52.dat" & y & m & d & ".txt"
为什么有“c:\c:\”的两个盘符,一定出错,显示的错误应该是“找不到路径”
还有:
Open "C:\MIT68013.50\MIT68013_51.dat" For Append As nfn1
nfn1是什么东西啊,你又没说清楚,这个位置是文件编号,是要“#”加一个数字,例如:“#1”之类的,这里显示的错误应该是“错误的文件名或号码”。快改过来吧。 --------------------编程问答-------------------- 萬分感謝!
补充:VB , 基础类