有關excel pastespecial語法 |
|
答題得分者是：pedro
|
|
jackiemi2_seed
中階會員   發表：37 回覆：97 積分：76 註冊：2006-09-11 發送簡訊給我 |
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=64056#2
copy pgdennis兄的語法(已先uses comobj了) [code delphi] procedure TForm1.Button1Click(Sender: TObject); var MyExcel: Variant; begin MyExcel := CreateOleOBject('Excel.Application'); MyExcel.WorkBooks.open('c:\A.xls'); MyExcel.Visible := True; MyExcel.WorkBooks[1].WorkSheets[1].Range['C1:C1'].select; MyExcel.CutCopyMode := False; MyExcel.Selection.Copy; MyExcel.WorkBooks[1].WorkSheets[1].Range['E1:E1'].select; //MyExcel.Selection.PasteSpecial(xlPasteValues,xlNone,False,False ); MyExcel.Selection.PasteSpecial('xlPasteValues','xlNone',False,False ); end; [/code] 在compile時會出現Undeclared identifier:'xlPasteValues' 在xlPasteValues和xlNone前後加上'就可以compile成功 但程式執行時會出現class range的PasteSpecial方法失敗 請問一下,是什麼地方有問題??? win 2000 sp4 delphi 7 office 2000 thanks
------
OS : Win 7 pro Program : Delphi 7 DataBase : Ms Sql 2008 編輯記錄
jackiemi2_seed 重新編輯於 2009-02-10 21:36:18， 註解 無‧
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
|
|
jackiemi2_seed
中階會員 發表：37 回覆：97 積分：76 註冊：2006-09-11 發送簡訊給我 |
感謝pedro兄的回復,
加上uses excel2000就可以了 thanks ===================引 用 pedro 文 章=================== xlPasteValues定義在ExcelXXX.pas裡 XXX是你對應的97、2000或XP uses ExcelXXX; 應該就可以編譯 >> MyExcel.Selection.PasteSpecial(xlPasteValues,xlNone,False,False );
------
OS : Win 7 pro Program : Delphi 7 DataBase : Ms Sql 2008 |
發表時間：2009-02-09 22:59:19
IP:210.64.xxx.xxx 訂閱
附加檔案：系統時間：2024-11-23 5:56:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |