VFP控制EXCEL的方法(终于找到了).doc

VFP控制EXCEL的常用方法oExl=CREATEOBJECT(Excel.application)oExl.Visible=.T.oExl.DefaultSaveFormat=39oExl.SheetsInNewWorkbook=1oExl.Workbooks.Open(cXLS)oExl.WindowState=-4140&窗口最小化oExl.WindowState=-4143&窗口正常化oExl.WindowState=-4147&窗口最大化*-*&页面设置oExl.ActiveSheet.PageSetup.PrintTitleRows=$1:$3&打印标题oExl.ActiveSheet.PageSetup.Orientation=2&页面方向:1纵向/2横向*oExl.ActiveSheet.PageSetup.PaperSize=11&纸张尺寸:9-A4/11-A5oExl.ActiveSheet.PageSetup.TopMargin=0.8/0.035&顶边距oExl.ActiveSheet.PageSetup.BottomMargin=0.8/0.035&底边距oExl.ActiveSheet.PageSetup.LeftMargin=0&左边距oExl.ActiveSheet.PageSetup.RightMargin=0&右边距oExl.ActiveSheet.PageSetup.CenterHorizontally=.T.&页面居中oExl.ActiveSheet.PageSetup.HeaderMargin=0.5/0.035oExl.ActiveSheet.PageSetup.FooterMargin=0.5/0.035oExl.ActiveSheet.PageSetup.LeftHeader=&9表格”9是字号”oExl.ActiveSheet.PageSetup.CenterHeader=oExl.ActiveSheet.PageSetup.RightHeader=&9oExl.ActiveSheet.PageSetup.LeftFooter=oExl.ActiveSheet.PageSetup.CenterFooter=&9第&P页,共&N页oExl.ActiveSheet.PageSetup.RightFooter=&9制表人:+代码+ 制表时间:+TTOC(DATETIME()*-*&整体格式设置oExl.ActiveSheet.Rows.Font.Size=9oExl.ActiveSheet.Rows.Font.Name=宋体oExl.ActiveSheet.Rows.RowHeight=0.5/0.035oExl.ActiveSheet.Rows.NumberFormatLocal=0.00_ ;红色-0.00oExl.ActiveSheet.Rows.VerticalAlignment=2&单元格内容垂直居中*-*&获取最大行号和最大列号Local nMaxRow,nMaxColnMaxRow=oExl.ActiveSheet.UsedRange.Rows.CountnMaxCol=oExl.ActiveSheet.UsedRange.Columns.Count&表头格式设置oExl.ActiveSheet.Rows(1).Font.Size=16oExl.ActiveSheet.Rows(1).Font.Bold=.T.oExl.ActiveSheet.Rows(1).RowHeight=1/0.035oExl.ActiveSheet.Rows(1).HorizontalAlignment=3oExl.ActiveSheet.Rows(2).HorizontalAlignment=3oExl.ActiveSheet.Rows(3).HorizontalAlignment=3oExl.ActiveSheet.Rows(3).Font.Bold=.T.oExl.ActiveSheet.Range(A1:+CHR(96+nMaxCol)+1).MergeoExl.ActiveSheet.Range(A2:+CHR(96+nMaxCol)+2).Merge*-*&条件格式隐藏0值oExl.ActiveSheet.UsedRange.FormatConditions.DeleteoExl.ActiveSheet.UsedRange.FormatConditions.Add(1,3,0)oExl.ActiveSheet.UsedRange.FormatConditions(1).Font.ColorIndex=2&文字白色*-*oExl.ActiveSheet.Range(A1:B1).Interior.ColorIndex=6&单元格底纹黄色*-*oExl.ActiveSheet.Columns.AutoFit&自动列宽oExl.ActiveSheet.Range(A3:+CHR(96+nMaxCol)+ALLTRIM(STR(nMaxRow).Borders.Weight=2&边框线*-*&自动筛选IF !oExl.ActiveSheet.AutoFilterMode&判断是否存在自动筛选oExl.ActiveSheet.Rows(3).Autofilter&如果不存在自动筛选,则添加自动筛选ENDIF*-*&冻结窗格oExl.ActiveSheet.Range(D4).SelectoExl.ActiveWindow.FreezePanes = .T.*-*-*&分类汇总Local Arry(1),nMaxRow,nMaxColArry(1)=5nMaxRow=oExl.ActiveSheet.UsedRange.Rows.CountnMaxCol=oExl.ActiveSheet.UsedRange.Columns.CountoExl.ActiveSheet.Range(A3:+chr(96+nMaxCol)+alltrim(str(nMaxRow).Subtotal(2,-4157,Arry,.T.,.F.,.T.)&按第2列分类汇总数组Arry保存的列*-*1、对象的创建与关闭*oExl=CREATEOBJECT(Excel.application)&创建Excel对象oExl.SheetsInNewWorkbook=1&新建工作簿默认包含工作表个数oExl.Workbooks.Add&新建工作簿,工作表个数由SheetsInNewWorkBooks属性指定oExl.Workbooks.Open(cXLS,3,.T.)&打开指定工作簿(更新链接/只读打开)oExl.Workbooks.Open(cXLS, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)oExl.Worksheets(cSheet).Activate&激活工作表Sheet3oExl.Worksheets(3).Activate&激活(从左到右)第3个工作表oExl.WorkSheets.Count&工作簿中工作表数oExl.DefaultSaveFormat=39&默认格式Excel5.0oExl.DisplayAlerts=.F.&不显示警告信息oExl.Visible=.T.&显示Excel窗口oExl.Visible=.F.&不显示Excel窗口oExl.Caption=Excel标题栏&更改Excel标题栏oExl.WorkSheet(Sheet2).Range(A1).PasteSpecial&粘贴oExl.Quit&退出ExceloExl.DisplayRecentFiles=.T.&是否显示最近打开文档oExl.RecentFiles.Maximum=4&历史最大纪录数oExl.UserName=XXXX&用户名oExl.StandardFont=宋体&标准字体oExl.StandardFontSize=12&标准字体大小oExl.DefaultFilePath=D:XXXXXX&默认工作目录oExl.EnableSound=False&声音反馈oExl.RollZoom=False&智能鼠标缩放oExl.TransitionMenuKey=/&Microsoft Office Excel菜单键oExl.ActiveWorkbook.Password=123oExl.ActiveWorkbook.WritePassword=456oExl.ActiveWorkbook.ReadOnlyRecommended=FalseoExl.ActiveWorkbook.SetPasswordEncryptionOptionsPasswordEncryptionProvider:=,_PasswordEncryptionAlgorithm:=OfficeStandard,PasswordEncryptionKeyLength:=40_,PasswordEncryptionFileProperties:=FalseIF oExl.ActiveWorkbook.FileFormat=39&格式为Excel 5.0工作簿ENDIFoExl.ActiveWorkBook.SaveAs(FileName,FileFormat,PassWord,WriteResPassWord,ReadOnlyRecommended,CreateBackup)&另存为&参数说明FileName字符型,指定文件名FileFormat数值型,文件格式-4143Microsoft Office Excel11DBF439Microsoft Excel5.0/9543Microsoft Excel97-Excel2003 & 5.0/9544网页Html文件-4158文本文件(制表符分隔)PassWord字符型,只读密码WriteResPassWord字符型,写密码ReadOnlyRecommended逻辑型,建议只读CreateBackup逻辑型,自动备份例如:oExl.ActiveWorkBook.SaveAs(d:1.xls,39)oExl.ActiveWorkbook.saved=.T.&放弃存盘oExl.ActiveWorkbook.Save&存盘（自动存盘不提问）oExl.Workbooks.close&关闭工作簿3、单元格的设置*&冻结窗格oExl.ActiveSheet.Range(D4).SelectoExl.ActiveWindow.FreezePanes = .T.&条件格式设定oExl.ActiveSheet.Range(A1:H18).FormatConditions.Add(Type,Operator,Formula1,Formula2)Type类型(1单元格数值,2公式)Operator操作符(1介于,2不介于,3等于,4不等于,5大于,6小于,7大于等于,8小于等于)Formula1表达式1Formula2表达式2,操作符为1介于或2不介于才有效&条件格式例句:数值为0者,文字颜色白色oExl.ActiveSheet.UsedRange.FormatConditions.DeleteoExl.ActiveSheet.UsedRange.FormatConditions.Add(1,3,0)oExl.ActiveSheet.UsedRange.FormatConditions(1).Font.ColorIndex=2&文字白色&编辑oExl.ActiveSheet.UsedRange.Copy&拷贝整个工作表oExl.ActiveSheet.Range(A1:E2).Copy&拷贝指定区域oExl.ActiveSheet.Columns(D:D).Delete&删除列oExl.ActiveSheet.Columns(A:B).Delete&删除列oExl.ActiveSheet.Rows(1).Insert&在第1行之前插入一行oExl.ActiveSheet.Columns(2).Insert&在第2列之前插入一列oExl.ActiveSheet.Cells(1,2).Value=ABTMC&给单元格赋值oExl.ActiveSheet.Cells(2,2).Value=&BBBB&给单元格赋值oExl.ActiveSheet.Cells(1,4).ClearContents&清除单元格公式oExl.ActiveSheet.Rows(18).PageBreak=1&在第18行之前插入分页符oExl.ActiveSheet.Columns(4).PageBreak=0&在第4列之前删除分页符oExl.ActiveSheet.Rows(3).AutoFilter&自动筛选oExl.ActiveSheet.Cells(1,1).Delete(-4159)&删除单元格-4159右边单元格左移-4162下边单元格上移oExl.Selection.EntireRow.Delete&所在行整行删除oExl.Selection.EntireColumn.Delete&所在列整列删除oExl.ActiveSheet.Cells(1,1).Insert(-4142)&插入单元格-4142活动单元格下移-4161活动单元格右移oExl.ActiveSheet.Selection.EntireRow.Insert&插入行oExl.ActiveSheet.Selection.EntireColumn.Insert&插入列&选择性粘贴oExl.ActiveSheet.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalsePaste粘贴数据:8列宽,11公式和数值格式,12数值与数值格式,-4104全部,-4123公式,-4163数值,-4122格式,Operation运算符:-4142无,2加,3减,4乘,5除SkipBlanks跳过空白单元:逻辑型Transpose转置:逻辑型-&排序成功例句:oExl.ActiveSheet.Range(A1:+CHR(96+nMaxCol)+ALLTRIM(STR(nMaxRow).Sort(oExl.ActiveSheet.Range(CHR(96+ASCAN(Arry,原币金额)+2),2,1)&按原币金额所在列降序排列,有标题oExl.ActiveSheet.Rows(1:28).Sort Key1:=Range(A2), Order1:=xlDescending, Key2:=Range(B2), Order2:=xlAscending, Key3:=Range(C2), Order3:=xlDescending, Header:=xlYes,OrderCustom:=6,MatchCase:=True,Orientation:=xlTopToBottom, SortMethod:=xlStroke,DataOption1:=xlSortNormal,DataOption2:=xlSortNormal,DataOption3:=xlSortNormal参数说明:2xlDescending降序1xlAscenging升序标题行:0xlGuess1xlYes,2xlNo1xlTopToBottom排序方法:1xlPinYin,2xlStroke0xlSortNormalKey1排序字段:取值类型是范围oExl.ActiveSheet.Range(B2)Order1升序降序:xlAscending=1升序,xlDescending=2降序Header有无标题:xlGuess=0自动判断,xlYes=1有,xlNo=2无orderCustom排序顺序:1普通,6日一二三MatchCase是否区分大小写:T区分,F不区分Orientation1从头到底,2从左到右SortMethod排序方法:xlPinYin=1拼音,xlStroke=2字母DataOption1xlSortNormal=0正常DataOption2DateOption3&分类汇总LOCAL Array(1)Array(1)=5oExl.ActiveSheet.Range(A1:G28).Subtotal(2,-4157,Array,.T.,.F.,.T.)参数列表: GroupBy:=2, Function:=xlSum, TotalList:=Array(3), Replace:=True, PageBreaks:=False, SummaryBelowData:=True参数说明:GroupBy分组字段序号Function汇总方式:-4157求和,-4112计数TotalList汇总数据项:保存汇总列序号的数组引用Replace替换当前分类汇总:逻辑型,默认TPageBreaks每组数据分页:逻辑型,默认FSummaryBelowData汇总结果显示在数据下方:逻辑型,默认T&汇总结果表间切换oExl.ActiveSheet.Outline.ShowLevels RowLevels:=2oExl.ActiveSheet.Outline.ShowLevels RowLevels:=1oExl.ActiveSheet.Outline.ShowLevels RowLevels:=3&数值格式设置oExl.ActiveSheet.Range(A).NumberFormatLocal=0.00&指定区域内的数字显示格式&对齐设置oExl.ActiveSheet.Range(A1:B1).HorizontalAlignment=3&水平方向2左对齐，3居中，4右对齐oExl.ActiveSheet.UsedRange.VerticalAlignment=2&垂直方向1靠上，2居中，3靠下oExl.ActiveSheet.Range(A1:B1).WrapText=.T.&自动换行oExl.ActiveSheet.Range(A1:B1).Orientation = -4166&文字方向-4166垂直向下oExl.ActiveSheet.Range(A1:B1).AddIndent = False&缩进oExl.ActiveSheet.Range(A1:B1).IndentLevel = 2&缩进2字符oExl.ActiveSheet.Range(A1:B1).ShrinkToFit = .T.&缩小以填充oExl.ActiveSheet.Range(A1:B1).ReadingOrder = -5002&文字阅读方向-5002根据内容-5003从左到右oExl.selection.MergeCells=.T.&合并单元oExl.selection.HorizontalAlignment=2&水平方向2左对齐，3居中，4右对齐oExl.selection.VerticalAlignment=2&垂直方向1靠上，2居中，3靠下&字体设置oExl.ActiveSheet.ROWS(1).Font.Name=黑体&设置字体oExl.ActiveSheet.ROWS(1).Font.FontStyle=常规oExl.ActiveSheet.ROWS(1).Font.Size=14&设置字体大小oExl.ActiveSheet.ROWS(1).Font.Bold=.T.&设置整行字体为粗体oExl.ActiveSheet.ROWS(1).Font.StrikeThrough=.T.&删除线oExl.ActiveSheet.Cells(1,1).Font.Italic=.T.&设置字体为斜体oExl.ActiveSheet.ROWS(1).Font.Superscript = .T.&上标oExl.ActiveSheet.ROWS(1).Font.Subscript = .T.&下标oExl.ActiveSheet.ROWS(1).Font.OutlineFont = FalseoExl.ActiveSheet.ROWS(1).Font.Shadow = FalseoExl.ActiveSheet.ROWS(1).Font.Underline = -4142&下划线oExl.ActiveSheet.ROWS(1).Font.ColorIndex = -4105&字体颜色自动设置oExl.ActiveSheet.ROWS(1).Font.Underline = 2&下划线类型下划线类型2单下划线&边框设置oExl.ActiveSheet.Range(b3:d3).Borders.Weight=2&指定边框线宽度其中Borders参数：1左、2右、3顶、4底、5斜、6斜/；不带参数表示默认上下左右四个边框LineStyle值：1与7细实、2细虚、4点虚、9双细实线)oExl.ActiveSheet.Range(A1:BE29).Borders(1).LineStyle=1&设置四个边框线条的类型oExl.ActiveSheet.Range(A1:BE29).Borders(2).LineStyle=1&设置四个边框线条的类型oExl.ActiveSheet.Range(A1:BE29).Borders(3).LineStyle=1&设置四个边框线条的类型oExl.ActiveSheet.Range(A1:BE29).Borders(4).LineStyle=1&设置四个边框线条的类型&1xlContinuous&2xlThin&5xlDiagonalDown&6xlDiagonalUp&10xlEdgeRight&12xlInsideHorizontal&行列设置oExl.ActiveSheet.Columns(1).ColumnWidth=20&列的宽度(单位：字符个数)oExl.ActiveSheet.Columns(2).ColumnWidth=30oExl.ActiveSheet.Columns(C:BE).ColumnWidth=9.5oExl.ActiveSheet.Columns.AutoFit&最适合的列宽oExl.ActiveSheet.Rows(1).RowHeight=1/0.035&设置指定行的高度(单位：磅)(行高为1厘米，1磅=0.035厘米)oExl.ActiveSheet.Range(A1:B1).Interior.ColorIndex=nColorIndex&设置底纹常用颜色值ColorIndex1黑色2白色3红色4鲜绿5蓝色6黄色7粉红8青绿9深红10绿色13紫罗兰15灰-25%34浅青绿36浅黄38玫瑰红39淡紫40茶色42水绿46橙色53褐色54梅兰oExl.ActiveSheet.Range(P3:P4).Orientation=-4166&文字方向垂直&同一工作簿中复制工作表副本oExl.WorkSheets(1).Copy(oExl.ActiveWorkBook.Sheets(1)&不同工作簿oExl.Sheets(1).copy(oExl.Workbooks(BOOK1.XLS).Sheets(1)3、页面设置*oExl.ActiveSheet.PageSetup.TopMargin=2/0.035&设置顶边距oExl.ActiveSheet.PageSetup.BottomMargin=1.5/0.035&设置底边距oExl.ActiveSheet.PageSetup.LeftMargin=0&设置左边距oExl.ActiveSheet.PageSetup.RightMargin=0&设置右边距&页眉页脚oExl.ActiveSheet.PageSetup.HeaderMargin=1.5/0.035&设置页眉边距oExl.ActiveSheet.PageSetup.FooterMargin=0.8/0.035&设置页脚边距oExl.ActiveSheet.PageSetup.LeftHeader=&9XXXXXXoExl.ActiveSheet.PageSetup.CenterHeader=oExl.ActiveSheet.PageSetup.RightHeader=&9 oExl.ActiveSheet.PageSetup.LeftFooter=oExl.ActiveSheet.PageSetup.CenterFooter=&9第&P页,共&N页oExl.ActiveSheet.PageSetup.RightFooter=&9制表人:xxx &P页序号&N页总数&D日期,&T时间&S删除线&Y下标&Z路径&F文件&A标签&G图片&X上标&隶属,倾斜&9九号字体&U下划线&B粗体&左页眉图片设定oExl.ActiveSheet.PageSetup.LeftHeaderPicture.Filename=D:2.jpgoExl.ActiveSheet.PageSetup.LeftHeaderPicture.Height = 45oExl.ActiveSheet.PageSetup.LeftHeaderPicture.Width = 11.25oExl.ActiveSheet.PageSetup.LeftHeaderPicture.Brightness = 0.51oExl.ActiveSheet.PageSetup.LeftHeaderPicture.ColorType = msoPictureGrayscaleoExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropBottom = 28.35oExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropLeft = 28.35oExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropRight = 28.35oExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropTop = 28.35oExl.ActiveSheet.PageSetup.CenterHorizontally=.T.&设置页面水平居中oExl.ActiveSheet.PageSetup.CenterVertically=.T.&设置页面垂直居中&设置页面纸张大小oExl.ActiveSheet.PageSetup.Orientation=2&页面方向2表示横向oExl.ActiveSheet.PageSetup.PaperSize=11纸张大小:9A411A570A6oExl.ActiveSheet.PageSetup.Draft=.T.oExl.ActiveSheet.PageSetup.FirstPageNumber=1oExl.ActiveSheet.PageSetup.Order=1&单色打印oExl.ActiveSheet.PageSetup.BlackAndWhite=.T.oExl.ActiveSheet.PageSetup.PrintComments=-4142oExl.ActiveSheet.PageSetup.Zoom=100&缩放100%oExl.ActiveSheet.PageSetup.Zoom=.F.&禁用缩放oExl.ActiveSheet.PageSetup.FitToPagesWide=1&调整为一页宽oExl.ActiveSheet.PageSetup.FitToPagesTall=1&调整为一页高oExl.ActiveSheet.PageSetup.PrintHeadings=.T.oExl.ActiveSheet.PageSetup.PrintGridLines=.T.oExl.ActiveSheet.PageSetup.PrintErrors=oExl.ActiveSheet.PageSetup.PrintQuality=600&打印质量oExl.ActiveSheet.PageSetup.PrintTitleRows=$1:$3&固定标题行oExl.ActiveSheet.PageSetup.PrintTitleColumns=$A:$C&固定标题列oExl.ActiveSheet.PageSetup.PrintGridlines=.T.&打印单元格网线*&打印oExl.ActiveSheet.PrintPreview&打印预览工作表oExl.ActiveSheet.PageSetup.PrintArea=$A$1:$E$30&设置打印区域ActiveSheet.PageSetup.PrintArea = &取消打印区域ActiveWorkbook.WebPagePreview&网页预览oExl.ActiveSheet.PrintOut&打印输出工作表5、VFP下直接调用EXCEL、WORD文件DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile,STRING, STRING,INTEGERoperate=openShellExecute(0,operate,C:111.XLS,0,0,1)&EXCEL文件ShellExecute(0,operate,C:111.DOC,0,0,1)&WORD文件oExcel=Createobject(Excel.application)&创建Excel对象*对象属性 1、添加 Sheets.Add before:=Sheets(1) 在第1工作表前添加新工作表 Sheets.Add after:=Sheets(Sheets.Count) 在最后工作表后添加新工作表 2、移动 ActiveSheet.Move before:=Sheets(2) 将当前工作表移动至第2工作表之前 3、命名 ActiveSheet.Name=工作表名 将当前工作表命名为工作表名 4、删除 可以用以下语句删除当前工作表。 ActiveSheet.Delete 但在删除前Excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭Excel的警告提示。 Application.DisplayAlerts = False 在删除完成后，再重新打开Excel的警告提示oExcel.Visible=.T.&显示Excel窗口oExcel.Caption=VFP应用程序调用MicrosoftExcel&更改Excel标题栏oExcel.DisplayAlerts=.F.&关闭提示和警告消息，运行结束后，应将本属性设置回True值oExcel.cells(1,4).Value=XM(XM为数据库字段名)&给单元格赋值*Workbooks属性oExcel.Workbooks.Add&添加新工作簿oExcel.Workbooks.Open(c:templl.xls)&打开指定工作簿oExcel.Workbooks.Close&关闭工作簿oExcel.Quit&退出ExcelReleaseoExcel&只有释放对象变量,EXCEL进程才会完全关闭*Worksheets属性oExcel.Worksheets(sheet3).Activate&设置第3个工作表为激活工作表oExcel.Worksheets(Sheet1).Rows(18).PageBreak=1&在第18行之前插入分页符oExcel.WorkSheet(Sheet2).Range(A1).PasteSpecial&粘贴*ActiveWorkbook属性oExcel.ActiveWorkbook.SaveAs(c:temp22.xls)&工作表另存为oExcel.ActiveWorkbook.saved=.T.&放弃存盘,避免出现保存对话框oExcel.ActiveWorkbook.Save&存盘oExcel.ActiveWorkbook.Close(.F.)&关闭工作簿oExcel.ActiveWorkbook.Protect(密码,.T.,.T.)&保护工作薄(第一个.T.：保护工作簿结构,第二个.T.：保护工作簿窗口)*ActiveSheet属性oExcel.ActiveSheet.UsedRange.Copy&拷贝整个工作表oExcel.ActiveSheet.PrintPreview&打印预览工作表oExcel.ActiveSheet.PrintOut&打印输出工作表oExcel.ActiveSheet.Protect(密码,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)&保护工作表oExcel.ActiveSheet.Protection.AllowEditRanges.Add(3,oExcel.ActiveSheet.Range(A2:D5)&设置允许用户编辑区域*表格列属性oExcel.ActiveSheet.Columns(2).Insert&在第2列之前插入一列oExcel.ActiveSheet.Columns(1).ColumnWidth=5&设置指定列的宽度(单位：字符个数)oExcel.ActiveSheet.Columns(4).PageBreak=