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

首頁 > 編程 > 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面向對象編程思想》前言

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

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： arabxxxxvideos | 一级免费特黄视频 | 日本特级a一片免费观看 | 久久久久国产成人免费精品免费 | 欧美精品一区自拍a毛片在线视频 | h视频免费观看 | 国产成人av一区 | 欧美一级做性受免费大片免费 | 日韩精品二区 | 国产亚洲精品久久久久久久久久 | 草久视频在线观看 | 国产精品一区2区3区 | 午夜精品成人 | 国产亚洲精品综合一区91 | 影视免费观看 | 一级做受毛片免费大片 | 欧美色视 | 成人一区二区三区四区 | 黄色高清免费 | 天天草天天干天天 | 久久成人免费网站 | 免费观看国产视频 | 欧美成人一区二区三区电影 | 久草视频手机在线观看 | 日韩视频一区二区 | 最新黄色电影网站 | 一级黄片毛片免费看 | 福利免费在线 | 久艹在线视频 | javhdfreejaⅴhd| 88xx成人永久免费观看 | 久久精品探花 | 成人午夜淫片a | 成人情欲视频在线看免费 | 黄wwww | 国产精品久久久久永久免费 | 免费黄色小网站 | 精精国产xxxx视频在线野外 | 羞羞网站 | 中国av免费在线观看 | 国产精品久久久久久久久久10秀 |