vba代码里运行html代码吗,如何在HTML表格使用VBA代码

子GoToWebSiteAndPlayAroundNew()

昏暗APPIE作为对象'InternetExplorer.Application 昏暗URL作为字符串 昏暗我只要，strText中作为字符串

昏暗文档作为对象，hTable作为对象，hBody作为对象端粒酶RNA为对象，HTD作为对象 昏暗Tb作为对象，BB作为对象，TR为对象，TD作为对象

昏暗ÿ只要，Z长，WB作为Excel.Workbook，WS作为Excel.Worksheet

昏暗SWS作为SHDocVw.ShellWindows 昏暗IE作为对象

昏暗VIE作为SHDocVw.InternetExplorer

设置WB = Excel.ActiveWorkbook 集WS = wb.ActiveSheet

集APPIE =的CreateObject(” InternetExplorer.Application “) URL =” http://dgft.delhi.nic.in:8100/dgft/IecPrint“

Y = 1 'A栏在Excel Z = 1' 行1在Excel

随着APPIE .navigate URL 。可见=真

的do while .busy：的DoEvents：回路 的do while .ReadyState <> 4：的DoEvents：回路

.document.getElementById( “IEC” )。价值= “0495024988”

.document.getElementById( “名称”)。值= “AMB”

结束随着

上的错误继续下一步

随着appIE.document

集elems的= .getElementsByTagName( “输入”) 每个电子邮件在elems的

如果(例如的getAttribute( “值”)= “提交查询”)然后 e.Click 退出对于 结束如果

下一封

随着 设置结束SWS =新SHDocVw.ShellWindows 对于每个VIE在SWS '如果左(vIE.LocationURL，4)= “HTTP” 然后' 避免资源管理器窗口的/ etc这样 '如果MSGBOX( “发现IE窗口的网址是：” & vbCrLf & vIE.LocationURL & vbCrLf & _ ' vbCrLf &“你想看看htm L' “vbYesNo)= vbYes然后MSGBOX vIE.document.body.innerHTML '在一个MsgBox 显示HTML' '或把它放到一个文件 ' 暗淡VFF只要 'VFF = freefile ' 打开” C ：\ thehtml.txt”如#vff '输出打印＃VFF，vie.document.body.innerhtml '靠近#vff ' 结束如果 ' 结束如果

Set doc = vIE.document

Set hTable = doc.getElementsByTagName("table")

For Each tb In hTable

Set hBody = tb.getElementsByTagName("tbody")

For Each bb In hBody

Set hTR = bb.getElementsByTagName("tr")

MsgBox hTR.Length

For Each tr In hTR

Set hTD = tr.getElementsByTagName("td")

MsgBox hTD.Length

y = 1 ' Resets back to column A

For Each td In hTD

ws.Cells(z, y).Value = td.innerText

y = y + 1

Next td

DoEvents

z = z + 1

Next tr

Exit For

Next bb

Exit For

接着TB

Next

End Sub