请教一下VBA怎么换成VB代码呀, 5

'N*ref:__vbaExceptHandler'N*ref:__vbaObjSet'N*ref:__vbaHresultCheckObj'N*ref:__vbaFre... 'N * ref: __vbaExceptHandler
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaHresultCheckObj
'N * ref: Val(
'N * ref: __vbaFpR8
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeObj
'N * ref: __vbaErase
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaStrCopy
'N * ref: "Code"
'N * ref: "ftp disconnect."
'N * ref: __vbaStrCmp
'N * ref: "Discovery"
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaStrCat
'N * ref: "/"
'N * ref: __vbaStrMove
'N * ref: "/"
'N * ref: "/"
'N * ref: "/"
'N * ref: "/pci"
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObjList
'N * ref: "WP"
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaStrCat
'N * ref: "/"
'N * ref: __vbaStrMove
'N * ref: "/"
'N * ref: "/"
'N * ref: "/"
'N * ref: "/res"
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObjList
'N * ref: __vbaStrMove
'N * ref: __vbaStrCat
'N * ref: "/"
'N * ref: "//"
'N * ref: Replace(
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: "c:\Tmp"
'N * ref: __vbaStrCopy
'N * ref: Subr_163
'N * ref: Subr_164
'N * ref: "Discovery"
'N * ref: __vbaStrCmp
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: "\"
'N * ref: ".vrs"
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObj
'N * ref: Subr_162
'N * ref: Subr_165
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: ".vrs"
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeObj
'N * ref: "WP"
'N * ref: __vbaStrCmp
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: "\serial"
'N * ref: "0000"
'N * ref: __vbaVarDup
'N * ref: Format(
'N * ref: __vbaVarCat
'N * ref: "_RS.txt"
'N * ref: __vbaStrVarMove
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVarList
'N * ref: Subr_162
'N * ref: Subr_165
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: "serial"
'N * ref: "0000"
'N * ref: __vbaVarDup
'N * ref: Format(
'N * ref: "_RS.txt"
'N * ref: __vbaStrVarMove
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVarList
'N * ref: "AlignPointX1"
'N * ref: "Video"
'N * ref: Subr_183
'N * ref: __vbaI4Var
'N * ref: __vbaFreeVar
'N * ref: "AlignPointY1"
'N * ref: "Video"
'N * ref: Subr_183
'N * ref: "AlignPointX2"
'N * ref: "Video"
'N * ref: Subr_183
'N * ref: "AlignPointY2"
'N * ref: "Video"
'N * ref: Subr_183
展开
 我来答 举报
百度网友9d3a411
2011-09-19 · TA获得超过269个赞
知道小有建树答主
回答量:160
采纳率:0%
帮助的人:68.6万
展开全部
VBA与VB代码差不多的,有些会报错,再修改
更多追问追答
追问
这个完全运行不起来呢.好比说这三行
'N * ref: Subr_183
'N * ref: "AlignPointX2"
'N * ref: "Video"
那个N和*和ref是什么意思
追答
你的前面加了一个单引号,这代码就变成注释了,没有作用的
bosslxt
2011-09-23 · TA获得超过653个赞
知道小有建树答主
回答量:785
采纳率:33%
帮助的人:475万
展开全部
你的这些代码本身就不是VB类的,在哪里都运行不了!
追问
那个N和*和ref是什么意思
追答
不属于VB语言,我不知道。
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式