在VBA中使用JAVASCRIPT和VBSCRIPT（1）

ccwan · 发表于 2010-1-3 15:48

强帖留名！

figfig · 发表于 2010-3-3 08:46

Sub tst004()
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate "about:blank"

.Visible = 1
End With

Do While objIE.Busy = True
DoEvents
Loop

objIE.Document.Write "TEST" & Chr(10)

End Sub

HHAAMM · 发表于 2010-3-2 23:50

楼主
document.write
该怎么实现

gouyuanpei · 发表于 2010-3-3 09:58

做个记号，搬张凳子慢慢看

HHAAMM · 发表于 2010-3-3 10:38

哦楼主没理解俺的意思
这样吧，俺想知道下面这段该怎么实现

<html>

<head>

</head>

<body>
<script language="javascript">
function abcd()
{
alert("你输入的是： "+document.F1.T1.value);
}
</script>

<form name="F1" >
<input type="text" name="T1" size="20">
<input type="button" value="验证" onClick="abcd()">
</form>

</body>

</html>

HHAAMM · 发表于 2010-3-3 10:42

还有
见过有人把 <input type="button" value="验证" onClick="abcd()"> 这种按钮弄到excel的工作表里了这个始终不明白是怎么回事儿

figfig · 发表于 2010-3-3 21:53

Sub tst004()
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate "about:blank"

.Visible = 1
End With

Do While ie.Busy = True
DoEvents
Loop

ie.document.write "<HTML><BODY><script>function abcd(){alert('你输入的是： '+document.F1.T1.value);};</script><form name=F1 > <input type=text name=T1 size=20> <input type=button value=验证 onClick='abcd()'></form></BODY></HTML>"

End Sub

HHAAMM · 发表于 2010-3-3 22:28

楼主，再给看看这个附件是什么回事儿

HHAAMM · 发表于 2010-3-3 22:41

60楼的附件里
要是当中一句改成

<table class="xmenu" id="xmenu1" width="30%" height="100%" cellpadding="1" cellspacing="4" border="0" bgcolor="#ffffff" >

（原来是width="100%" 改成width="30%"）

该怎么操作

HHAAMM · 发表于 2010-3-3 23:13

60楼的附件俺明白了

		自动登录	找回密码
密码			免费注册

[原创] 在VBA中使用JAVASCRIPT和VBSCRIPT（1）

回复 54楼 HHAAMM 的帖子

回复 57楼 HHAAMM 的帖子

浏览过的版块