关于vfp调用excel的问题。

liujxing263 2002-12-07 04:38:58

大家好！请大家讨论一下这个问题吧？
在vfp中，我现在想把生成的表格在execl中显示出来，现在已经能在Execl中显示出在VFP中的表格，并且能对指定单元格中的字体，大小进行控制，但是我想通过VFP想对Execl中的第一个单元格的线加粗，该怎么办哪？请各位帮忙！

...全文

23 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

隐者神归 2002-12-09

打赏
举报

回复

需要查看一下excel中的帮助中的编程信息

liujxing263 2002-12-08

打赏
举报

回复

在VFP中调用Execl的语句如下：
OleApp=CREATEOBJECT("Excel.Application")
OleApp.Application.Caption="VFP交互编程"
OleApp.Application.Visible=.T.
OleApp.WorkBooks.Add()

kinny_ke 2002-12-07

打赏
举报

回复

可否告诉我怎么将vfp转化为Excel?

使用VFP读取EXCEL中的数据示例 *!* *****数据导入程序，由“学生基本基本情况表模板.xls”导入数据 *!* ***使用VFP控制EXCEL表，计取中指定列的内容*********** *!* "学生基本基本情况表模板.xls"的数据布局 *!* cells(1,1):“标题” *!* cells(2,1):校区 *!* cells(2,3):学历 *!* cells(2,5):专业 *!* cells(2,6):班级 *!* *!* set safe off set talk on LOCAL inf(4) as String *dele file C:\MyDocu~1\Resume.xlw objExcel = CreateObject("Excel.Application") &&创建一个EXCEL应用程序实例 wjm=getfile("xls") objExcel.Workbooks.Open(wjm) &&调用workbooks(Microsoft Excel 应用程序; 中当前打开的所有 Workbook 对象的集合。); 对象的open方法程序来打开指定的文件，并为; 打开的文件创建一个新的工作簿 *objexcel.visible=.f. ***下面的代码判断出生日期字段的格式是否满足要求*** *IF !varTYPE(objexcel.cells(10,6))="d" * MESSAGEBOX("出生日期字段不满足格式要求，不能导入，请将出生日期字段修改为:"+CHR(13); +"mm.dd.yy的格式,如:05.19.83 表示1983年5月19 然后再运行此导入程序") * RETURN *ENDIF inf(1)=substr(objexcel.cells(2,1).value,7)&&校区 Inf(2)=objexcel.cells(2,4).value&&学历 inf(3)=objexcel.cells(2,6).value&&专业 inf(4)=objexcel.cells(2,7).value&&班 LOCAL nrow as Number ,i as Number i=0 *MESSAGEBOX("计算行数") *MESSAGEBOX(objexcel.cells(5,1).value) *MESSAGEBOX(VARTYPE(objexcel.cells(22,1).value)) DO WHILE .t. i=i+1 ?objexcel.cells(i,1).value IF !VARTYPE(objexcel.cells(i,1).value)="C" nrow=i-1 EXIT ENDIF ENDDO *nrow=20 LOCAL arecord(16) *MESSAGEBOX("循环添加记录") USE zlb disinf("zlb.dbf中现有记录"+ALLTRIM(STR(RECCOUNT()))+"条") disinf("正在添加记录") FOR i=4 TO nrow arecord(1)=objexcel.cells(i,1).value&&学号　 arecord(2)=objexcel.cells(i,2).value&&姓名 arecord(3)=objexcel.cells(i,3).value&&性别 arecord(4)=objexcel.cells(i,4).value&&籍贯 arecord(5)=objexcel.cells(i,5).value&&民族 *MESSAGEBOX(VARTYPE(objexcel.cells(i,6).value)) IF VARTYPE(objexcel.cells(i,6).value)="C" arecord(6)=RIGHT(objexcel.cells(i,6).value,2)+"/"+"01"+'/'; +LEFT(objexcel.cells(i,6).value,2) ELSE arecord(6)= RIGHT(STR(objexcel.cells(i,6).value,5,2),2); +"/"+"01"+"/"; +LEFT(STR(objexcel.cells(i,6).value,5,2),2) ENDIF &&arecord(6)=IIF(VARTYPE(objexcel.cells(i,6).value)="c",RIGHT(objexcel.cells(i,6).value,2)+"/"+"01"+'/'+LEFT(objexcel.cells(i,6).value,2),; RIGHT(STR(objexcel.cells(i,6).value,5,2),2)+"/"+"01"+'/'+LEFT(STR(objexcel.cells(i,6).value,5,2),2))&&出生年月 arecord(7)=LEFT(ALLTRIM(STR(objexcel.cells(i,8).value,6,0)),6)&&邮政编码 arecord(8)=objexcel.cells(i,7).value&&通讯地址 arecord(9)=objexcel.cells(i,9).value &&收信人 arecord(10)=iif(!ALLTRIM(objexcel.cells(i,10).value)=="",objexcel.cells(i,10).value; ,"无")&&家庭电话 arecord(11)=inf(3)&&专业 arecord(12)=inf(4)&&班级 arecord(13)=objexcel.cells(i,11).value&&寝室号码 arecord(14)=STR(objexcel.cells(i,12).value,7,0)&&寝室电话 arecord(15)=inf(1)&&校区 arecord(16)=inf(2)&&学历 SELECT zlb APPEND FROM ARRAY arecord ENDFOR disinf("zlb.dbf中现有记录"+ALLTRIM(STR(RECCOUNT()))+"条") disinf("记录添加完毕，共添加了"+ALLTRIM(STR(nrow-3))+"条记录，请查检") INKEY(3) WAIT CLEAR ****定义日期转换函数，此函数能将各种格式的日期转换成mm/dd/yy的格式**** ****如果要转换的日期只有年和月，则自动添加日为'01'*** *!* FUNCTION datetran *!* PARAMETERS soudate *!* IF VARTYPE(soudate)="N" *!* DO case *!* CASE LEN(souDATE) ***关闭工作簿，退出EXCEL objexcel.quit RELEASE objexcel *!* objexcel.save *!* *objExcel.ActiveWorkbook.saved=.f. *!* objexcel.Quit &&退出 *!* RELEASE objexcel *!* retu

vfp调用ORexcel[归类].pdf

超好用的PDF控件，速度快、功能全、带VFP调用实例（使用前先注册控件）

本文将结合实例介绍VFP与Excel交互编程的方法，在VFP中除了使用OLE技术外，还可使用DDE技术与外部服务器进行数据交换，本文主要讲解VFP中使用OLE技术与Excel交换数据，Excel中借助内置的VBA使用VFP提供的Application对象来调用VFP中的一些功能。其功能可简述如下：VFP数据表“学生成绩.DBF”中含“学号、姓名、语文、数学”等字段，示例程序将从Excel工作簿“VFP交互.XLS”的工作表“查询”中用“条件”区域（一般为一个矩形区中的数据，该区域名称指定为“条件”，数据形如“语文>60”、“数学<90”等）中的数据作为查询的条件，用“连接条件”区域（一般为一个单元格，其值为“or”或者“and”）来获取组合“条件”的逻辑连接，并将该连接信息的内容以工作表的形式显示出来，然后调用VFP中针对给定表的SQL查询来找出给定条件的记录并显示到Excel中。下列程序均在VFP 6.0与Excel 2000中调试通过。

VFP9下使用LIBXL.DLL操作EXCEL文件，这是测试文件，已通过。但是对于非标准的EXCEL文件，没有通过。用ET打开保存一下，就行了。看来LIBXL库也不理想。

2,735

社区成员

29,125

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章