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

在Excel文件加入新的Sheet

尚未結案
RemycinLu
一般會員


發表:34
回覆:20
積分:10
註冊:2003-10-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-08-11 15:44:24 IP:208.249.xxx.xxx 未訂閱
要怎麼才可以在Excel文件加入新的Sheet?謝謝
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-08-11 16:07:57 IP:203.73.xxx.xxx 未訂閱
引言: 要怎麼才可以在Excel文件加入新的Sheet?謝謝 < face="Verdana, Arial, Helvetica">
RemycinLu 你好:
(1)請參考以下的範例程式碼
#> szSheetName="MySheetName">ExeName)+"test3.xls";
   if(FileExists(szXlsFile2)) DeleteFile(szXlsFile2);
   ExcelBook.OleFunction("SaveAs", StringToOleStr(szXlsFile2));
   ExcelBook.OleFunction("Close");
   ExcelApp.OleFunction("Quit");
(2)請再依照自己的需求,自行修改
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
ttk
一般會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-12 16:29:36 IP:218.167.xxx.xxx 未訂閱
引言: 要怎麼才可以在Excel文件加入新的Sheet,且加在最後的位置. 我一直無法克服,是否有解決之道? 謝謝!
引言: 要怎麼才可以在Excel文件加入新的Sheet?謝謝 < face="Verdana, Arial, Helvetica">
RemycinLu 你好:
(1)請參考以下的範例程式碼
#> szSheetName="MySheetName">ExeName)+"test3.xls";
   if(FileExists(szXlsFile2)) DeleteFile(szXlsFile2);
   ExcelBook.OleFunction("SaveAs", StringToOleStr(szXlsFile2));
   ExcelBook.OleFunction("Close");
   ExcelApp.OleFunction("Quit");
(2)請再依照自己的需求,自行修改
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --    發表人 - RaynorPao 於 2004/08/12  13:58:02
系統時間:2024-04-28 6:53:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!