关闭

VFP与EXCEL交互

标签: exceliopath工作
614人阅读 评论(1) 收藏 举报
分类:
&&下面介绍的方法这适合提取固定数目的字段生成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,'提示')
 
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:43219次
    • 积分:831
    • 等级:
    • 排名:千里之外
    • 原创:38篇
    • 转载:2篇
    • 译文:1篇
    • 评论:12条
    文章分类
    最新评论