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