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

把檔案存在同一份excel裡

尚未結案
wu330033
一般會員


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-03-10 15:48:49 IP:140.124.xxx.xxx 訂閱
我想要寫一個按一次按鈕就把資料存在excel裡
然後按第二次又可以把不同的資料存在同一份excel裡
請問要怎麼做呢?
我參考站上的文章只能每次都開一個新excel存檔
wscken
初階會員


發表:28
回覆:75
積分:45
註冊:2003-08-05

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-03-10 16:59:32 IP:203.66.xxx.xxx 訂閱
C++的語法我不會,
不過我想,應該跟Delphi的差不多,因為都是OleObject的。


[code delphi]


procedure TForm1.Button1Click(Sender: TObject);
var
vSheet1, vSheet2, vWorkBook, vExcel : Variant;
begin
try
vExcel := CreateOleObject('Excel.Application');
vExcel.WindowState:= xlMaximized;
vExcel.SheetsInNewWorkbook := 2; //initial workbook
vExcel.Visible := True;
vExcel.DisplayAlerts := False;
vExcel.Caption := '應用程序調用 Microsoft Excel';
vWorkBook := vExcel.Workbooks.Add;
vSheet1 := vExcel.Worksheets.Item[1];
vSheet1.Name:='Test 1.';
vSheet2 := vExcel.Worksheets.Item[2];
vSheet2.Name:='Test 2.';
except
VarClear(vSheet1);
VarClear(vSheet2);
VarClear(vWorkBook);
vExcel.Quit;
VarClear(vExcel);
end;
end;

[/code]
編輯記錄
wscken 重新編輯於 2008-03-10 17:09:40, 註解 無‧
系統時間:2024-04-25 10:19:04
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!