VF实例编程：VFP与EXCEL的交互方法

D_PATH = SYS(5) + SYS(2003)  &&返回当前 Visual FoxPro 的默认驱动器 + 返回默认驱动器或卷上的当前目录或文件夹的名称。 

D_PATH1 = D_PATH + ’\’ + ’hello.XLS’ 
D_PATH2 = D_PATH + ’\’ + ’hello1.XLS’ 
DELE FILE hello1.XLS 
XLAPP = CREATEOBJECT(’EXCEL.APPLICATION’)  && createobject( ) 函数,从类定义或支持 OLE 的应用程序中创建对象。 
                                            && 创建EXCEL工作表 
XLAPP.WORKBOOKS.OPEN(D_PATH1) 
XLAPP.SHEETS(’SHEET1’).ACTIVATE 
 
*清除100行10列的所有内容 
FOR I = 1 TO 10   && 列 
  FOR II = 1 TO 100  && 行 
     XLAPP.CELLS(II, I).VALUE  = ’’ 
  ENDF 
ENDF 
 
XLAPP.CELLS(1,6).VALUE  = ’标题’          && CELLS(m,n)函数 设置一个单元格的内容，m表示行,n表示列 
XLAPP.CELLS(1,6).FONT.NAME = ’黑体’ 
XLAPP.CELLS(1,6).FONT.SIZE = 20 
XLAPP.CELLS(1,6).HORIZONTALALIGNMENT = 3 
XLAPP.CELLS(2,1).VALUE  = ’随便写点什么啦’ 
   
XLAPP.CELLS(3, 1).VALUE  = ’列1’ 
XLAPP.CELLS(3, 2).VALUE  = ’列2’ 
XLAPP.CELLS(3, 3).VALUE  = ’列3’ 
XLAPP.CELLS(3, 4).VALUE  = ’列4’ 
XLAPP.CELLS(3, 5).VALUE  = ’列5’ 
XLAPP.CELLS(3, 6).VALUE  = ’列6’ 
XLAPP.CELLS(3, 7).VALUE  = ’列7’ 
XLAPP.CELLS(3, 8).VALUE  = ’列8’ 
XLAPP.CELLS(3, 9).VALUE  = ’列9’ 
XLAPP.CELLS(3, 10).VALUE  = ’列10’ 
   
SELE 表 
GO TOP 
IO = 3 
SCAN 
      IO = IO + 1  && IO = 4   行数