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

把檔案存在同一份excel裡

尚未結案
wu330033
一般會員


發表:29
回覆:28
積分:11
註冊:2007-10-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-03-09 19:22:19 IP:140.124.xxx.xxx 訂閱
我想要寫一個按一次按鈕就把資料存在excel裡
然後按第二次又可以把不同的資料存在同一份excel裡
例如:第一筆資料存在A1 B1 C1
第二比資料存在A2 B2 C2
.
.

請問要怎麼做呢?
我參考站上的文章只能每次都開一個新excel存檔
會把之前存的檔案給覆蓋掉
編輯記錄
wu330033 重新編輯於 2008-03-10 19:53:16, 註解 無‧
fallencute
一般會員


發表:4
回覆:6
積分:2
註冊:2008-04-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-04-09 15:27:32 IP:59.124.xxx.xxx 訂閱
你好 

你仔細看看 也是可以開新的工作簿去存取唷~

如~
// 開啟某個已存在的 workbooks 跟 workbook.
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Open", "d:\\test1.xls");

引用至 站內文章 ~ 去看看吧~ 剛好 我上禮拜跟你做同樣的事說^^"
http://www.programmer-club.com/pc2020v5/forum/ShowSameTitleN.asp?URL=N&board_pc2020=cb&id=13074
------
程式(雜七...)就像是魔法一樣
其實都很簡單...只是暸解在建構
但難的事...
1-函式找不到
2-方向想不到
3-寫法不知道
/>/ 0\
00156
高階會員


發表:45
回覆:195
積分:112
註冊:2002-06-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-06-28 08:47:36 IP:118.166.xxx.xxx 訂閱
利用COM的方式對Excel進行操作,例如:

[code delphi]
uses ComObj......

Procedure InputDataToExcel(FileName:TFileName; ARow, ACol: integer; InputData:string);
var ex,wb,sh:Variant;
begin
ex:=CreateOleObject('Excel.Application');
try
wb:=ex.WorkBooks.Open(FileName); //開啟檔案
sh:=wb.WorkSheets[1]; //指定工作表(此處指定為第一張工作表)
sh.Cells[ARow,ACol].Value=InputData;
sh.SaveAs(FileName);
finally
ex.Quit;
end;
end;
[/code]

以上程式碼再依照需要修改流程試試看。

有關Excel的物件,可利用Excel裡的VB編輯器,其中的[瀏覽物件]可找到相關物件及方法、屬性
以下是官方的參考
http://msdn.microsoft.com/en-us/library/aa189754(office.10).aspx

系統時間:2024-05-07 18:13:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!