VFP控制ECEL的方法(终于找到了).pdfVIP

. 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