VFP控制ECEL的方法分析和总结.docx

!- !- VFP 控制 EXCEL 的常用方法 oExl=CREATEOBJECT(Excel.application) oExl.Visible=.T. oExl.DefaultSaveFormat=39 oExl.SheetsInNewWorkbook=1 oExl.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-A5 oExl.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.035 oExl.ActiveSheet.PageSetup.FooterMargin=0.5/0.035 oExl.ActiveSheet.PageSetup.LeftHeader=9 表 格 ”9 是 字 号 ” oExl.ActiveSheet.PageSetup.CenterHeader= oExl.ActiveSheet.PageSetup.RightHeader=9 oExl.ActiveSheet.PageSetup.LeftFooter= oExl.ActiveSheet.PageSetup.CenterFooter=9第P 页,共N 页 oExl.ActiveSheet.PageSetup.RightFooter=9制表人:+代码+ 制表时间:+TTOC(DATETIME()) ** 整体格式设置oExl.ActiveSheet.Rows.Font.Size=9 oExl.ActiveSheet.Rows.Font.Name= 宋 体 oExl.ActiveSheet.Rows.RowHeight=0.5/0.035 oExl.ActiveSheet.Rows.NumberFormatLocal=0.00_ ;[ 红 色 ]-0.00 oExl.ActiveSheet.Rows.VerticalAlignment=2 单元格内容垂直居中 ** 获取最大行号和最大列号Local nMaxRow,nMaxCol nMaxRow=oExl.ActiveSheet.UsedRange.Rows.Count nMaxCol=oExl.ActiveSheet.UsedRange.Columns.Count 表头格式设置oExl.ActiveSheet.Rows(1).Font.Size=16 oExl.ActiveSheet.Rows(1).Font.Bold=.T. oExl.ActiveSheet.Rows(1).RowHeight=1/0.035 oExl.ActiveSheet.Rows(1).HorizontalAlignment=3 oExl.ActiveSheet.Rows(2).HorizontalAlignment=3 oExl.ActiveSheet.Rows(3).HorizontalAlignment=3 oExl.ActiveSheet.Rows(3).Font.Bold=.T. oExl.ActiveSheet.Range(A1:+CHR(96+nMaxCol)+1).Merge oExl.ActiveSheet.Range(A2:+CHR(96+nMaxCol)+2).Merge ** 条件格式隐藏 0 值oExl.ActiveSheet.UsedRange.FormatConditions.Delete oExl.ActiveSheet.UsedRange.FormatConditions.Add(1,3,0) oExl.ActiveSheet.UsedRange.FormatConditio