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

《VFP控制EXCEL的方法(终于找到了)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、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&&窗口最大化*----------------------

2、--------------------------------*&&页面设置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&&顶边

3、距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.Ac

4、tiveSheet.PageSetup.FooterMargin=0.5/0.035oExl.ActiveSheet.PageSetup.LeftHeader="&9表格"”9是字号”oExl.ActiveSheet.PageSetup.CenterHeader=""oExl.ActiveSheet.PageSetup.RightHeader="&9"oExl.ActiveSheet.PageSetup.LeftFooter=""oExl.ActiveSheet.PageSetup.CenterFoote

5、r="&9第&P页,共&N页"oExl.ActiveSheet.PageSetup.RightFooter="&9制表人:'+代码+'制表时间:"+TTOC(DATETIME())*------------------------------------------------------*&&整体格式设置oExl.ActiveSheet.Rows.Font.Size=9oExl.ActiveSheet.Rows.Font.Name='宋体'oExl.ActiveSheet.Rows.RowHeight=

6、0.5/0.035oExl.ActiveSheet.Rows.NumberFormatLocal="0.00_;[红色]-0.00"oExl.ActiveSheet.Rows.VerticalAlignment=2&&单元格内容垂直居中*------------------------------------------------------*&&获取最大行号和最大列号LocalnMaxRow,nMaxColnMaxRow=oExl.ActiveSheet.UsedRange.Rows.CountnMa

7、xCol=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).HorizontalAlig

8、nment=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*-------------