VBS控制Excel的一些常见方法: (一)使用动态创建的方法 首先创建Excel对象,使用ComObj: oExcel=CreateObject("Excel.Application") 1)显示当前窗口: oExcel.Visible=True 2)更改Excel标题栏: oExcel.Caption="应用程序调用MicrosoftExcel" 3)添加新工作簿: oExcel.WorkBooks.Add 4)打开已存在的工作簿: oExcel.WorkBooks.Open("C:\Excel\Demo.xls") 5)设置第2个工作表为活动工作表:oExcel.WorkSheets(2).Activate或 oExcel.WorksSheets("Sheet2").Activate 6)给单元格赋值: oExcel.Cells(1,4).Value="第一行第四列" 7)设置指定列的宽度(单位:字符个数),以第一列为例:oExcel.ActiveSheet.Columns(1).ColumnsWidth=5 8)设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:oExcel.ActiveSheet.Rows(2).RowHeight=1/0.035'1厘米 9)在第8行之前插入分页符: oExcel.WorkSheets(1).Rows(8).PageBreak=1 10)在第8列之前删除分页符: oExcel.ActiveSheet.Columns(4).PageBreak=0 11)指定边框线宽度: oExcel.ActiveSheet.Range("B3:D4").Borders(2).Weight=3
1-左2-右3-顶4-底5-斜(\)6-斜(/) 12)清除第一行第四列单元格公式: oExcel.ActiveSheet.Cells(1,4).ClearContents 13)设置第一行字体属性: 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 14)进行页面设置: a.页眉: oExcel.ActiveSheet.PageSetup.CenterHeader="报表演示" b.页脚: oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页" c.页眉到顶端边距2cm: oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035 d.页脚到底端边距3cm: oExcel.ActiveSheet.PageSetup.HeaderMargin=3/0.035 e.顶边距2cm: oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035 f.底边距2cm: oExcel.ActiveSheet.PageSetup.BottomMargin=2/0.035 g.左边距2cm: oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035 h.右边距2cm: oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035 i.页面水平居中: oExcel.ActiveSheet.PageSetup.CenterHorizontally=2/0.035j.页面垂直居中: oExcel.ActiveSheet.PageSetup.CenterVertically=2/0.035 k.打印单元格网线: oExcel.ActiveSheet.PageSetup.PrintGridLines=True 15)拷贝操作:a.拷贝整个工作表: oExcel.ActiveSheet.Used.Range.Copyb.拷贝指定区域: oExcel.ActiveSheet.Range("A1:E2").Copy c.从A1位置开始粘贴: oExcel.ActiveSheet.Range.("A1").PasteSpecial d.从文件尾部开始粘贴: oExcel.ActiveSheet.Range.PasteSpecial 16)插入一行或一列: a.oExcel.ActiveSheet.Rows(2).Insert b.oExcel.ActiveSheet.Columns(1).Insert 17)删除一行或一列: a.oExcel.ActiveSheet.Rows(2).Delete b.oExcel.ActiveSheet.Columns(1).Delete 18)打印预览工作表: oExcel.ActiveSheet.PrintPreview 19)打印输出工作表: oExcel.ActiveSheet.PrintOut 20)工作表保存: ifnotoExcel.ActiveWorkBook.SavedthenoExcel.ActiveSheet.PrintPreview 21)工作表另存为: oExcel.SaveAs("C:\Excel\Demo1.xls") 22)放弃存盘: oExcel.ActiveWorkBook.Saved=True 23)关闭工作簿: oExcel.WorkBooks.Close 24)退出Excel: oExcel.Quit
来源:https://www.cnblogs.com/lnd-blog/p/12503364.html