在VBA中使用JAVASCRIPT和VBSCRIPT(2)

Set y = x.codeobject.aa(arr1) Set z = x.codeobject.aa(arr2) Set m = y.concat(z) For Each mm In m

If InStrRev(m, mm) = InStr(m, mm) Then arr3.push mm Next

MsgBox arr3 End Sub

其他的强大的数组功能 Sub Mytest()

Set sp1 = CreateObject(\ sp1.Language = \

s = \ '顺序 sp1.AddCode s

aa = Array(\张\王\李\赵\钱\孙\周\吴\郑\王\

Set bb = sp1.codeobject.sortarr(aa)

bb.push (\直接添加到数组末尾，不再需要重定义 MsgBox bb

bb.unshift (\直接添加到数组开头，不再需要重定义 MsgBox bb

bb.pop '删除最后一个元素 MsgBox bb

bb.shift '删除最前一个元素

MsgBox bb

bb.splice 2, 3, \直接替换数组 MsgBox bb End Sub

Sub tst004()

Set objIE = CreateObject(\

With objIE

.Navigate \

.Visible = 1 End With

Do While objIE.Busy = True DoEvents Loop

objIE.Document.Write \

End Sub

Sub tst004()

Set ie = CreateObject(\With ie

.Navigate \

.Visible = 1 End With

Do While ie.Busy = True DoEvents Loop

ie.document.write \abcd(){alert('你输入的是： '+document.F1.T1.value);};\

End Sub

数组的读取 Sub figjjs()

Set x = CreateObject(\x.Language = \

Set y = x.eval(\For i = 1 To 100

y.push i Next

kk = 8

MsgBox x.eval(\

End Sub

把多维数组转换为一维 Sub kk() [a1] = 1 [a2] = 2 [b1] = 3 [b2] = 4

Dim sc As Object

Set sc = CreateObject(\sc.Language = \a = [a1:b2]

sc.AddCode \Set n = sc.CodeObject.aa(a) MsgBox n End Sub

把单元格作为对象传入js里 Sub ava()

Set x = CreateObject(\x.Language = \

x.eval \

Set y = x.Run(\MsgBox y End Sub

把单元格作为对象传入js里 Sub ava()

Set x = CreateObject(\x.Language = \

x.eval \

y = x.Run(\MsgBox y End Sub

把workbook对象传入js里 Sub ava()

Set x = CreateObject(\x.Language = \

x.eval \

y = x.Run(\MsgBox y End Sub

传入WORKBOOK,输出A1单元格 Sub ff()

Set x = CreateObject(\x.Language = \

x.eval \Set y = x.Run(\

MsgBox y

MsgBox y.Row End Sub

创建对象和属性 Sub ff()

Set x = CreateObject(\x.Language = \

x.eval \Set y = x.eval(\

MsgBox y.myname

y.myname = \MsgBox y.myname End Sub

调用其他模块，JAVASCRIPT 也可以有MSGBOX

注意把代码放入WORKBOOK,不能放入模块1，至于模块1应该传入什么对象，请版主和

其他高手有空研究一下，谢谢

这里传入ME,就是thisworkbook，可以调用BB函数，在模块1我试过传入APPLICATION对象，但是不行，无法调用BB

如果用VBE.PROJECTS对象又要修改设置不太实用

Private Sub kkk()

Set m_sc = CreateObject(\ With m_sc

.Language = \ .AddObject \

.EVAL \ End With End Sub

Public Sub bb() MsgBox \End Sub

模块中可以传入thisworkbook

Private Sub kkk()

Set m_sc = CreateObject(\ With m_sc

.Language = \

.AddObject \

.EVAL \ End With

End Sub

Public Sub bb() MsgBox \End Sub

window对象的那些方法

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库在VBA中使用JAVASCRIPT和VBSCRIPT(2)在线全文阅读。