打開excel及新建工作薄
'' 2. Method
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 2.1 CreateObject Method
' 語法：CreateObject(appname.objectType, [servename])
' 解釋：appname, 必要， Variant(字符串)。提供該對象的應用程序名。
' objecttype, 必要，Variant。帶創建對象的類型或是類。
' servename，可選，Variant。要在其上創建對象的網絡服務器名稱。
'
' 說明：要創建ActiveX對象，只需將CreateObject返回的對象賦給一個對象變量：
' 例子：Set oExcel = CreateObject("Excel.Application")
' 聲明一個對象變量，並使用動態創建方法創建該對象
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
' 1) 使Excel可見
oExcel.Visible = true
' 2) 更改Excel標題欄
oExcel.caption = "qyx's vbs"
' 3) 添加一個新的工作薄
oExcel.workBooks.add
' 4) 打開已存在的工作薄
' oExcel.workbooks.open("d:\temp.xlsx")
' 5) 設置第2個工作頁為活動工作表
oExcel.worksheets(2).activate
' 或者
' oExcel.worksheets("Sheet2").activate
單元格賦值及基本操作
' 6) 給單元格賦值
oExcel.cells(1,1).value = "This is column A, row 1"
' 7) 設置指定行的高度（單位：磅, 0.035cm）
oExcel.activeSheet.rows(2).rowHeight = 1/0.035 ' 1cm
' 8) 設置指定列的寬度（單位：字符個數）
oExcel.activeSheet.columns(1).columnWidth = 5
' 9) 在第8行之前插入分頁符
oExcel.worksheets(1).rows(8).pagebreak = 1
' 10) 在第8列之前刪除分頁符
oExcel.worksheets(1).columns(8).pagebreak = 0
' 11) 指定邊框線寬度
' 說明：1-左 2-右 3-頂 4-底 5-\ 6-/
oExcel.activeSheet.range("B3:D4").borders(5).weight = 3
' 12) 清除第1行第4列單元格公式
oExcel.activeSheet.cells(1,4).clearcontents
' oExcel.activeSheet.cells(1,4).value = ""
' 13) 設置第一行字體屬性
oExcel.activeSheet.rows(1).font.name = "黑體"
oExcel.activesheet.rows(1).font.color = vbRed
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.footerMargin = 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.centerVertically = 2/0.035
' k) 打印單元格網線
oExcel.activeSheet.pageSetup.printGridLines = true
拷貝及粘貼操作
' 15) 拷貝與粘貼操作
' a) 拷貝整個工作表
' oExcel.activeSheet.copy ' 未測試
' b) 拷貝指定區域
oExcel.activeSheet.range("A1:E2").copy
' c) 從A1位置開始粘貼
oExcel.activeSheet.range("A1").pasteSpecial
' d) 從文件尾部開始粘貼
' oExcel.activeSheet.range.pasteSpecial '未測試
' 16) 插入一行或一列
oExcel.activeSheet.rows(2).insert
oExcel.activeSheet.columns(1).insert
' 17) 刪除一行或一列
oExcel.activeSheet.rows(2).delete
oExcel.activeSheet.columns(1).delete
打印及預覽
' 18) 打印預覽工作表
oExcel.activeSheet.printPreview
' 19) 打印輸出工作表
oExcel.activeSheet.printOut
保存及退出
' 20) 工作表保存
oExcel.activeWorkBook.saveAs "d:\te.xls", 56
' 21) 關閉退出
' 關閉工作薄
oExcel.activeWorkBook.close
' 使用應用程序對象的quit方法關閉Excel
oExcel.Quit
' 釋放該對象變量
Set oExcel = Nothing
