VFP控制Excel操作集

Posted 2021-03-10 hnllhq

◆访问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为横向

◆当前工作表表格内容格式设置：
oExcel.ActiveSheet.Columns(6).NumberFormatLocal = "0.0" &&指定第6列的数字显示格式为一位小数
oExcel.ActiveSheet.Columns(7).NumberFormatLocal = "yyyy-mm-dd" &7指定第7列的日期显示格式为"yyyy-mm-dd"

以上是基本的操作介绍，Excel操作的控件项太多了，你可以从网络上搜索到太多的介绍及代码，也可以在Excel中用VBA方式得到你所需要的命令代码来充实你的需要。