VFP全面控制EXCEL

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

oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式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. && 放弃存盘

https://www.360docs.net/doc/c114767277.html,edRange.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.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)https://www.360docs.net/doc/c114767277.html,="黑体" && 设置字体

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.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.PrintOut && 打印输出工作表

oExcel.ActiveSheet.PageSetup.Zoom=90 &&缩放90%

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

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

VFP全面控制EXCEL

本文来自CSDN博客：https://www.360docs.net/doc/c114767277.html,/apple_8180/archive/2006/04/22/672913.as px

VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表

打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍：

*!* 1．创建Excel对象

oExcel=Createobject("Excel.application")

*!* 2．添加新工作簿

oExcel.Workbooks.Add

*!* 3．设置第3个工作表为激活工作表

oExcel.Worksheets("sheet3").Activate

*!* 4．打开指定工作簿

oExcel.Workbooks.Open("c:\temp\ll.xls")

*!* 5．显示Excel窗口

oExcel.Visible=.T.

*!* 6．更改Excel标题栏

oExcel.Caption="VFP应用程序调用Microsoft Excel"

*!* 7．给单元格赋值

oExcel.cells(1,4).Value=XM(XM为数据库字段名)

*!* 8．设置指定列的宽度(单位：字符个数)

oExcel.ActiveSheet.Columns(1).ColumnWidth=5

*!* 9．设置指定行的高度(单位：磅)

oExcel.ActiveSheet.Rows(1).RowHeight=1

(设定行高为1磅，1磅=0.035厘米)

oExcel.ActiveSheet.Rows("50:100").RowHeight=1 &&设置第50行至100行的高度

*!* 10．在第18行之前插入分页符

oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1

*!* 11．在第4列之前删除分页符

oExcel.ActiveSheet.Columns(4).PageBreak=0

*!* 12．指定边框线宽度(Borders参数如下)

ole.ActiveSheet.Range("b3:d3").BorderS(2).Weight=3

*!* 13．设置四个边框线条的类型

oExcel.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1

(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)

*!* 14．设置页眉

oExcel.ActiveSheet.PageSetup.CenterHeader="报表1"

*!* 15．设置页眉(字体大小)

oExcel.ActiveSheet.PageSetup.CenterHeader="&50报表1" &&'&'后面的50可以自定义，表示字体的大小

*!* 16．设置页脚

oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页"

*!* 17.设置页脚(字体大小)

oExcel.ActiveSheet.PageSetup.CenterFooter="&28第&P页" &&'&'后面的28可以自定义，表示字体的大小

*!* 18．设置页眉到顶端边距为2厘米

oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035

*!* 19．设置页脚到底边距为3厘米

oExcel.ActiveSheet.PageSetup.FooterMargin=3/0.035

*!* 20．设置顶边距为2厘米

oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035

*!* 21．设置底边距为4厘米

oExcel.ActiveSheet.PageSetup.BottomMargin=4/0.035

*!* 22．设置左边距为2厘米

oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035

*!* 23．设置右边距为2厘米

oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035

*!* 24．设置页面水平居中

oExcel.ActiveSheet.PageSetup.CenterHorizontally=.T.

*!* 25．设置页面垂直居中

oExcel.ActiveSheet.PageSetup.CenterVertically=.T.

*!* 26．设置页面纸张大小(1－窄行8 5 11 39－宽行14 11 9:A4) oExcel.ActiveSheet.PageSetup.Papersize=1

*!* 27．打印单元格网线

oExcel.ActiveSheet.PageSetup.PrintGridlines=.T.

https://www.360docs.net/doc/c114767277.html,edRange.Copy

*!* 29．拷贝指定区域

oExcel.ActiveSheet.Range("A1:E2").Copy

*!* 30．粘贴

oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial

*!* 31．在第2行之前插入一行

oExcel.ActiveSheet.Rows(2).Insert

*!* 32．在第2列之前插入一列

oExcel.ActiveSheet.Columns(2).Insert

*!* 33．设置字体

oExcel.ActiveSheet.Cells(2,1)https://www.360docs.net/doc/c114767277.html,="黑体"

*!* 34．设置字体大小

oExcel.ActiveSheet.Cells(1,1).Font.Size=25

*!* 35．设置字体为斜体

oExcel.ActiveSheet.Cells(1,1).Font.Italic=.T.

*!* 36．设置整列字体为粗体

oExcel.ActiveSheet.Columns(1).Font.Bold=.T.

*!* 37．清除单元格公式

