1、VBS 控制 Excel 的一些常見方法：(一) 使用動(dòng)態(tài)創(chuàng)建的方法首先創(chuàng)建 Excel 對(duì)象，使用 ComObj:oExcel = CreateObject( Excel.Application )1) 顯示當(dāng)前窗口：oExcel.Visible = True2) 更改 Excel 標(biāo)題欄：oExcel.Caption = 應(yīng)用程序調(diào)用Excel3) 添加新工作簿：oExcel.WorkBooks.Add4) 打開已存在的工作簿：oExcel.WorkBooks.Open( C:ExcelDemo.xls )5) 設(shè)置第 2 個(gè)工作表為活動(dòng)工作表：oExcel.WorkSheets(2).A

2、ctivate或oExcel.WorksSheets( Sheet2 ).Activate6) 給單元格賦值：oExcel.Cells(1,4).Value = 第一行第四列7) 設(shè)置指定列的寬度（：字符個(gè)數(shù)），以第一列為例：oExcel.ActiveSheet.Column(1).ColumnsWidth = 58) 設(shè)置指定行的高度（：磅）（1 磅0.035 厘米），以第二行為例：oExcel.ActiveSheet.Row(2).RowHeight = 1/0.035 1 厘米9) 在第 8 行之前分頁(yè)符：oExcel.WorkSheets(1).Rows(8).PageBreak =

3、110) 在第 8 列之前刪除分頁(yè)符：oExcel.ActiveSheet.Columns(4).PageBreak = 011) 指定邊框線寬度：oExcel.ActiveSheet.Range( B3:D4 ).Borders(2).Weight = 3 1-左 2-右 3-頂 4-底 5-斜( ) 6-斜( / )12) 清除第一行第四列單元格公式：oExcel.ActiveSheet.Cells(1,4).ClearContents13) 設(shè)置第一行字體屬性： oExcel.ActiveSheet.Rows(1).Font.Name = 隸書 oExcel.ActiveSheet.Ro

4、ws(1).Font.Color = VbBlue oExcel.ActiveSheet.Rows(1).Font.Bold = True oExcel.ActiveSheet.Rows(1).Font.UnderLine = TrueoExcel.ActiveSheet.Columns(1).Font.Name = 隸書 oExcel.ActiveSheet.Columns(1).Font.Color = clBlue oExcel.ActiveSheet.Columns (1).Font.Bold = True oExcel.ActiveSheet.Columns (1).Font.Und

5、erLine = True14) 進(jìn)行頁(yè)面設(shè)置：a.頁(yè)眉： oExcel.ActiveSheet.PageSetup.CenterHeader b.頁(yè)腳： oExcel.ActiveSheet.PageSetup.CenterFooter c.頁(yè)眉到頂端邊距 2cm： oExcel.ActiveSheet.PageSetup.HeaderMargin d.頁(yè)腳到底端邊距 3cm： oExcel.ActiveSheet.PageSetup.HeaderMargin e.頂邊距 2cm：=報(bào)表演示=第&P 頁(yè)=2/0.035=3/0.035oExcel.ActiveSheet.PageSetup.

6、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.頁(yè)面水平居中：oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035 j.頁(yè)面垂直居中： oExcel.ActiveSheet

7、.PageSetup.CenterVertically = 2/0.035 k.打印單元格網(wǎng)線：oExcel.ActiveSheet.PageSetup.PrGridLines = True15) 拷貝操作：a.拷貝整個(gè)工作表： oExcel.ActiveSheet.Used.Range.Copy b.拷貝指定區(qū)域：oExcel.ActiveSheet.Range( A1:E2 ).Copy c.從 A1 位置開始粘貼： oExcel.ActiveSheet.Range.( A1 ).PasteSpe d.從文件尾部開始粘貼：loExcel.ActiveSheet.Range.PasteSpe

8、l16)一行或一列：oExcel.ActiveSheet.Rows(2).InsertoExcel.ActiveSheet.Columns(1).Insert17) 刪除一行或一列：oExcel.ActiveSheet.Rows(2).DeleteoExcel.ActiveSheet.Columns(1).Delete18) 打印預(yù)覽工作表：oExcel.ActiveSheet.PrPreview19) 打印輸出工作表：oExcel.ActiveSheet.PrOut20) 工作表保存：if not oExcel.ActiveWorkBook.Saved then oExcel.ActiveS

9、heet.Save21) 工作表另存為：oExcel.SaveAs( C:ExcelDemo1.xls )22) 放棄存盤：oExcel.ActiveWorkBook.Saved = True23) 關(guān)閉工作簿：oExcel.WorkBooks.Close24) 退出 Excel： oExcel.Quit25）設(shè)置單元格背景顏色newsheet3.Cells(m , i).erior.ColorIndex = 6Sheet1.Range(b2).erior.ColorIndex = 6(二) 使用 VBS 控制 Excle 二維圖1）選擇當(dāng)?shù)谝粋€(gè)工作薄第一個(gè)工作表set oSheet=oExc

10、el.Workbooks(1).Worksheets(1)2）增加一個(gè)二維圖 achart=oSheet.chartobjects.add(100,100,200,200)3）選擇二維圖的形態(tài) achart.chart.charttype=44）給二維圖賦值set series=achart.chart.seriescollection range=sheet1!r2c3:r3c9series.add range,true5）加上二維圖的標(biāo)題achart.CharsTitle=Trueachart.Chart.ChartTitle.Characters.Text= Excle 二維圖6）改變二

11、維圖的標(biāo)題字體大小 achart.Chart.ChartTitle.Font.size=187）給二維圖加下標(biāo)說(shuō)明achart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 下標(biāo)說(shuō)明8）給二維圖加左標(biāo)說(shuō)明 achart.Chart.Axes(xlValue, achart.Chart.Axes(xlValue,標(biāo)說(shuō)明xlPrimary).HasTitle = True xlPrimary).AxisTitle.Characters.Text = 左9）給二維圖加右標(biāo)說(shuō)明 achart.Chart.Axes(xlValue, achart.Chart.Axes(xlValue,右標(biāo)說(shuō)明xlS