這範例是用在有一個固定表格時，將此表格當為範本，
然後使用 這各複製的方法來建立 格式 並將資料填入格式中。
'--------------------------------------
xlapp.Application.Worksheets(1).Cells.Copy
xlapp.Application.Worksheets.Add
xlapp.Range("A1").Select
xlapp.ActiveSheet.Paste
'-----------------------------------------------------------
1 則留言:
hi,一些網路上整理的資料,與您分享~
Excel控制指令介紹：
1.建立Excel物件
set xlApp = CREATEOBJECT("Excel.application")
2.添加新工作簿
xlApp.Workbooks.add
3.設置第1個工作表為啟動工作表
xlApp.Worksheets("sheet1").Activate
4.打開指定工作簿
xlApp.Workbooks.Open("c:\temp\test.xls")
5.顯示Excel視窗
xlApp.visible=true
6.更改Excel標題欄
xlApp.Caption="Test"
7.給單格值
xlApp.cells(1,4).value="test"
8.設置指定列的寬度(單位：字元個數)
xlApp.ActiveSheet.Columns(1).ColumnWidth=5
9.設置指定行的高度為1釐米(單位：磅，1磅=0.035釐米)
xlApp.ActiveSheet.Rows(1).RowHeight=1/0.035
10.在第18行之前插入分頁符
xlApp.Worksheets("Sheet1").Rows(18).PageBreak=1
11.在第4列之前刪除分頁符
xlApp.ActiveSheet.Columns(4).PageBreak=0
12.指定邊框線寬度(Borders參數如下)
xlApp.ActiveSheet.Range("b3:d3").Borders(2).Weight=3
13.設置四個邊框線條的類型
xlApp.ActiveSheet.Range("b3:d3").Borders(x).LineStyle=y
(x：1－左、2－右、3－頂、4－底、5－斜、6－斜/)
(y：1與7－細實、2－細虛、4－點虛、9－雙細實線)
14.設置頁首
xlApp.ActiveSheet.PageSetup.CenterHeader="報表1"
15.設置頁尾
xlApp.ActiveSheet.PageSetup.CenterFooter="第＆P頁"
16.設置頁首到頂端邊距為2釐米
xlApp.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17.設置頁尾到底邊距為2釐米
xlApp.ActiveSheet.PageSetup.FooterMargin=2/0.035
18.設置頂邊距為2釐米
xlApp.ActiveSheet.PageSetup.TopMargin=2/0.035
19.設置底邊距為2釐米
xlApp.ActiveSheet.PageSetup.BottomMargin=2/0.035
20.設置左邊距為2釐米
xlApp.ActiveSheet.PageSetup.LeftMargin=2/0.035
21.設置右邊距為2釐米
xlApp.ActiveSheet.PageSetup.RightMargin=2/0.035
22.設置頁面水平居中
xlApp.ActiveSheet.PageSetup.CenterHorizontally=true
23.設置頁面垂直居中
xlApp.ActiveSheet.PageSetup.CenterVertically=true
24.設置頁面紙張大小
xlApp.ActiveSheet.PageSetup.PaperSize=1
(1－窄行8511 39－寬行1411)
25.列印單格格線
xlApp.ActiveSheet.PageSetup.PrintGridlines=true
26.拷貝整個工作表
xlApp.ActiveSheet.UsedRange.Copy
27.拷貝指定區域
xlApp.ActiveSheet.Range("A1:E2").Copy
28.貼上
xlApp.WorkSheet("Sheet2").Range("A1").PasteSpecial
29.在第2行之前插入一行
xlApp.ActiveSheet.Rows(2).Insert
30.在第2列之前插入一列
xlApp.ActiveSheet.Columns(2).Insert
31.設定字型
xlApp.ActiveSheet.Cells(2,1).Font.Name="標楷體"
32.設定字型大小
xlApp.ActiveSheet.Cells(1,1).Font.Size=25
33.設定字型為斜體
xlApp.ActiveSheet.Cells(1,1).Font.Italic=true
34.設置整列字體為粗體
xlApp.ActiveSheet.Columns(1).Font.Bold=true
35.清除單格公式
xlApp.ActiveSheet.Cells(1,4).ClearContents
36.列印預覽工作表
xlApp.ActiveSheet.PrintPreview
37.列印輸出工作表
xlApp.ActiveSheet.PrintOut
38.工作表另存為
xlApp.ActiveWorkbook.SaveAs("c:\temp\aa.xls")
39.放棄存檔
xlApp.ActiveWorkbook.saved=true
40.關閉工作簿
xlApp.Workbooks.close
41.退出Excel
xlApp.quit
張貼留言