oExcel.ActiveSheet.Cells(1,4).ClearContents

oExcel.ActiveSheet.PrintPreview

*!* 39．打印输出工作表

oExcel.ActiveSheet.PrintOut

*!* 40． https://www.360docs.net/doc/c114767277.html,mandBars(1).Controls(1).accChild(18).Execute &&打印（菜单序号18为Excel2003的‘打印’项）

&&不同版本Excel的菜单序号可以通过以下程序取得

*(需要在VFP7.0以上运行)

oXls=Getobject("","excel.sheet")

XlApp=oXLS.Application

XlSheet=XlApp.ActiveSheet

bars=https://www.360docs.net/doc/c114767277.html,mandBars.Count

Str1=''

For i=1 To bars

Str1=Str1+Chr(13)+Alltrim(Str(i))+'、'+https://www.360docs.net/doc/c114767277.html,mandBars(i).accName+'(NAME: '+https://www.360docs.net/doc/c114767277.html,mandBars(i).Name+' INDEX:'+Alltrim(Str(https://www.360docs.net/doc/c114767277.html,mandBars(i).Index))+')' bars2=https://www.360docs.net/doc/c114767277.html,mandbars(i).accChildCount

For j=1 To bars2

Try

obj=https://www.360docs.net/doc/c114767277.html,mandbars(i).Controls(j)

Str1=Str1+Chr(13)+' '+Alltrim(Str(j))+'、'+https://www.360docs.net/doc/c114767277.html,mandbars (i).Controls(j).accname+'(ID:'+Alltrim(Str(https://www.360docs.net/doc/c114767277.html,mandBars(i).Controls(j).Id))+') '

For k=1 To obj.accChildCount

Try

If Not Empty(obj.Controls(k).accname )

Str1=Str1+Chr(13)+' '+Alltrim(Str (k))+'、'+obj.Controls(k).accName+' (ID：'+ Alltrim(Str(obj.Controls(k).Id))+')'

Endif

Catch

Exit

Endtry

Endfor

Catch

Exit

Endtry

Endfor

Wait Windows Alltrim(Str(i))+' / '+Alltrim(Str(bars))+' '+Str(i/bars*100,10, 2)+'%' Nowait

Endfor

Save To Xls.txt All Like Str1

Modify Command Xls.txt

Return

◆访问EXCEL：ExcelSheet = GetObject('','Excel.Sheet')

返回结果为类，则成功。例：

ExcelSheet = GetObject('','Excel.Sheet')

If Type("ExcelSheet")#'O' THEN

=MessageBox( "访问Excel失败！请检查你的系统是否正确安装Excel 软件！",48,"Excel不正常")

RETURN

ENDIF

◆创建EXCEL实例：oExcel=CreateObject("Excel.Application")

该实例创建后，任何对EXCEL的操作都针对该实例进行，关闭EXCEL后应释放该实例变量：RELEASE oExcel

◆打开已存在的EXCEL文件：oExcel.WorkBooks.Open("&lcFileName") &&lcFileName 为Excel文件名

打开带有读写密码的文件：oExcel.WorkBooks.Open("&lcFileName",,.F.,,"&R_Pwd","&W_Pwd") &&lcFileName-文件名,R_Pwd-读密码,W_Pwd-写密码,第二个参数表示读写方式：.T.只读，.F.读写

◆设置新增工作薄的工作表数：oExcel.SheetsInNewWorkbook=1 &&新建工作表数量定为1个

◆新增EXCEL工作薄：oExcel.WorkBooks.Add

◆当前工作薄工作表总数：oExcel.WorkSheets.Count &&如：lnSheetCnt=oExcel.WorkSheets.count

◆新增EXCEL工作表：oExcel.Sheets.Add &&不带参数为增加至当前工作表之前

在指定工作表后新建工作表：oExcel.Sheets.Add(,oExcel.Sheets(lnSheet),1,-4167) &&lnSheet为指定表号

在最后工作表后新建工作表：oExcel.Sheets.Add(,lnSheetsCnt,1,-4167) &&lnSheetCnt为工作表总数

◆激活工作表：oExcel.WorkSheets("Sheet1").Activate &&激活工作表1

删除工作表：oExcel.WorkSheets("Sheet2").Delete &&删除工作表2

命名工作表：oExcel.WorkSheets("Sheet3").Name="新表" &&重命名工作表3

◆使EXCEL可视：oExcel.Visible=.T.

◆Excel的窗口控制：oExcel.WindowState = -4140 &&最小化=-4140，最大化=-4137，还原=-4143

