### Delphi控制Excel2000心得
#### 一、使用动态创建的方法
在Delphi中，通过使用COM（Component Object Model）技术可以方便地控制其他应用软件，比如Microsoft Office系列中的Excel。以下将详细介绍如何利用Delphi来实现对Excel 2000的控制。
**1. 创建Excel对象**
```delphi
var
ExcelApp: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
```
**2. 显示当前窗口**
让Excel程序可见，以便用户能够看到其界面。
```delphi
ExcelApp.Visible := True;
```
**3. 更改Excel标题栏**
可以通过修改`Caption`属性来更改Excel窗口的标题。
```delphi
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
```
**4. 添加新工作簿**
在Excel中添加一个新的空白工作簿。
```delphi
ExcelApp.WorkBooks.Add;
```
**5. 打开已存在的工作簿**
通过指定路径打开一个现有的Excel文件。
```delphi
ExcelApp.WorkBooks.Open('C:\Excel\Demo.xls');
```
**6. 设置活动工作表**
指定某个工作表作为当前活动的工作表。
```delphi
ExcelApp.WorkSheets[2].Activate;
// 或
ExcelApp.WorksSheets['Sheet2'].Activate;
```
**7. 给单元格赋值**
向指定单元格写入数据。
```delphi
ExcelApp.Cells[1,4].Value := '第一行第四列';
```
**8. 设置指定列的宽度**
调整某列的宽度，单位是字符个数。
```delphi
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
```
**9. 设置指定行的高度**
调整某行的高度，单位是磅（1磅≈0.035厘米）。
```delphi
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
```
**10. 插入分页符**
在指定位置插入分页符。
```delphi
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
```
**11. 删除分页符**
移除指定位置的分页符。
```delphi
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
```
**12. 设置边框线宽度**
设置单元格或区域的边框宽度。
```delphi
ExcelApp.ActiveSheet.Range['B3:D4'].Borders[2].Weight := 3;
// 1-左 2-右 3-顶 4-底 5-斜(\) 6-斜(/)
```
**13. 清除单元格内容**
清除单元格中的公式或数据。
```delphi
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
```
**14. 设置字体属性**
调整单元格或整行的字体样式。
```delphi
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
```
**15. 页面设置**
对打印页面进行各种设置，如页眉、页脚等。
- **a. 设置页眉**
```delphi
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示';
```
- **b. 设置页脚**
```delphi
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P 页';
```
- **c. 设置页眉到顶端边距**
```delphi
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
```
- **d. 设置页脚到底端边距**
```delphi
ExcelApp.ActiveSheet.PageSetup.FooterMargin := 3/0.035;
```
- **e. 设置顶边距**
```delphi
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
```
- **f. 设置底边距**
```delphi
ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
```
- **g. 设置左边距**
```delphi
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
```
- **h. 设置右边距**
```delphi
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
```
- **i. 页面水平居中**
```delphi
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := True;
```
- **j. 页面垂直居中**
```delphi
ExcelApp.ActiveSheet.PageSetup.CenterVertically := True;
```
- **k. 打印单元格网线**
```delphi
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
```
**16. 拷贝操作**
- **a. 拷贝整个工作表**
```delphi
ExcelApp.ActiveSheet.UsedRange.Copy;
```
- **b. 拷贝指定区域**
```delphi
ExcelApp.ActiveSheet.Range['A1:E2'].Copy;
```
以上就是使用Delphi控制Excel 2000的一些常见方法。这些技巧可以帮助开发人员更高效地处理Excel文件，并实现自动化办公的需求。需要注意的是，虽然这里的示例基于Excel 2000，但大部分功能同样适用于后续版本的Excel。
