Question

我在VB中打Open App.Path&"\z_v.dat" For Input As # Filenum为什么显示编辑错误 缺少：As 到底哪里错了

Answer 1

Open App.Path & "\z_v.dat" For Input As #1
很明显，是你少加了空格
-------------------------------------------------------
回cd68001，楼主问缺少As是哪里错了，明显是因为App.Path&"\没清z_v.dat"这里&符号与App.Path和双引号写在了一起，这才是As错误的原因腔察晌，至于#Filenum，在代码框里VB会自动纠正，你可以试试你最后弄好伍锋的代码，看看是不是提示As错误

Answer 2

Open App.Path&"\z_v.dat" For Input As # Filenum
对于这句话，我的回答正好相反，"# Filenum"好像多了一个空格，应该是：
Open App.Path&"\z_v.dat" For Input As #Filenum
另外你这句话还有一个错误，当App.Path在某个盘的根目录上时，还会出错，应该这样先写一个函数：
private function AppPath() as string
dim sPath as string
sPath=App.Path
if vba.right(sPath,1)<>"\" then sPath=sPath & "\"
AppPath=sPath
end function
调用时：
Open AppPath&"\z_v.dat" For Input As #Filenum

----------------------------------------------------------------
回复：_死亡狙击手_
你说App.Path&"\z_v.dat"这里少了空格，我还真没想到，因为工作的原因我的电脑上不能安装VB，因毁念此还不能调试这个程序，上面的话只是凭经验说的，因此确实可能存在错误。现在我越想越觉得你说的对，这里确实少了空格。另外你把#Filenum改成了#1对他来说也是比较有效的解决办法。
既然你已经指出来了，刚才我的回答内容也就不必改了，模余则保留在这里，给楼主旦棚作为参考吧。

追问

我采用了你的方法去试了试 还是缺少：as

追答

嗯，那就对了，楼上的朋友指出的地方没错，问题解决了就好。不过AppPath()函数还是建议你采用，不然你程序里的这句话在根目录下（例如U盘根目录）很可能会出错。