在VBA中使用JAVASCRIPT和VBSCRIPT

Next End Sub

可同时运行的程序

下面代码可以看出JSCRIPT好像是多线程的，可以同时运行其他VBA程序， Sub ava()

Set x = CreateObject(\Set ie = CreateObject(\x.Language = \x.EVAL \bb;function aa() mm(cc,dd){bb=cc;dd.setInterval(aa,2000)}\y = x.Run(\For i = 1 To 888888888888888# [a2] = [a2] + 1 DoEvents Next End Sub

多线程，同时运行，突破VBA程序运行单线程限制Sub ava()

Set x = CreateObject(\Set ie = CreateObject(\x.Language = \x.EVAL \bb;function aa() mm(cc,dd){bb=cc;dd.setInterval(aa,2000)}\y = x.Run(\x.EVAL \bb;function aa() mm(cc,dd){bb=cc;dd.setInterval(aa,2000)}\y = x.Run(\

For i = 1 To 888888888888888# [a3] = [a3] + 1 DoEvents Next End Sub

获得当前屏幕的长宽，不用API Sub ava2()

Set ie = CreateObject(\Set win = ie.parentwindow MsgBox win.screen.Width

{bb.range('a1')+=1;} {bb.range('a1')+=1;} {bb.range('a2')+=1;} ;function

;function

;function

End Sub

发送邮件

Sub sendmail()

CreateObject(\ End Sub

在VBA中使用JAVASCRIPT和VBSCRIPT（2） 介绍 JSON

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写。同时也易于机器解析和生成。它基于JavaScript Programming Language（http://www.crockford.com/javascript）, Standard ECMA-262 3rd Edition - December 1999（http://www.ecma-international.or ... cma-st/ECMA-262.pdf）的一个子集。JSON采用完全独立于语言的文本格式，但是也使用了类似于C语言家族的习惯（包括C, C++, C#, Java, JavaScript, Perl, Python等）。这些特性使JSON成为理想的数据交换语言。

JSON建构于两种结构：

“名称/值”对的集合（A collection of name/value pairs）。不同的语言中，它被理解为对象（object），纪录（record），结构（struct），字典（dictionary），哈希表（hash table），有键列表（keyed list），或者关联数组 （associative array）。

值的有序列表（An ordered list of values）。在大部分语言中，它被理解为数组（array）。

这些都是常见的数据结构。事实上大部分现代计算机语言都以某种形式支持它们。这使得一种数据格式在同样基于这些结构的编程语言之间交换成为可能。

JSON具有以下这些形式：

对象是一个无序的“‘名称/值’对”集合。一个对象以“{”（左括号）开始，“}”（右括号）结束。每个“名称”后跟一个“:”（冒号）；“‘名称/值’ 对”之间使用“,”（逗号）分隔。

数组是值（value）的有序集合。一个数组以“[”（左中括号）开始，“]”（右中括号）结束。值之间使用“,”（逗号）分隔。

值（value）可以是双引号括起来的字符串（string）、数值(number)、 ture、false、 null、对象（object）或者数组（array）。这些结构可以嵌套。

字符串（string）是由双引号包围的任意数量Unicode字符的集合，使用反斜线转义。一个字符（character）即一个单独的字符串（character string）。

除去一些编码细节，以下描述了完整的语言。

字符串（string）与C或者Java的字符串非常相似。除去未曾使用的八进制与十六进制格式，数值（number）也与C或者Java的数值非常相似。

空白可以加入到任何符号之间。

Sub figjson()

aa = \

Set x = CreateObject(\ x.Language = \

s = \ x.AddCode s

Set y = x.CodeObject.j(aa)

MsgBox y.myname MsgBox y.myid

End Sub

例子2

Sub figjson2()

aa = \age:24, email:[\family:{parents:[\父亲\母亲\家庭成员\ Set x = CreateObject(\ x.Language = \

s = \ x.AddCode s

Set y = x.Run(\ MsgBox y.myname MsgBox y.age MsgBox y.email MsgBox y.family

MsgBox y.family.parents

End Sub

多重结构，树状显示，类似XML节点树，代码比XML简洁得多 Sub figjson3()

aa = \Chaoyang Road \

Set X = CreateObject(\ X.Language = \

s = \ X.AddCode s

Set y = X.Run(\

MsgBox y.myname MsgBox y.myaddress MsgBox y.myaddress.city

MsgBox y.myaddress.postcode End Sub

数组放入对象里 Sub figjson4()

aa = \\[{ \\\\\},{ \\\\\}, { \\\\\

Set X = CreateObject(\ X.Language = \

s = \ X.AddCode s

Set y = X.Run(\ MsgBox y.firstName MsgBox y.email End Sub

可用单引号代替2个双引号，简化写法，如例子一 Sub figjson()

aa = \

Set x = CreateObject(\ x.Language = \