回 帖 发 新 帖 刷新版面

主题:新编 VFP 控制 EXCEL 的方法

最近正好有空,看到不少人对VFP控制EXCEL有兴趣,现将上次的“精华贴”重新整理一下,供各位爱好者参考!

1、对象的创建与关闭  *******************************
eole=CREATEOBJECT('Excel.application')                   && 创建Excel对象
eole.Workbooks.add                                       && 添加新工作簿
eole.Worksheets("sheet3").Activate                       && 设置第3个工作表为激活工作表
eole.Workbooks.Open("D:\ABC\11.xls")                     && 打开指定工作簿
eole.visible=.t.                                         && 显示Excel窗口
eole.visible=.F.                                         && 不显示Excel窗口
eole.Caption="VFP应用程序调用Microsoft Excel"             && 更改Excel标题栏
eole.ActiveWorkbook.SaveAs("D:\ABC\22.xls")              && 工作表另为
eole.ActiveWorkbook.saved=.t.                            && 放弃存盘

eole.ActiveSheet.UsedRange.Copy                          && 拷贝整个工作表
eole.ActiveSheet.Range("A1:E2").Copy                     && 拷贝指定区域
eole.WorkSheet("Sheet2").Range("A1").PasteSpecial        && 粘贴

eole.ActiveWorkbook.Save                                 && 存盘(自动存盘不提问)
eole.Workbooks.close                                     && 关闭工作簿
eole.quit                                                && 退出Excel


2、单元格的设置  ***********************************
eole.ActiveSheet.Columns("D:D").Delete                   && 删除列
eole.ActiveSheet.Columns("A:B").Delete                   && 删除列
eole.ActiveSheet.Columns(1).ColumnWidth=20               && 列的宽度(单位:字符个数)
eole.ActiveSheet.Columns(2).ColumnWidth=30
eole.ActiveSheet.Columns("C:BE").ColumnWidth=9.5
eole.Selection.Columns.AutoFit                           && 最适合的列宽

eole.ActiveSheet.Range("b3:d3").Borders(2).Weight=3      && 指定边框线宽度
                          (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;
                               LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)

eole.ActiveSheet.Range("A1:BE29").Borders(1).LineStyle=1 && 设置四个边框线条的类型
eole.ActiveSheet.Range("A1:BE29").Borders(2).LineStyle=1 && 设置四个边框线条的类型
eole.ActiveSheet.Range("A1:BE29").Borders(3).LineStyle=1 && 设置四个边框线条的类型
eole.ActiveSheet.Range("A1:BE29").Borders(4).LineStyle=1 && 设置四个边框线条的类型

eole.ActiveSheet.Rows(1).Insert                          && 在第1行之前插入一行
eole.ActiveSheet.Columns(2).Insert                       && 在第2列之前插入一列
eole.cells(1,2).value="ABTMC"                            && 给单元格赋值
eole.cells(2,2).value="&BBBB"                            && 给单元格赋值
eole.ActiveSheet.Cells(1,4).ClearContents                && 清除单元格公式

eole.ActiveSheet.Rows(1).RowHeight=1/0.035               && 设置指定行的高度(单位:磅)
                                                         *(行高为1厘米,1磅=0.035厘米)
eole.ActiveSheet.ROWS(1).Font.Name="黑体"                && 设置字体
eole.ActiveSheet.ROWS(1).Font.Size=14                    && 设置字体大小
eole.ActiveSheet.ROWS(1).Font.Bold=.t.                   && 设置整行字体为粗体
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.              && 设置字体为斜体
eole.Range("A3:BE3").select
eole.selection.WrapText = .T.                            && 自动换行
eole.selection.HorizontalAlignment=3                     && 水平方向 2左对齐,3居中,4右对齐
eole.selection.VerticalAlignment = 2                     && 垂直方向 1靠上 ,2居中,3靠下

eole.Range("A2:B2").select
eole.selection.MergeCells = .T.                          && 合并单元
eole.selection.HorizontalAlignment=2                     && 水平方向 2左对齐,3居中,4右对齐
eole.selection.VerticalAlignment = 2                     && 垂直方向 1靠上 ,2居中,3靠下

eole.Range("A5:M5").select
eole.Selection.Interior.ColorIndex = 34                  && 设置行颜色为[淡兰]

eole.ActiveSheet.Range("A1:BE29").NumberFormatLocal = ;
"_ * #,##0.00_ ; _ * -#,##0.00_ ;_ * "+"-"+"??_ ;_ @_ "  && 指定区域内的数字显示格式

3、打印页面的设置  *********************************
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035          && 设置页眉到顶端边距为2厘米  
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035          && 设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.TopMargin=4/0.035             && 设置顶边距为4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035          && 设置底边距为4厘米
eole.ActiveSheet.PageSetup.LeftMargin=2/0.035            && 设置左边距为2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035           && 设置右边距为2厘米
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.        && 设置页面水平居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.          && 设置页面垂直居中
eole.ActiveSheet.PageSetup.PaperSize=8                   && 设置页面纸张大小
                                                           (1-窄行8 5 11 39-宽行14 11)
