線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1418
推到 Plurk!
推到 Facebook!

利用OLE連結excel的問題

尚未結案
newfbimod
一般會員


發表:3
回覆:9
積分:2
註冊:2004-11-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-25 16:12:04 IP:203.73.xxx.xxx 未訂閱
各位前輩,若我利用ole去連結excel,程式如下 void __fastcall TForm1::Button1Click(TObject *Sender) { Variant Excel,Workbook,Workbook2,Cell; Excel = Excel.CreateObject("Excel.Application"); Workbook = Excel.OlePropertyGet("Workbooks").OleFunction("Add"); Workbook2 = Excel.OlePropertyGet("Workbooks").OleFunction("Add"); 問題一:可以利用"Activate" method 讓Workbook2 show 出來?? 問題二:The Activate method activates the workbook and selects the first sheet in the workbook(MSDN說明),那我要在sheet1裡塞資料的話 要如何修改, 因為若要更改cell裡面的值,程式碼只要如下就好 Worksheet = Workbook.OlePropertyGet("Sheets").OlePropertyGet. ("Item",1); Cell=Worksheet.OlePropertyGet("Cells",1,1); Cell.OlePropertySet("Value",123); 第一次發問,問得不好請見諒
allenchan
資深會員


發表:10
回覆:306
積分:283
註冊:2004-01-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-30 00:11:40 IP:61.62.xxx.xxx 未訂閱
問題一:以下程式可以讓 Book2 Show 出來: Excel.OlePropertyGet("Windows", "Book2").OleProcedure("Activate"); 問題二:看不太懂?
newfbimod
一般會員


發表:3
回覆:9
積分:2
註冊:2004-11-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-30 09:35:55 IP:203.69.xxx.xxx 未訂閱
謝謝前輩回答我問題一,我還以為沒人會理我這爛問題 問題二是說 在 > 再問一題 是不是我每增加一個新的
allenchan
資深會員


發表:10
回覆:306
積分:283
註冊:2004-01-06

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-12-30 20:25:47 IP:61.62.xxx.xxx 未訂閱
第二題: 若想將 Workbook2 的 Sheets 設在第一個 Sheet,請參考以下的 Code: Workbook2.OlePropertyGet("Worksheets", 1).OleProcedure("Select"); 第三題:是 發表人 - allenchan 於 2004/12/30 20:37:25
newfbimod
一般會員


發表:3
回覆:9
積分:2
註冊:2004-11-08

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-12-31 10:32:20 IP:203.69.xxx.xxx 未訂閱
allenchan大大: 不好意思,請原諒我的笨拙 Excel.OlePropertyGet("Windows", "Book2").OleProcedure("Activate"); 上述的程式不是已經將 Book2 active了嗎?並且將sheets 設在第一筆嗎?? 那我要更改第一筆sheet裡的資料時 還要再做以下的動作,將Workbook2 的 Sheets 設在第一個 Sheet Workbook2.OlePropertyGet("Worksheets", 1).OleProcedure("Select"); 這不會多此一舉嗎???    
allenchan
資深會員


發表:10
回覆:306
積分:283
註冊:2004-01-06

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-12-31 11:51:42 IP:61.230.xxx.xxx 未訂閱
這是為了如果您將 Book2 的 Sheets 切到別頁的時候,如果要再切回來,您就 需要自己再切到第一頁。 發表人 - allenchan 於 2004/12/31 11:53:40
newfbimod
一般會員


發表:3
回覆:9
積分:2
註冊:2004-11-08

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-12-31 12:09:34 IP:203.69.xxx.xxx 未訂閱
allenchan大大 那也就是說若我沒有將WorkBook2的sheet切換到別頁的時候我可以寫如下程式囉 WorkSheet=Excel.OlePropertyGet("Windows", "Book2").OleProcedure("Activate"); 而上面的WorkSheet所指的應該就是WorkBook2裡的第一個Sheet囉
allenchan
資深會員


發表:10
回覆:306
積分:283
註冊:2004-01-06

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-12-31 15:53:19 IP:61.230.xxx.xxx 未訂閱
Yes.
newfbimod
一般會員


發表:3
回覆:9
積分:2
註冊:2004-11-08

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-12-31 16:03:44 IP:203.69.xxx.xxx 未訂閱
甘溫!!!! 謝謝大大 有耐心的指導
系統時間:2024-11-22 20:01:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!