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

如何將HTM轉成EXCEL??

答題得分者是:christie
aSDFGHH77
一般會員


發表:7
回覆:4
積分:2
註冊:2007-12-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-08-07 09:08:37 IP:218.211.xxx.xxx 訂閱
如題..如何將HTM轉成EXCEL??
暗黑破壞神
版主


發表:9
回覆:2301
積分:1627
註冊:2004-10-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-08-08 02:25:59 IP:122.118.xxx.xxx 未訂閱
cut & past?
===================引 用 aSDFGHH77 文 章===================
如題..如何將HTM轉成EXCEL??
aSDFGHH77
一般會員


發表:7
回覆:4
積分:2
註冊:2007-12-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-08-08 14:51:23 IP:218.211.xxx.xxx 訂閱
抱歉是將整各網頁複製到EXCEL.因網頁內容是表格資料
===================引 用 暗黑破壞神 文 章===================
cut & past?
===================引 用 aSDFGHH77 文 章===================
如題..如何將HTM轉成EXCEL??
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-08-08 20:57:25 IP:59.126.xxx.xxx 訂閱
 那你問的是如何將網頁的 表格 用手工的方式貼入 Excel ,還是要問怎麼由 delphi 做?

如果是第一個的話,暗黑版主說的就是解答囉~

===================引 用 aSDFGHH77 文 章===================
抱歉是將整各網頁複製到EXCEL.因網頁內容是表格資料
===================引 用 暗黑破壞神 文 章===================
cut & past?
===================引 用 aSDFGHH77 文 章===================
如題..如何將HTM轉成EXCEL??
------
價值的展現,來自於你用哪一個角度來看待它!!
aSDFGHH77
一般會員


發表:7
回覆:4
積分:2
註冊:2007-12-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-08-12 15:46:00 IP:218.211.xxx.xxx 訂閱

不好意思..我試問delphi 怎嚜做??


===================引 用 careychen 文 章===================
那你問的是如何將網頁的 表格 用手工的方式貼入 Excel ,還是要問怎麼由 delphi 做?

如果是第一個的話,暗黑版主說的就是解答囉~

===================引 用 aSDFGHH77 文 章===================
抱歉是將整各網頁複製到EXCEL.因網頁內容是表格資料
===================引 用 暗黑破壞神 文 章===================
cut & past?
===================引 用 aSDFGHH77 文 章===================
如題..如何將HTM轉成EXCEL??
christie
資深會員


發表:28
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-08-12 16:31:18 IP:203.73.xxx.xxx 未訂閱
For example:
全選網頁(Ctrl_A) 複製(Ctrl_C) 貼到CLIPBOARD
//Select All & Copy to Clipboard
procedure TForm1.Button1Click(Sender: TObject);
begin
// 網頁全選
try
WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER);
except
end;
caption:='SelectAll ';
// Copy the selected to the clipboard
try
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
except
end;
caption:=caption 'cp2clippboard';
ssl.Add('afterSel&CP' timetostr(now));

end;
procedure TForm1.Button2Click(Sender: TObject);
const
xlWBATWorksheet = -4167;
var
i:integer;
MsExcel, MsExcelWorkBook, MsExcelWorkSheet:Variant;
out5:string;
k:word;
begin
MsExcel:= CreateOleObject('Excel.Application');
MSExcel.WorkBooks.Add(xlWBATWorksheet);
MsExcelWorkSheet:= msExcel.Worksheets.Item[1];
MsExcel.ActiveSheet.Range['A1'].PasteSpecial;
Stringgrid1.cells[0,0]:='Time';
Stringgrid1.cells[0,1]:=timetostr(MsExcelWorkSheet.cells[52,3]);
for k:=1 to 12 do
begin
stringgrid1.cells[k,0]:=MsExcelWorkSheet.cells[54,k];
stringGrid1.cells[k,1]:=MsExcelWorkSheet.cells[55,k];
end;
Stringgrid1.cells[0,3]:='賣出';
Stringgrid1.cells[0,7]:='買進\賣出';
Stringgrid1.cells[0,8]:='買進';
out5:=MsExcelWorkSheet.cells[58,3];
//*******賣出
for k:=0 to 4 do
begin
Stringgrid1.cells[3,3 k]:=MsExcelWorkSheet.cells[58 k,3];//SellPrice5
Stringgrid1.cells[4,3 k]:=MsExcelWorkSheet.cells[58 k,4];
end;
//Memo1.Lines.Add(MsExcelWorkSheet.cells[62,3]);//SellPrice1
//Memo1.Lines.Add(MsExcelWorkSheet.cells[62,4]);//SellQty
//*******買進
for k:=0 to 4 do
begin
Stringgrid1.cells[1,7 k]:=MsExcelWorkSheet.cells[63 k,1];//BuyPrice
Stringgrid1.cells[2,7 k]:=MsExcelWorkSheet.cells[63 k,2];
end;
//*******
ssl.Add('After Paste' timetostr(now));
ssl.SaveToFile('test.sql');
MsExcel.ActiveWorkBook.Saved := True;
MsExcel.Quit;
end;

請參考:
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=90736
------
What do we live for if not to make life less difficult for each other?
系統時間:2017-10-19 15:02:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!