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
