国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

Delphi_Excel例子:單元格拷貝粘貼

2019-11-18 18:35:03
字體：大 中 小
來源：轉載
供稿：網友
//Excel的單元格拷貝粘貼
PRocedure Excel_copyCells;
var
  sheet,XLApp,workbook,myRange1 ,myRange2: variant;
begin
  try
    //創建對象
    XLApp:=createOleObject('Excel.application');
      XLApp.displayAlerts:=true;
      XLApp.ScreenUpdating:=true;
    XLApp.visible:=true;
    XLApp.WorkBooks.Add('D:/Test.xls');
    workbook := XLApp.workbooks[1];
    sheet:=workbook.worksheets[1];
    myRange1:=sheet.Range[sheet.cells[39,1],sheet.cells[79,16]];
    myRange2:=sheet.Range[sheet.cells[80,1],sheet.cells[120,16]];
    myRange1.Copy(myRange2) ;
  finally
    if not VarIsEmpty(XLApp) then begin
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;
      XLApp.quit;
    end;
  end;
end;

上一篇：華為CMPP源碼delphi6版

下一篇：《Delphi面向對象編程思想》前言

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

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 邵武市| 巫山县| 汉中市| 仙居县| 定日县| 邢台市| 任丘市| 益阳市| 青龙| 青阳县| 威信县| 和静县| 玉树县| 徐汇区| 儋州市| 乐至县| 增城市| 文登市| 十堰市| 霍山县| 柏乡县| 西峡县| 葵青区| 莱西市| 读书| 白朗县| 苗栗县| 广灵县| 应城市| 台北市| 尚义县| 台中市| 开阳县| 苏尼特右旗| 迁安市| 察雅县| 乌审旗| 汤阴县| 浦城县| 嘉定区| 湖州市|