VBS 操作Excel的常用方法

创建并操作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中使用的方法。如果有一些方法不是很清楚，也可以使用[宏录制]命令，先录制下来，再进行语句修改。～