程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi + Excel例子:單元格拷貝粘貼

Delphi + Excel例子:單元格拷貝粘貼

編輯：Delphi

//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;
　　

上一頁:Delphi程序設計之--慣用法
下一頁:《Delphi面向對象編程思想》前言

Delphi

Delphi 取得 iOS 輔助使用裡的字型大小，

Delphi 取得 iOS 輔助使用裡的字型大小，說明：在

Delphi與DirectX之DelphiX(18)：TDXDraw中描繪圖片的命令

前面的繪圖命令都是來自TDXImageList

Delphi與DirectX之DelphiX(72): TDIB.SephiaEffect();

本例效果圖:代碼文件:unit Unit1;i

WinAPI: GetPath - 獲取路徑中的點

本例效果圖:　　代碼文件:unit　Unit1;　　int

ORA-12505, TNS:listener does not currently know of SID given in connect desc .，ora-12505tns

ORA-12505, TNS:listener does n

再學GDI+[27]: TGPPen - 畫筆樣式 - SetDashStyle