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中使用的方法。如果有一些方法不是很清楚，也可以使用[宏錄制]命令，先錄制下來，再進行語句修改。～