oExcel=Createobject(\创建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=\应用程序调用MicrosoftExcel\更改Excel标题栏
oExcel.DisplayAlerts=.F.&&关闭提示和警告消息，运行结束后，应将本属性设置回True值 oExcel.cells(1,4).Value=XM(XM为数据库字段名)&&给单元格赋值 **Workbooks属性
oExcel.Workbooks.Add&&添加新工作簿
oExcel.Workbooks.Open(\打开指定工作簿 oExcel.Workbooks.Close&&关闭工作簿 oExcel.Quit&&退出Excel
ReleaseoExcel&&只有释放对象变量,EXCEL进程才会完全关闭 **Worksheets属性
oExcel.Worksheets(\设置第3个工作表为激活工作表
oExcel.Worksheets(\在第18行之前插入分页符 oExcel.WorkSheet(\粘贴 **ActiveWorkbook属性
oExcel.ActiveWorkbook.SaveAs(\工作表另存为 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(\设置允许用户编辑区域
**表格列属性
oExcel.ActiveSheet.Columns(2).Insert&&在第2列之前插入一列
oExcel.ActiveSheet.Columns(1).ColumnWidth=5&&设置指定列的宽度(单位：字符个数) oExcel.ActiveSheet.Columns(4).PageBreak=0&&在第4列之前删除分页符 oExcel.ActiveSheet.Columns(1).Font.Bold=.T.&&设置整列字体为粗体 **表格行属性
oExcel.ActiveSheet.Rows(2).Insert&&在第2行之前插入一行
oExcel.ActiveSheet.Rows(1).RowHeight=1&&设置指定行的高度(单位：磅)(设定行高为1磅，1磅=0.035厘米)
oExcel.ActiveSheet.Rows(\设置第50行至100行的高度 **表格范围属性
oExcel.Range(\水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐)
oExcel.Range(\垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐)
oExcel.Range(\文本自动换行 oExcel.ActiveSheet.Range(\合并单元格 oExcel.ActiveSheet.Range(\拷贝指定区域
oExcel.ActiveSheet.Range(\指定边框线宽度(Borders参数如下) oExcel.ActiveSheet.Range(\设置四个边框线条的类型
&&(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
**页面设置
WITHoExcel.ActiveSheet.PageSetup .CenterHeader=\报表1\设置页眉
.CenterHeader=\报表1\设置页眉(字体大小),'&'后面的50可以自定义，表示字体的大小 .CenterFooter=\第&P页\
&&设置页脚(LeftFoot：居左,CenterFooter：居中,RightFooter：居右） .CenterFooter=\第&P页共&N页\
&&设置页脚(字体大小),'&'后面的28可以自定义，表示字体的大小 .HeaderMargin=2/0.035&&设置页眉到顶端边距为2厘米 .FooterMargin=3/0.035&&设置页脚到底边距为3厘米 .TopMargin=2/0.035&&设置顶边距为2厘米 .BottomMargin=4/0.035&&设置底边距为4厘米 .LeftMargin=2/0.035&&设置左边距为2厘米 .RightMargin=2/0.035&&设置右边距为2厘米 .CenterHorizontally=.T.&&设置页面水平居中 .CenterVertically=.T.&&设置页面垂直居中 .Papersize=1&&设置页面纸张大小(1－窄行.Orientation=1&&设置纸张方向（1-竖向，2-横向）
.PrintTitleRows=\设置顶端标题行,(每页都打印行标头（每页顶部出现的单元格的行）) .PrintGridlines=.T.&&打印单元格网线 .Zoom=75&&设置缩放比例为75% ENDWITH **单元格设置
WITHoExcel.ActiveSheet.Cells(1,1)&&第一行第一列单元格 .Font.Name=\黑体\字体名字 .Font.Size=25&&大小
.Font.Italic=.T.&&为斜体(Bold-粗体) .Value=\数值\给单元格赋值 .ClearContents&&清除单元格公式 ENDWITH
－宽行