您所在位置：主题：[讨论]也谈VFP中EXCEL的应用问题
妙计山人
[专家分：130] 发布于 2009-08-26 16:41:00
通常使用“XLApp.WorkBooks.OPEN()”代码可以打开一个既有的EXCEL文件，然而，用这种方式所打开的EXCEL文件需要使用绝对路径，山人近期经过反复测试，发现以下代码可以打开一个相对路径中的EXCEL文件。
LOCAL PTH
PTH = CURDIR()
XLApp = CREATEOBJECT('YsFrmBase')
XLApp.ADDOBJECT('OleObject','OleExcelObject')
XLApp.OLEOBJECT.VISIBLE = .T.
XLApp.OLEOBJECT.DOVERB(1)
READ EVENTS
DEFINE CLASS OleExcelObject AS OLEControl
OLECLASS = 'Excel.Sheet'
DOCUMENTFILE = PTH + '甲供清单.XLS'
ENDDEFINE
利用上述代码打开一个既有EXCEL文件后，自然减少了我们许多编程的烦劳，因为格式问题可以直接在EXCEL文件中设定，在VFP中所要做的就是把相关数据直接转换到EXCEL文件中就OK了。
LOCAL PTH
PTH = CURDIR()
XLApp = CREATEOBJECT('YsFrmBase')
XLApp.ADDOBJECT('OleObject','OleExcelObject')
XLApp.OLEOBJECT.VISIBLE = .T.
XLApp.OLEOBJECT.DOVERB(1)
READ EVENTS
DEFINE CLASS OleExcelObject AS OLEControl
OLECLASS = 'Excel.Sheet'
DOCUMENTFILE = PTH + '甲供清单.XLS'
ENDDEFINE
利用上述代码打开一个既有EXCEL文件后，自然减少了我们许多编程的烦劳，因为格式问题可以直接在EXCEL文件中设定，在VFP中所要做的就是把相关数据直接转换到EXCEL文件中就OK了。