请教一下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 展开
'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 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询