全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1010
推到 Plurk!
推到 Facebook!

要怎麼才可以在Excel文件加入新的Sheet,且加在最後的位置.

答題得分者是:allenchan
ttk
一般會員


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-12 17:19:41 IP:218.167.xxx.xxx 未訂閱
下列程式碼會將WorkSheet 加在最前面,請問要用什麼指令才可加在最後的位置(編號最後一個WorkSheet)?? 請指教,THANKS! #include "ComObj.hpp" #include "Excel_2K_SRVR.h" Variant ExcelApp, ExcelBooks, ExcelBook, ExcelSheets, ExcelSheet; ............ ............ ExcelSheets=ExcelBook.OlePropertyGet("Worksheets"); ExcelSheet=ExcelSheets.OleFunction("Add"); // AnsiString szSheetName="MySheetName"; // ExcelSheet.OlePropertySet("Name", StringToOleStr(szSheetName)); 發表人 - ttk 於 2004/11/12 18:01:12
allenchan
資深會員


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-13 01:01:54 IP:61.62.xxx.xxx 未訂閱
try this: ExcelSheets=ExcelBook.OlePropertyGet("Worksheets"); Count=ExcelSheets.OlePropertyGet("Count"); LastSheet=FApp.OlePropertyGet("WorkSheets", Count); ExcelSheet=ExcelSheets.OleFunction("Add", Null(), LastSheet); Allen Chan
ttk
一般會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-14 00:50:31 IP:61.222.xxx.xxx 未訂閱
Hi! Allen, I use Null() command ,but compiling is not success. I change this line as: ExcelSheet=ExcelSheets.OleFunction("Add", LastSheet); then the new sheet(ExcelSheet) is added before the LastSheet. I will try it until I succeed, or you have another suggestion! many tks! Bill
allenchan
資深會員


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-11-14 11:28:03 IP:61.62.xxx.xxx 未訂閱
請問您的錯誤訊息為何? 我用 C Builder 6 來 Compile 這段程式碼是 OK 的。 或許你試試看: Variant vNull; vNull.VType = varNull; .... ExcelSheets.OleProcedure("Add", vNull, LastSheet);
ttk
一般會員


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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-11-15 03:52:18 IP:61.222.xxx.xxx 未訂閱
在C builder5 錯誤訊息為: Call of nonfunction, 是否要 #include ??? 無論如何,按照你的新方法,已可compile且執行成功! 謝謝!
系統時間:2024-05-19 0:56:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!