eole.ActiveSheet.PageSetup.Orientation=2                 && 横向
eole.ActiveSheet.PageSetup.PrintTitleRows="$1:$3"        && 定义固定行
eole.ActiveSheet.PageSetup.PrintTitleColumns="$A:$C"     && 定义固定列
eole.ActiveSheet.PageSetup.CenterHeader= "&14&BTMC"      && 设置页眉
eole.ActiveSheet.PageSetup.CenterFooter="表__第&P页"      && 设置页脚

eole.Worksheets("Sheet1").Rows(18).PageBreak=1           && 在第18行之前插入分页符
eole.ActiveSheet.Columns(4).PageBreak=0                  && 在第4列之前删除分页符
eole.ActiveSheet.PageSetup.PrintGridlines=.t.            && 打印单元格网线

eole.ActiveSheet.PrintPreview                            && 打印预览工作表
eole.ActiveSheet.PrintOut                                && 打印输出工作表


4、记录条数的利用  *********************************
一般来讲,EXCEL表的来源为DBF文件,列、行应该是可以预知的
USE 111
COUNT TO AAA
USE
FWQ  = "A3:M"+ALLT(STR(AAA+?))  ?为EXCEL表插入的行数
eole.ActiveSheet.Range(FWQ).Borders(1).LineStyle=1       && 设置四个边框线条的类型
eole.ActiveSheet.Range(FWQ).Borders(2).LineStyle=1       && 设置四个边框线条的类型
eole.ActiveSheet.Range(FWQ).Borders(3).LineStyle=1       && 设置四个边框线条的类型
eole.ActiveSheet.Range(FWQ).Borders(4).LineStyle=1       && 设置四个边框线条的类型


5、VFP下直接调用EXCEL、WORD文件  *********************************
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, ;
                        STRING lpszFile, STRING, STRING, INTEGER
operate= "open"
ShellExecute(0,operate,"C:\111.XLS",0,0,1)               && EXCEL文件
ShellExecute(0,operate,"C:\111.DOC",0,0,1)               && WORD文件

****************************************

回复列表 (共46个回复)

沙发

我给你置顶,免得别人老问

板凳

请问:我用
eole=CREATEOBJECT('Excel.application')
打开了一个Excel表,供用户编辑。
当我想再次对这个Excel表进行操作时,我怎样才能知道,用户是否关闭了这个Excel文件?

3 楼

打开EXCEL表以后,让用户编辑,后面再加入自动存盘和关闭命令不就结了。
这样谁进去都行啊!

4 楼

打开EXCEL表以后,让用户编辑,后面再加入自动存盘和关闭命令不就结了。
这样谁进去都行啊!
回3楼的话,我想

如果此时用户已经关闭的EXCEL呢?
或者如果我想打开另一个EXCEL表而此时用户已关闭了EXCEL呢?
是否会出现错误或EXCEL不显示的问题,请不吝赐教。
不许笑我菜,我本来含水量就很高。

5 楼

上面讨论的主要是VFP单机版的控制方法,也是常用的。
而你谈的主要是网络版的问题,要解决有点难度。
但只要在EXCEL中将工作簿设为“共享工作簿”,你所提的问题是可以解决的。
而如何在VFP中来控制EXCEL设定这个“共享工作簿”问题,现还没有试出来,
请你帮帮忙先试试看。

6 楼

非常感谢,你的内容对我一定会有帮助

7 楼

请指点一下:“一般来讲,EXCEL表的来源为DBF文件,列、行应该是可以预知的”,如果‘DBF文件的来源为EXCEL表’‘列、行’怎样预知。

8 楼


1.不太好弄,对不明的EXCEL表也没有必要用EXCEL命令来编程测试'预知'.
2.必须先要人工'预知',不清楚EXCEL表的内容和数据结构排列等,你怎么导入,派何用?
3.EXCEL表变为DBF文件,必须先对EXCEL表进行处理,去掉标题;去掉合并单元;只能一个工作表;第一行各单元的内容就是DBF文件的字段名,等.不整理不可能生成理想的DBF文件.
4.如果两种文件数据桔构.内容相同,转为DBF文件后,那你就有用武之地啦!

9 楼

谢谢SZGJR
可是我在这里无法给你加分呀。

10 楼

我在2楼提问的意思是:
我用
eole=CREATEOBJECT('Excel.application')
打开了一个Excel表,
再用eole.visible=.t.
将它显示出来,供用户编辑。
用户编辑完后有可能不关闭EXCEL,就去做别的操作,也有可能关闭了EXCEL才去做别的操作。我的意思是,我怎样才能知道,用户是否关闭了EXCEL。


我来回复

您尚未登录,请登录后再回复。点此登录或注册