读书人

这个能用宏替换吗解决方案

发布时间: 2012-03-25 20:55:17 作者: rapoo

这个能用宏替换吗
用以下语句可以读取word内容


WOLE.Documents.OPEN('d:\doc\1.doc')
WOLE.Documents(1).Select
WOLE.Selection.Copy
lcString=_CLIPTEXT
WOLE.QUIT
RELEASE WOLE



其中的 d:\1.doc这里能不能用变量?

我的部分代码如下:

-------------------------------
gnDbcnumber = ADIR(gadbf,'d:\doc\*.*')

FOR nCount = 1 TO gnDbcnumber
mc=gadbf(nCount,1)
WOLE.Documents.OPEN(&mc)



运行后提示: 找不到别名

mc的值已成功取到, 但应如何写这个变量呢

[解决办法]
** 这样就行了,我已经做过测试!

sPath = "d:\doc\"
gnDbcnumber = ADIR(gadbf, sPath + '*.*')

FOR nCount = 1 TO gnDbcnumber
mc = sPath + gadbf(nCount,1)
WOLE.Documents.OPEN(mc)
ENDFOR

读书人网 >VFP

热点推荐