如題..如何將HTM轉成EXCEL??

cut & past?
===================引 用 aSDFGHH77 文 章===================
如題..如何將HTM轉成EXCEL??

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

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

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

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

------
價值的展現，來自於你用哪一個角度來看待它!!

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


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

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

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

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?