|
楼主 |
发表于 2010-4-4 13:49
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
呵呵
<html>
<head>
</head>
<script type="text/javascript">
function abc(sheet)
{
//alert(sheet.cells(1,1).text)
var i=1
var j=1
while(sheet.cells(i,j).text!="")
{
mm="<table border='1' cellspacing='0' cellpadding='0'><tr>"
while(sheet.cells(i,j).text!="")
{
mm+="<td>"+sheet.cells(i,j).text+"</td>";
j++
}
j=1
i++
mm+="</tr>"
document.write(mm+"</table>")
}
}
</script>
</head>
<body>
</body>
</html>
这样也ok了
Set obj = WebBrowser1.Document.parentWindow
Call obj.abc(ActiveSheet)
真的把表传进去了
学习学习!!
[ 本帖最后由 HHAAMM 于 2010-4-4 13:51 编辑 ] |
|