【转】Microsoft.Office.Interop.Excel的用法

 
 1 ApplicationClass ExcelApp = New ApplicationClass();
 2 　　
 3 　　//2) 更改 Excel 标题栏： 
 4 　　 ExcelApp.Caption := '应用程序调用 Microsoft Excel'; 
 5 　　//3) 添加新工作簿： 
 6 　　 ExcelApp.WorkBooks.Add; 
 7 　　//4) 打开已存在的工作簿： 
 8 　　 ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 
 9 　　//5) 设置第2个工作表为活动工作表： 
10 　　 ExcelApp.WorkSheets[2].Activate; 或 
11 　　 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 
12 　　//6) 给单元格赋值： 
13 　　 ExcelApp.Cells[1,4].Value := '第一行第四列'; 
14 　　//7) 设置指定列的宽度（单位：字符个数），以第一列为例： 
15 　　 ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5; 
16 　　//8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： 
17 　　 ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 
18 　　//9) 在第8行之前插入分页符： 
19 　　 ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1; 
20 　　//10) 在第8列之前删除分页符： 
21 　　 ExcelApp.ActiveSheet.Columns[4].PageBreak := 0; 
22 　　//11) 指定边框线宽度： 
23 　　 ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 
24 　　// 1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / ) 
25 　　//12) 清除第一行第四列单元格公式： 
26 　　 ExcelApp.ActiveSheet.Cells[1,4].ClearContents; 
27 　　//13) 设置第一行字体属性： 
28 　　 ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书'; 
29 　　 ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue; 
30 　　 ExcelApp.ActiveSheet.Rows[1].Font.Bold := True; 
31 　　 ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True; 
32 　　//14) 进行页面设置： 
33 　　// a.页眉： 
34 　　 ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示'; 
35 　　 //b.页脚： 
36 　　 ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页'; 
37 　　// c.页眉到顶端边距2cm： 
38 　　 ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; 
39 　　// d.页脚到底端边距3cm： 
40 　　 ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; 
41 　　// e.顶边距2cm： 
42 　　 ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; 
43 　　// f.底边距2cm： 
44 　　 ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; 
45 　　// g.左边距2cm： 
46 　　 ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; 
47 　　// h.右边距2cm： 
48 　　 ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; 
49 　　// i.页面水平居中： 
50 　　 ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; 
51 　　// j.页面垂直居中： 
52 　　 ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; 
53 　　// k.打印单元格网线： 
54 　　 ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True; 
55 　//　15) 拷贝操作： 
56 　　// a.拷贝整个工作表： 
57 　　 ExcelApp.ActiveSheet.Used.Range.Copy; 
58 　　// b.拷贝指定区域： 
59 　　 ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy; 
60 　　// c.从A1位置开始粘贴： 
61 　　 ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial; 
62 　　// d.从文件尾部开始粘贴： 
63 　　 ExcelApp.ActiveSheet.Range.PasteSpecial; 
64 　//　16) 插入一行或一列： 
65 　//　 a. ExcelApp.ActiveSheet.Rows[2].Insert; 
66 　　// b. ExcelApp.ActiveSheet.Columns[1].Insert; 
67 　　//17) 删除一行或一列： 
68 　　// a. ExcelApp.ActiveSheet.Rows[2].Delete; 
69 　　// b. ExcelApp.ActiveSheet.Columns[1].Delete; 
70 　　//18) 打印预览工作表： 
71 　　 ExcelApp.ActiveSheet.PrintPreview; 
72 　//　19) 打印输出工作表： 
73 　　 ExcelApp.ActiveSheet.PrintOut; 
74 　//　20) 工作表保存： 
75 　　 if not ExcelApp.ActiveWorkBook.Saved then 
76 　　 ExcelApp.ActiveSheet.PrintPreview; 
77 　//　21) 工作表另存为： 
78 　　 ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' ); 
79 　//　22) 放弃存盘： 
80 　　 ExcelApp.ActiveWorkBook.Saved := True; 
81 　//　23) 关闭工作簿： 
82 　　 ExcelApp.WorkBooks.Close; 
83 　//　24) 退出 Excel： 
84 　　 ExcelApp.Quit;
转自……忘记了……

posted on 2011-04-12 14:35  Osiris_Syou  阅读(502)  评论(0)  编辑  收藏  举报

导航