VFP与EXCEL交互

&&下面介绍的方法这适合提取固定数目的字段生成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   行数 
      XLAPP.CELLS(IO, 1).VALUE  = 表字段1 
      XLAPP.CELLS(IO, 2).VALUE  = 字段2 
      XLAPP.CELLS(IO, 3).VALUE  = 字段3 
      XLAPP.CELLS(IO, 4).VALUE  = 字段4 
      XLAPP.CELLS(IO, 5).VALUE  = 字段5 
      XLAPP.CELLS(IO, 6).VALUE  = 字段6 
      XLAPP.CELLS(IO, 7).VALUE  = 字段7 
      XLAPP.CELLS(IO, 8).VALUE  = 字段8 
      XLAPP.CELLS(IO, 9).VALUE  = 字段9 
      XLAPP.CELLS(IO, 10).VALUE  = 字段10 
ENDS  
XLAPP.SAVE(D_PATH2) 
XLAPP.WORKBOOKS.CLOSE 
MESSAGEBOX('成功！',48,'提示')