VFP與EXCEL的交互方法

下面介紹的方法這適合提取固定數(shù)目的字段生成EXCEL表格，如果想要格式好看，建一個(gè)摸版表
    D_PATH = SYS(5) + SYS(2003) &&返回當(dāng)前 Visual FoxPro 的默認(rèn)驅(qū)動(dòng)器 + 返回默認(rèn)驅(qū)動(dòng)器或卷上的當(dāng)前目錄或文件夾的名稱。
    D_PATH1 = D_PATH + ’\’ + ’hello.XLS’
    D_PATH2 = D_PATH + ’\’ + ’hello1.XLS’
    DELE FILE hello1.XLS
    XLAPP = CREATEOBJECT(’EXCEL.APPLICATION’) && createobject( ) 函數(shù),從類定義或支持 OLE 的應(yīng)用程序中創(chuàng)建對(duì)象。
     && 創(chuàng)建EXCEL工作表
    XLAPP.WORKBOOKS.OPEN(D_PATH1)
    XLAPP.SHEETS(’SHEET1’).ACTIVATE
    *清除100行10列的所有內(nèi)容
    FOR I = 1 TO 10 && 列
     FOR II = 1 TO 100 && 行
     XLAPP.CELLS(II, I).VALUE = ’’
     ENDF
    ENDF
    XLAPP.CELLS(1,6).VALUE = ’標(biāo)題’ && CELLS(m,n)函數(shù) 設(shè)置一個(gè)單元格的內(nèi)容，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 = ’隨便寫(xiě)點(diǎn)什么啦’
    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
    IO = 3
    SCAN
     IO = IO + 1 && IO = 4 行數(shù)
     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,’提示’)