日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

Microsoft.Office.Interop.Excel的用法

發(fā)布時間:2025/3/17 编程问答 42 豆豆
生活随笔 收集整理的這篇文章主要介紹了 Microsoft.Office.Interop.Excel的用法 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

1)ApplicationClass ExcelApp = New ApplicationClass();

2) 更改 Excel 標題欄:?

ExcelApp.Caption := '應(yīng)用程序調(diào)用 Microsoft Excel';?

3) 添加新工作簿:?

ExcelApp.WorkBooks.Add;?

4) 打開已存在的工作簿:?

?ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );?

5) 設(shè)置第2個工作表為活動工作表:?

ExcelApp.WorkSheets[2].Activate; 或?

?ExcelApp.WorksSheets[ 'Sheet2' ].Activate;?

6) 給單元格賦值:?

?ExcelApp.Cells[1,4].Value := '第一行第四列';?

7) 設(shè)置指定列的寬度(單位:字符個數(shù)),以第一列為例:?

?ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;?

8) 設(shè)置指定行的高度(單位:磅)(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) 設(shè)置第一行字體屬性:?

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) 進行頁面設(shè)置:?

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.打印單元格網(wǎng)線:?

?ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;?

15) 拷貝操作:?

a.拷貝整個工作表:?

?ExcelApp.ActiveSheet.Used.Range.Copy;?

?b.拷貝指定區(qū)域:?

?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) 打印預(yù)覽工作表:?

?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) 關(guān)閉工作簿:?

?ExcelApp.WorkBooks.Close;?

24) 退出 Excel:?

?ExcelApp.Quit;

?原著博客地址? http://blog.sina.com.cn/s/blog_7725bc930100ufot.html

轉(zhuǎn)載于:https://www.cnblogs.com/tianyiwuying/p/3682530.html

總結(jié)

以上是生活随笔為你收集整理的Microsoft.Office.Interop.Excel的用法的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。