麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

Delphi中使用OLE方法操作Excel

2019-11-18 18:06:20
字體:
來源:轉載
供稿:網友
首先創建 Excel 對象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.application' ); 注意程序結束時釋放變量 ExcelApp:=unassigned; 1 顯示當前窗口: ExcelApp.Visible := True; 2 更改 Excel標題欄: ExcelApp.Caption := '應用程序調用 Microsoft Excel'; 3 添加新工作簿: ExcelApp.WorkBooks.Add; 4 打開已存在的工作簿: ExcelApp.WorkBooks.Open( 'C:ExcelDemo.xls' ); 5 設置第2個工作表為活動工作表: ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 添加工作表 ExcelApp.WorkSheets.add; 工作表重命名 ExcelApp.WorkSheets[1].Name:='工作表1'; 或者ExcelApp.WorkSheets['Sheet1'].Name:='工作表1'; 工作表數目 ExcelApp.WorkSheets.Count 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.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:ExcelDemo1.xls' ); 22 放棄存盤: ExcelApp.ActiveWorkBook.Saved := True; 23 關閉工作簿: ExcelApp.WorkBooks.Close; 24 退出Excel: ExcelApp.Quit;

上一篇:delphi來寫你的第一個dll文件,非常簡單

下一篇:Delphi和Office程序開發

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 91短视频版高清在线观看免费 | 激情久久婷婷 | 久久久久久久亚洲精品 | 369看片你懂的小视频在线观看 | 国产一区二区视频在线播放 | 成人电影毛片 | 欧美大胆xxxx肉体摄影 | 久久久久久久久久91 | 久久网站热最新地址4 | 中文字幕免费看 | 日韩av有码在线 | 久久人人人 | 国产一级一片免费播放 | 中文字幕一区2区 | 久久久亚洲欧美综合 | 国产精品麻豆一区二区三区 | 在线看免费观看日本 | 激情毛片 | 羞羞的动漫在线观看 | 免费三级大片 | 久久久大片 | 欧美成人一区二区三区 | 91久久精品国产亚洲 | 日本黄色a视频 | h视频免费观看 | 狠狠干五月 | 日本免费一区二区三区四区 | 一级做a爰片性色毛片2021 | 91一级毛片| 91精品国啪老师啪 | 精品亚洲一区二区 | 男女污污视频网站 | 久色网站 | 蜜桃视频在线观看免费 | 91羞羞| 久在线观看福利视频69 | 成人18在线 | 一区二区三区视频在线观看 | 日韩色电影 | 久久99精品久久久久久青青日本 | 逼片|