在VBA中使用JAVASCRIPT和VBSCRIPT（1）

figfig

Sub kk()
Dim i, bb
'On Error Resume Next
With Sheet1.Browser
    .Navigate "about:blank"
    .Refresh
   .Document.Open
   
    .Document.writeln Sheet1.CHTML.Text
    'ｰｴCTRL+Gｲ鯀ｴｽﾅｱｾｴ惲・
     Set bb = .Document.getelementbyid("xmenu1")
   
     MsgBox bb.Width
     
     
     
     
     
End With
End Sub

zhz3230

谢谢lz精彩讲解！

figfig

Sub figjjs()



Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
Set y = x.eval("aa=new Array()")
For i = 1 To 100
y.push i
Next

kk = 8

MsgBox x.eval("aa[" & kk & "]")





End Sub

figfig

Sub kk()





[a1] = 1
[a2] = 2
[b1] = 3
[b2] = 4








Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"

a = [a1:b2]



sc.AddCode "function aa(a){return new VBArray(a).toArray();}"
Set n = sc.CodeObject.aa(a)




MsgBox n






End Sub

pkingson

ipi学习中。

figfig

Sub ava2()

Set ie = CreateObject("htmlfile")
Set win = ie.parentwindow
MsgBox win.screen.Width

End Sub

figfig

Sub ava()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"

x.eval "function aa(aa) {return aa.value.toArray()}"

Set y = x.Run("aa", [a1:b4])
MsgBox y
End Sub

[ 本帖最后由 figfig 于 2010-4-19 13:47 编辑 ]

figfig

Sub ava()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"

x.eval "function aa(aa) {return aa.font.colorindex}"

y = x.Run("aa", [a1])
MsgBox y
End Sub

figfig

Sub ava()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"

x.eval "function aa(aa) {return aa.sheets.count}"

y = x.Run("aa", ThisWorkbook)
MsgBox y
End Sub

HHAAMM

这个加入setInteval提示缺少对象