在VBA中使用JAVASCRIPT和VBSCRIPT（2）

蓝桥玄霜 · 发表于 2009-9-17 10:42

好东西，先收藏了，慢慢学习消化。
谢谢Figfig兄。

赵国辉 · 发表于 2009-9-18 16:46

还在（1）中苦等
原来（2）已问世

figfig · 发表于 2010-1-13 15:08

Sub figjson()

aa = "{ 'myname':'figfig', 'myid':'888' }"

         Set x = CreateObject("ScriptControl")
      x.Language = "JScript"

s = "function j(s) { return eval('(' + s + ')'); }"
   x.AddCode s
   Set y = x.CodeObject.j(aa)

MsgBox y.myname
MsgBox y.myid

End Sub

figfig · 发表于 2010-1-13 15:21

如SHEET1 A1单元格为AA, B1单元格为BB

Sub figjson()

aa = "{ '" & [a1] & "':'" & [b1] & " ' }"



         Set x = CreateObject("ScriptControl")
      x.Language = "JScript"

s = "function j(s) { return eval('(' + s + ')'); }"
   x.AddCode s
   Set y = x.CodeObject.j(aa)


MsgBox y.aa

End Sub

figfig · 发表于 2010-1-13 15:57

Sub figjson()



         Set x = CreateObject("ScriptControl")
      x.Language = "JScript"

s = "var a=2 ;var b=3;var cc={a:a,b:b}"
   x.AddCode s
   Set y = x.CodeObject.cc
   MsgBox y.a

End Sub

figfig · 发表于 2010-1-13 16:22

Sub figjson()



         Set x = CreateObject("ScriptControl")
      x.Language = "JScript"

s = "var a=2 ;var b=3;var cc={a:a,b:b};cc['电话']=8888;"
   x.AddCode s



   Set y = x.CodeObject.cc
   MsgBox y.电话

End Sub

figfig · 发表于 2010-1-13 16:51

Sub figjson()



         Set x = CreateObject("ScriptControl")
      x.Language = "JScript"

s = "var a=2 ;var b=3;var cc={a:a,b:b};cc['电话']=8888;"
   x.AddCode s
   Set y = x.CodeObject.cc
   MsgBox y.电话

   s = "cc['电话']=9999;"
   x.AddCode s



   MsgBox y.电话

End Sub

ccwan · 发表于 2010-1-13 17:03

谢谢老师分享。
例子2运行到MsgBox y.Email这句时出错。

figfig · 发表于 2010-1-13 20:00

Sub figjson()




Set x = CreateObject("ScriptControl")
x.Language = "JScript"
s = "var cc={name:'figfig',id:'888',tel:'1234'};"
x.AddCode s


   kk = "name"
y = x.eval("cc['" & kk & "']")
   MsgBox y

   kk = "id"

y = x.eval("cc['" & kk & "']")
   MsgBox y



   kk = "tel"
   y = x.eval("cc['" & kk & "']")
   MsgBox y


End Sub

figfig · 发表于 2010-1-13 20:33

Sub vb代码()
Name = "bb"
If Name = "aa" Then Address = "us"

If Name = "bb" Then Address = "cn"

If Name = "cc" Then Address = "uk"
MsgBox Address

Name = "cc"

If Name = "aa" Then Address = "us"

If Name = "bb" Then Address = "cn"

If Name = "cc" Then Address = "uk"
MsgBox Address

End Sub

Sub fjson代码()
   Set x = CreateObject("ScriptControl")
x.Language = "JScript"

s = "var address={aa:'us',bb:'cn',cc:'uk'}"
   x.AddCode s

Name = "bb"

Address = x.eval("address['" & Name & "']")

MsgBox Address

Name = "cc"

Address = x.eval("address['" & Name & "']")

MsgBox Address

End Sub

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

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

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

在EXCEL中的应用

传递数值值

动态添加数据

数据动态变化

用变量来查询

与VB比较，代码更加简洁明了，可作为小型数据库