把jiangsheng给的答案抄出来:var ove:olevariant; i:integer; begin ove:=webbrowser1.oleobject.document.forms.item(0).element; for i:=0 to ove-1 do begin if (ove.item(i).tagName='INPUT') and (ove.item(i).value='hello') then ove.item(i).click; end; end;
for i := 0 to wb1.OleObject.document.links.Length - 1 do begin if '导出到Excel' = wb1.OleObject.document.links.item(i).innerText then begin wb1.OleObject.document.links.item(i).click; Break; end; end;
ove:olevariant;
i:integer;
begin
ove:=webbrowser1.oleobject.document.forms.item(0).element;
for i:=0 to ove-1 do
begin
if (ove.item(i).tagName='INPUT') and (ove.item(i).value='hello') then
ove.item(i).click;
end;
end;
或
html:
<input type=button value="Hello" onclick='...' ID="HClick">
delphi:
WebBrowser1.OleObject.Document.getElementByID('HClick').Click();
begin
if '导出到Excel' = wb1.OleObject.document.links.item(i).innerText then
begin
wb1.OleObject.document.links.item(i).click;
Break;
end;
end;