VFP控制EXCEL(二) - tlliqi的博客

作者在 2014-04-26 05:28:07 发布以下内容

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文件

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