可以用在AU3上的 EXCEL VBA 的操作語法....基本上都可以應用在AU3上

kk_lee69

(一) 使用動態創建的方法

首先創建 Excel 物件，使用ComObj:

oExcel = CreateObject( "Excel.Application" )

1) 顯示當前視窗：
oExcel.Visible = True

2) 更改 Excel 標題欄：
oExcel.Caption = "應用程式調用 Microsoft Excel"

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.035
j.頁面垂直居中：
oExcel.ActiveSheet.PageSetup.CenterVertically = 2/0.035
k.列印單格網線：
oExcel.ActiveSheet.PageSetup.PrintGridLines = True

15) 拷貝操作：

a.拷貝整個工作表：
oExcel.ActiveSheet.Used.Range.Copy
b.拷貝指定區域：
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) 工作表保存：
if not oExcel.ActiveWorkBook.Saved then
oExcel.ActiveSheet.PrintPreview

21) 工作表另存為：
oExcel.SaveAs( "C:\Excel\Demo1.xls" )

22) 放棄存檔：
oExcel.ActiveWorkBook.Saved = True

23) 關閉工作簿：
oExcel.WorkBooks.Close

24) 退出 Excel：
oExcel.Quit

(二) 使用VBS 控制Excle二維圖

1）選擇當第一個工作薄第一個工作表
set oSheet=oExcel.Workbooks(1).Worksheets(1)

2）增加一個二維圖
achart=oSheet.chartobjects.add(100,100,200,200)

3）選擇二維圖的形態
achart.chart.charttype=4

4）給二維圖賦值
set series=achart.chart.seriescollection
range="sheet1!r2c3:r3c9"
series.add range,true

5）加上二維圖的標題
achart.Chart.HasTitle=True
achart.Chart.ChartTitle.Characters.Text=" Excle二維圖"

6）改變二維圖的標題字體大小
achart.Chart.ChartTitle.Font.size=18

7）給二維圖加下標說明
achart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True
achart.Chart.Axes(xlCategory,
xlPrimary).AxisTitle.Characters.Text = "下標說明"

8）給二維圖加左標說明
achart.Chart.Axes(xlValue, xlPrimary).HasTitle = True
achart.Chart.Axes(xlValue,
xlPrimary).AxisTitle.Characters.Text = "左標說明"

9）給二維圖加右標說明
achart.Chart.Axes(xlValue, xlSecondary).HasTitle = True
achart.Chart.Axes(xlValue,
xlSecondary).AxisTitle.Characters.Text = "右標說明"

10）改變二維圖的顯示區大小
achart.Chart.PlotArea.Left = 5
achart.Chart.PlotArea.Width = 223
achart.Chart.PlotArea.Height = 108

user3000

谢谢分享!
一直对 EXCEL VBA 是一窍不通的!

jwxt

留底 备用 留底 备用留底 备用留底 备用

weineng

一直想找这个，真是高人啊！

blue_dvd

帮助文件那里有吧？多些楼主笔记！

xulinghai

太少了，多加点吧。

bdancerlc

不错啊，谢谢分享...

summer_zzt

Thanks for your kind sharing!

magus

这个其实是相当的实用哇~

yelangpp

不会是直接书写吧

_LK_一生所爱

非常感谢LZ啊!!!!!!!!!!!!!!!

_LK_一生所爱

请问按那个宏按钮的代码是多少？！！~~！！？

sxxsq

非常感谢LZ啊!!!!!!!!!!!!!!!

zldfsz

谢谢楼主，收藏备用

ojoojo

谢谢分享,先占个位先