当前位置: 代码迷 >> VFP >> 这个能用宏替换吗解决方案
  详细解决方案

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

热度:8993   发布时间:2013-02-26 00:00:00.0
这个能用宏替换吗
用以下语句可以读取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
  相关解决方案