Microsoft.Office.Interop.Excel的用法


1)ApplicationClass ExcelApp = New ApplicationClass();
2) 更改 Excel 標題欄: 
 ExcelApp.Caption := '應用程序調用 Microsoft Excel'; 
3) 添加新工作簿: 
 ExcelApp.WorkBooks.Add; 
4) 打開已存在的工作簿: 
 ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 
5) 設置第2個工作表為活動工作表: 
 ExcelApp.WorkSheets[2].Activate; 或 
 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 
6) 給單元格賦值: 
 ExcelApp.Cells[1,4].Value := '第一行第四列'; 
7) 設置指定列的寬度(單位:字符個數),以第一列為例: 
 ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5; 
8) 設置指定行的高度(單位:磅)(1磅=0.035厘米),以第二行為例: 
 ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 
9) 在第8行之前插入分頁符: 
 ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1; 
10) 在第8列之前刪除分頁符: 
 ExcelApp.ActiveSheet.Columns[4].PageBreak := 0; 
11) 指定邊框線寬度: 
 ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 
 1-左 2-右 3-頂 4-底 5-斜( \ ) 6-斜( / ) 
12) 清除第一行第四列單元格公式: 
 ExcelApp.ActiveSheet.Cells[1,4].ClearContents; 
13) 設置第一行字體屬性: 
 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; 
14) 進行頁面設置: 
 a.頁眉: 
 ExcelApp.ActiveSheet.PageSetup.CenterHeader := '報表演示'; 
 b.頁腳: 
 ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P頁'; 
 c.頁眉到頂端邊距2cm: 
 ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; 
 d.頁腳到底端邊距3cm: 
 ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; 
 e.頂邊距2cm: 
 ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; 
 f.底邊距2cm: 
 ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; 
 g.左邊距2cm: 
 ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; 
 h.右邊距2cm: 
 ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; 
 i.頁面水平居中: 
 ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; 
 j.頁面垂直居中: 
 ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; 
 k.打印單元格網線: 
 ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True; 
15) 拷貝操作: 
 a.拷貝整個工作表: 
 ExcelApp.ActiveSheet.Used.Range.Copy; 
 b.拷貝指定區域: 
 ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy; 
 c.從A1位置開始粘貼: 
 ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial; 
 d.從文件尾部開始粘貼: 
 ExcelApp.ActiveSheet.Range.PasteSpecial; 
16) 插入一行或一列: 
 a. ExcelApp.ActiveSheet.Rows[2].Insert; 
 b. ExcelApp.ActiveSheet.Columns[1].Insert; 
17) 刪除一行或一列: 
 a. ExcelApp.ActiveSheet.Rows[2].Delete; 
 b. ExcelApp.ActiveSheet.Columns[1].Delete; 
18) 打印預覽工作表: 
 ExcelApp.ActiveSheet.PrintPreview; 
19) 打印輸出工作表: 
 ExcelApp.ActiveSheet.PrintOut; 
20) 工作表保存: 
 if not ExcelApp.ActiveWorkBook.Saved then 
 ExcelApp.ActiveSheet.PrintPreview; 
21) 工作表另存為: 
 ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' ); 
22) 放棄存盤: 
 ExcelApp.ActiveWorkBook.Saved := True; 
23) 關閉工作簿: 
 ExcelApp.WorkBooks.Close; 
24) 退出 Excel: 
 ExcelApp.Quit;


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM