C# 设置Excel 常用属性

1. *1．创建Excel对象  
2. 　　eole=CREATEOBJECT('Excel.application')  
3.   
4. *　　2．添加新工作簿  
5.   
6. 　　eole.Workbooks.add  
7.   
8.     激活指定的工作簿  
9.     eole.WorkSheets("工作簿名").Activate  
10.   
11.   
12. *　　3．设置第3个工作表为激活工作表  
13.   
14. 　　eole.Worksheets("sheet1").Activate  
15.   
16. *　　4．打开指定工作簿  
17.   
18. 　　eole.Workbooks.add("E:/E_temp/ABC.xls")  
19.   
20. *　　5．显示Excel窗口  
21.   
22. 　　eole.visible=.t.  
23.   
24. *　　6．更改Excel标题栏  
25.   
26. 　　eole.Caption="VFP应用程序调用Microsoft Excel"  
27.   
28. *　　7．给单元格赋值  
29.   
30. *　　eole.cells(行,列).value=XM(XM为数据库字段名)  
31. 　　eole.cells(1,4).value='ASDFASDFASDFASDFADSF'  
32.   
33. *　　8．设置指定列的宽度(单位：字符个数)  
34.   
35. 　　eole.ActiveSheet.Columns(1).ColumnWidth=5  
36.   
37. *　　9．设置指定行的高度(单位：磅)  
38.   
39. 　　eole.ActiveSheet.Rows(1).RowHeight=1/0.035 && 设定行高为1厘米，1磅=0.035厘米  
40.   
41. *　　(设定行高为1厘米，1磅=0.035厘米)  
42.   
43. *　　10．在第18行之前插入分页符  
44.   
45. 　　eole.Worksheets("Sheet1").Rows(18).PageBreak=1  
46.   
47. *　　11．在第4列之前删除分页符  
48.   
49. 　　eole.ActiveSheet.Columns(4).PageBreak=0  
50.   
51. *　　12．指定边框线宽度(Borders参数如下)  
52.   
53. 　　eole.ActiveSheet.Range("b3:d3").Borders(2).Weight=3  
54.   
55. *　　13．设置四个边框线条的类型  
56.   
57. 　　eole.ActiveSheet.Range("b3:d3").Borders(1).LineStyle=1  
58.   
59. *　　(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle  
60. 值：1与7－细实、2－细虚、4－点虚、9－双细实线)  
61.   
62. *　　14．设置页眉  
63.   
64. 　　eole.ActiveSheet.PageSetup.CenterHeader="报表1"  
65.   
66. *　　15．设置页脚  
67.   
68. 　　eole.ActiveSheet.PageSetup.CenterFooter="第＆P页"  
69.   
70. *　　16．设置页眉到顶端边距为2厘米  
71.   
72. 　　eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035  
73.   
74. *　　17．设置页脚到底边距为3厘米  
75.   
76. 　　eole.ActiveSheet.PageSetup.FooterMargin=3/0.035  
77.   
78. *　　18．设置顶边距为2厘米  
79.   
80. 　　eole.ActiveSheet.PageSetup.TopMargin=2/0.035  
81.   
82. *　　19．设置底边距为4厘米  
83.   
84. 　　eole.ActiveSheet.PageSetup.BottomMargin=4/0.035  
85.   
86. *　　20．设置左边距为2厘米  
87.   
88. 　　eole.ActiveSheet.PageSetup.LeftMargin=2/0.035  
89.   
90. *　　21．设置右边距为2厘米  
91.   
92. 　　eole.ActiveSheet.PageSetup.RightMargin=2/0.035  
93.   
94. *　　22．设置页面水平居中  
95.   
96. 　　eole.ActiveSheet.PageSetup.CenterHorizontally=.t.  
97.   
98. *　　23．设置页面垂直居中  
99.   
100. 　　eole.ActiveSheet.PageSetup.CenterVertically=.t.  
101.   
102. *　　24．设置页面纸张大小(1－窄行8?5?11 39－宽行14?11)  
103.   
104. 　　eole.ActiveSheet.PageSetup.PaperSize=1  
105.   
106.     可为下列 XlPaperSize 常量之一（某些打印机可能不支持所有的这些纸张大小）;  
107.     常量               数值  意义;  
108.     xlPaperLetter         1  Letter (8-1/2 in. x 11 in.)   
109.     xlPaperA3             8  A3 (297 mm x 420 mm)   
110.     xlPaperA4             9  A4 (210 mm x 297 mm)   
111.     xlPaperA4Small       10  A4 Small (210 mm x 297 mm)   
112.     xlPaperA5            11  A5 (148 mm x 210 mm)   
113.     xlPaperB4            12  B4 (250 mm x 354 mm)   
114.     xlPaperB5            13  B5 (182 mm x 257 mm)   
115.     xlPaperFanfoldUS     39  U.S. Standard Fanfold (14-7/8 in. x 11 in.)   
116.     xlPaperUser              用户自定义   
117.   
118.   
119. *　　25．打印单元格网线  
120.   
121. 　　eole.ActiveSheet.PageSetup.PrintGridlines=.t.  
122.   
123. *　　26．拷贝整个工作表  
124.   
125. 　　eole.ActiveSheet.UsedRange.Copy  
126.   
127. *　　27．拷贝指定区域  
128.   
129. 　　eole.ActiveSheet.Range("A1:E2").Copy  
130.   
131. *　　28．粘贴  
132.   
133. 　　eole.Worksheets("sheet2").Activate  
134.   
135. 　　eole.ActiveSheet.Range("F1").PasteSpecial  
136.   
137. *　　29．在第2行之前插入一行  
138.   
139. 　　eole.ActiveSheet.Rows(2).Insert  
140.   
141. *　　30．在第2列之前插入一列  
142.   
143. 　　eole.ActiveSheet.Columns(2).Insert  
144.   
145. *　　31．设置字体  
146.   
147. 　　eole.ActiveSheet.Cells(2,1).Font.Name="黑体"  
148.   
149. *　　32．设置字体大小  
150.   
151. 　　eole.ActiveSheet.Cells(1,1).Font.Size=25  
152.   
153. *　　33．设置字体为斜体  
154.   
155. 　　eole.ActiveSheet.Cells(1,1).Font.Italic=.t.  
156.   
157. *　　34．设置整列字体为粗体  
158.   
159. 　　eole.ActiveSheet.Columns(1).Font.Bold=.t.  
160.   
161.   
162.     35．合并单元格，重要！  
163.     _ole_excel.Worksheets("工作簿名").Range(范围).merge     && 范围必须指定起止的单元格，如"A1:B4"  
164.   
165.   
166. eole.ActiveSheet.Range("A1:B4").merge &&合并当前工作表中指定范围   
167.   
168.   
169.     36．撤销合并单元格，上述操作的逆操作  
170.     _ole_excel.Worksheets("工作簿名").Range(范围).unmerge  
171.   
172.   
173.     37．在单元格中设置公式（重要，一般可以用来实现计算汇总、求平均等很多功能）  
174.     _ole_excel.cells(行,列).value = "=公式"    && 可以使用所有VBA内部函数，如sum()等。注意：不能使用VFP的函数啊！  
175.   
176. *　　35．清除单元格公式  
177.   
178. 　　eole.ActiveSheet.Cells(1,4).ClearContents  
179.   
180. *　　36．打印预览工作表  
181.   
182. 　　eole.ActiveSheet.PrintPreview  
183.   
184. *　　37．打印输出工作表  
185.   
186. 　　eole.ActiveSheet.PrintOut  
187.   
188. *　　38．工作表另为  
189.   
190. 　　eole.ActiveWorkbook.SaveAs("c:/temp/22.xls")  
191.   
192. *　　39．放弃存盘  
193.   
194. 　　eole.ActiveWorkbook.saved=.t.  
195.   
196. *　　40．关闭工作簿  
197.     WAIT WINDOW 'ASDFASDF'  
198. 　　eole.Workbooks.close  
199.   
200. *　　41．退出Excel  
201.   
202. 　　eole.quit