国产探花免费观看_亚洲丰满少妇自慰呻吟_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面向對象編程思想》前言

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

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 宾阳县| 宁远县| 盈江县| 霍山县| 永新县| 桐城市| 莱州市| 家居| 岳阳市| 观塘区| 望都县| 洪泽县| 孝昌县| 华蓥市| 恩平市| 廉江市| 沂水县| 文山县| 昌都县| 贡觉县| 武平县| 集安市| 大田县| 理塘县| 定西市| 长顺县| 绥宁县| 板桥市| 电白县| 涪陵区| 恭城| 镇安县| 曲沃县| 安达市| 双鸭山市| 东兰县| 金坛市| 锦屏县| 晋州市| 金乡县| 景洪市|