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

ExcelApplication 控制 Excel 檔案.如何置換文字

尚未結案
shinhrn
中階會員


發表:54
回覆:165
積分:83
註冊:2002-06-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-02-26 18:09:52 IP:218.162.xxx.xxx 未訂閱
請問 於ExcelApplication 控制 Excel 檔案. 要如何置換文件內的文字 ??? 我知道word的方式是如下,不知excel要如何做ㄋ??? FindText := FindTextstr; ReplaceText := ReplaceTextstr; OleFalse := False; OleTrue := True; Wrap := wdFindContinue; Replace := wdReplaceAll; MSWord.Selection.Find.Execute(FindText, OleFalse, OleFalse, OleTrue, OleFalse, OleFalse, OleTrue, Wrap, OleFalse, ReplaceText, Replace);
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-02-26 18:37:18 IP:211.22.xxx.xxx 未訂閱
您好: 給單元格賦值: ExcelApplication1.Cells[1,4].Value := '第一行第四列'; 試試看 ~~應無所住而生其心~~
shinhrn
中階會員


發表:54
回覆:165
積分:83
註冊:2002-06-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-02-27 08:40:37 IP:218.162.xxx.xxx 未訂閱
引言: 您好: 給單元格賦值: ExcelApplication1.Cells[1,4].Value := '第一行第四列'; 試試看 ~~應無所住而生其心~~
對不起,我要的要是find and replace整個文件的功能,thks....
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-02-27 09:55:08 IP:61.221.xxx.xxx 未訂閱
您好: 參考http://delphi.ktop.com.tw/topic.php?topic_Id=29495 ~~應無所住而生其心~~
shinhrn
中階會員


發表:54
回覆:165
積分:83
註冊:2002-06-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-02-27 10:07:54 IP:218.162.xxx.xxx 未訂閱
引言: 您好: 參考http://delphi.ktop.com.tw/topic.php?topic_Id=29495 ~~應無所住而生其心~~
我先前就看過........裡面沒有
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-02-27 10:38:49 IP:211.22.xxx.xxx 未訂閱
您好: 你不能用回圈去跑EXCEL所有的CELL找到你要的,在指定值給他ㄇ ~~應無所住而生其心~~
yubad
一般會員


發表:0
回覆:15
積分:3
註冊:2003-11-26

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-02-27 11:18:42 IP:210.65.xxx.xxx 未訂閱
Syntax expression.Replace(What, Replacement, LookAt , SearchOrder, MatchCase, MatchByte) Exp: ExcelApplication.Range['A1','D4'] .Replace('FindTEXT','REPtext',xlPart,xlByRows,False,False);
shinhrn
中階會員


發表:54
回覆:165
積分:83
註冊:2002-06-05

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-02-27 12:22:23 IP:218.162.xxx.xxx 未訂閱
引言: Syntax expression.Replace(What, Replacement, LookAt , SearchOrder, MatchCase, MatchByte) Exp: ExcelApplication.Range['A1','D4'] .Replace('FindTEXT','REPtext',xlPart,xlByRows,False,False);
thks,可以置換了......... 請問 range要如何設成整個文章?
yubad
一般會員


發表:0
回覆:15
積分:3
註冊:2003-11-26

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-02-27 14:09:18 IP:210.65.xxx.xxx 未訂閱
引言:
引言: Syntax expression.Replace(What, Replacement, LookAt , SearchOrder, MatchCase, MatchByte) Exp: ExcelApplication.Range['A1','D4'] .Replace('FindTEXT','REPtext',xlPart,xlByRows,False,False);
thks,可以置換了......... 請問 range要如何設成整個文章?
ExcelApplication.Range[ExcelApplication.cells[1,1], ExcelApplication.cells[X,Y]] .Replace('FindTEXT','REPtext',xlPart,xlByRows,False,False); X,Y值...請自行判斷所用cell欄數與列數
cclin
一般會員


發表:5
回覆:11
積分:8
註冊:2002-11-30

發送簡訊給我
#10 引用回覆 回覆 發表時間:2004-02-27 15:15:34 IP:203.195.xxx.xxx 未訂閱
試試吧 ExcelApplication.cells.Replace('FindTEXT','REPtext',xlPart,xlByRows,False,False);
shinhrn
中階會員


發表:54
回覆:165
積分:83
註冊:2002-06-05

發送簡訊給我
#11 引用回覆 回覆 發表時間:2004-02-27 16:30:41 IP:218.162.xxx.xxx 未訂閱
引言: 試試吧 ExcelApplication.cells.Replace('FindTEXT','REPtext',xlPart,xlByRows,False,False);
thks....可不可以順便問一下,這些指令要去拿里查??
系統時間:2024-05-20 12:38:13
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!