摘要：
创建和操作Excel对象。'插入oExcel。ActiveSheet。排。插入“删除oExcel”。ActiveSheet。排。删除“设置高度”。以第二行为例：oExcel。ActiveSheet。排。RowHeight=1/0.035'单位：点，1点=0.035cm'设置Excel的第一行字体属性。ActiveSheet。排。字体。Name=“隶书”oExcel。ActiveSheet。排。字体。颜色=clBlueoExcel。ActiveSheet。排。字体。Bold=TrueoExcel。ActiveSheet。排。字体。在Line=True action列下。'设置宽度，以第一列为例：oExcel。ActiveSheet。柱。ColumnsWidth=5'单位：字符数'插入oExcel。ActiveSheet。柱。插入“删除oExcel”。ActiveSheet。柱。删除操作单元。
创建并操作Excel对象。
'使用ComObj创建Excel对象 oExcel = CreateObject( "Excel.Application" ) '显示当前窗口 oExcel.Visible = True '更改标题栏 oExcel.Caption = "XXX" '新建 oExcel.WorkBooks.Add '打开 oExcel.WorkBooks.Open("C:1.xls") '保存 if not oExcel.ActiveWorkBook.Saved then oExcel.ActiveSheet.PrintPreview '另存为 oExcel.SaveAs( "C:1.xls" ) '放弃存盘 oExcel.ActiveWorkBook.Saved = True '关闭： oExcel.WorkBooks.Close '退出 oExcel.Quit
操作表。
'激活 oExcel.WorkSheets(2).Activate oExcel.WorksSheets( "Sheet2" ).Activate '选择当第一个工作薄第一个工作表 Set oSheet=oExcel.Workbooks(1).Worksheets(1) '复制 oExcel.ActiveSheet.Used.Range.Copy oExcel.ActiveSheet.Range( "A1:E2" ).Copy '粘贴 oExcel.ActiveSheet.Range.( "A1" ).PasteSpecial oExcel.ActiveSheet.Range.PasteSpecial '边框线宽度： oExcel.ActiveSheet.Range( "B3:D4" ).Borders(2).Weight = 3 'Border数组成员：1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / )
操作行。
'插入 oExcel.ActiveSheet.Rows(2).Insert '删除 oExcel.ActiveSheet.Rows(2).Delete '设置高度，以第二行为例： oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 '单位：磅，1磅＝0.035厘米 '设置第一行字体属性 oExcel.ActiveSheet.Rows(1).Font.Name = "隶书" oExcel.ActiveSheet.Rows(1).Font.Color = clBlue oExcel.ActiveSheet.Rows(1).Font.Bold = True oExcel.ActiveSheet.Rows(1).Font.UnderLine = True
操作列。
'设置宽度，以第一列为例： oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5 '单位：字符个数 '插入 oExcel.ActiveSheet.Columns(1).Insert '删除 oExcel.ActiveSheet.Columns(1).Delete
操作单元格。
'赋值 oExcel.Cells(1,4).Value = "ABC" '清除单元格公式 oExcel.ActiveSheet.Cells(1,4).ClearContents
页面格式设置。
'插入分页符 oExcel.WorkSheets(1).Rows(8).PageBreak = 1 '删除分页符 oExcel.ActiveSheet.Columns(4).PageBreak = 0 '页面设置 '页眉 oExcel.ActiveSheet.PageSetup.CenterHeader = "ABC" '页脚 oExcel.ActiveSheet.PageSetup.CenterFooter = "第&P页" '页眉到顶端边距2cm oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035 '页脚到底端边距3cm oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035 '顶边距2cm oExcel.ActiveSheet.PageSetup.TopMargin = 2/0.035 '底边距2cm oExcel.ActiveSheet.PageSetup.BottomMargin = 2/0.035 '左边距2cm oExcel.ActiveSheet.PageSetup.LeftMargin = 2/0.035 '右边距2cm oExcel.ActiveSheet.PageSetup.RightMargin = 2/0.035 '水平居中 oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035 '垂直居中 oExcel.ActiveSheet.PageSetup.CenterVertically = 2/0.035 '打印单元格网线 oExcel.ActiveSheet.PageSetup.PrintGridLines = True '打印预览工作表 oExcel.ActiveSheet.PrintPreview '打印输出工作表 oExcel.ActiveSheet.PrintOut
基本上，操作的方法等同于在Excel VBA中使用的方法。如果有一些方法不是很清楚，也可以使用[宏录制]命令，先录制下来，再进行语句修改。～