◆后台操作报警关闭：oExcel.DisplayAlerts=.F. &&关闭(.F.) 打开(.T.)

◆设置工作薄的标题：oExcel.Caption="Vfp控制Excel操作"

◆当前工作薄换名存盘：oExcel.ActiveWorkBook.SaveAs("&lcFileName")

换名存为文本文件：oExcel.ActiveWorkBook.Saveas("&lcFileName",-4158)

加密码换名存盘：oExcel.ActiveWorkbook.SaveAs(&lcFileName,-4143,[3721],[3721],.F., .F.)

◆工作薄存盘：oExcel.WorkBooks.Save

◆关闭工作薄：oExcel.WorkBooks.Close

◆退出EXCEL：oExcel.Quit &&关闭EXCEL后通常应释放实例变量：Release oExcel

◆打印当前工作簿：oExcel.ActiveWorkBook.PrintOut(1,oExcel.WorkSheets.count,1,.T.) *默认直接打印整个工作簿：oExcel.ActiveWorkBook.PrintOut()

*参数1-数值：当前工作簿中进行打印的起始工作表号(默认1)

*参数2-数值：当前工作簿中进行打印的结束工作表号(默认最末)

*参数3-数值：打印份数(默认1)

*参数4-是预览打印还是直接打印：.T.-预览打印，.F.-直接打印(默认.F.)

◆打印当前工作表：oExcel.ActiveSheet.PrintOut() &&共八个参数

*参数1-数值：起始页号，省略则默认为开始位置

*参数2-数值：终止页号，省略则默认为最后一页

*参数3-数值：打印份数，省略则默认为1份

*参数4-逻辑值：是否预览，省略则默认为直接打印(.F.)

*参数5-字符值：设置活动打印机名称，省略则为默认打印机

*参数6-逻辑值：是否输出到文件，省略则默认为否(.F.)，若选.T.且参数8为空，则Excel

提示输入要输出的文件名

*参数7-逻辑值：输出类型，省略则默认为(.T.)逐份打印，否则逐页打印

*参数8-字符值：当参数6为.T.时，设置要打印到的文件名

◆用VFP控制EXECL的选择打印机的窗口

oExcel.application.dialogs(8).show

◆预览当前工作表：oExcel.ActiveSheet.PrintPreview

◆当前工作表页面设置：oExcel.ActiveSheet.PageSetup &&如：

With oExcel.ActiveSheet.PageSetup

.CenterFooter="第"+"&P"+"页共"+"&N"+"页" &&页脚中间

.LeftFooter="制表人："+AllTrim(lcUserName) &&页脚左边

.rightfooter="制表日期："+Dtoc(Date()) &&页脚右边

.TopMargin=2.5/0.035 &&*边距

.BottomMargin=2.5/0.035 &&底边距

.LeftMargin=1.4/0.035 &&左边距

.RightMargin=0.5/0.035 &&右边距

.FooterMargin=3.5/0.035 &&脚高距

.PrintTitleRows = "$1:$3" &&固定打印的*端标题行(第1-3行)

.Orientation = 1 &&打印方向: 1为纵向,2为横向

.PaperSize=9 &&纸张类型: A4(注意：不同打印机与版本可能有不同)

.PrintQuality = 180 &&打印精度

EndWith

◆从包含大量内含公式的EXCEL文件导至DBF中时，直接转换会出现致命错误，这时可选择将EXCEL另存为文本文件再导至DBF中可保数据不丢失：

oExcel.WorkBooks.Open('D:\123.xls')

oExcel.ActiveWorkBook.Saveas('D:\123.txt',-4158 ) &&注意参数-4158不能错

◆若判断EXCEL或某个XLS文件是否已经打开（避免不可预知的错误发生）：

LOCAL lOldSetOpt,mChanNum

lOldSetOpt = DDESetOption("SAFETY")

= DDESetOption("SAFETY",.F.)

mChanNum = DDEInitiate('Excel','SYSTEM') &&EXCEL是否已经打开

**mChanNum = DDEInitiate('Excel','&lcFileName') &&lcFileName某XLS文件名，如：D:\123.XLS

IF mChanNum <> -1

= messagebox('程序EXCEL 已经打开，请先将其关闭！',64,'系统提示！')

** = messagebox('文件'+lcFileName+' 已经打开，请先将其关闭！',64,'系统提示！') = DDETerminate(mChanNum)

= DDESetOption("SAFETY",lOldSetOpt)

RETURN

ENDIF