VBA 64ビット環境でCreateObject("ScriptControl")がエラーになる

Question

下記、WEBのAPIをVBAで処理しているのですが、
64ビット環境のみCreateObject("ScriptControl")でエラーになってしまいます。
どのように対処すれば良いかわからず、ご質問させて頂きました。

Dim targetURI
targetURI = webAddress & "api/xxx"

'HTTP GET
Set HttpReq = CreateObject("MSXML2.XMLHTTP")
HttpReq.Open "GET", targetURI, False
HttpReq.send (Null)

'XML 受信
Dim restext As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", targetURI, False
.send
Set oXML = .responseXML
restext = .responseText
End With

'JSONをパース
Set sc = CreateObject("ScriptControl") '←ここでエラー
sc.Language = "JScript"
sc.AddCode "function jsonParse(s) { return eval('(' + s + ')'); }"
Set objJSON = sc.CodeObject.jsonParse(restext)

Comments

[Tak1wa]

ExcelVBAですか？Officeも64bitでしょうか？

[Qoo]

はい。ExcelVBAです。
開発環境は32ビットExcelなのですが、
他のPCの64ビットExcelで実行するとエラーになるようです。

Answer 1

64bitの実行環境に ScriptControl が提供されていないのでエラーになります。

将来性を考えると ScriptControl に代わる方法を考えるのが一番です。
でも他の手段がないわけでもありません。

64bitのWindows にも 32bitの実行環境があり、
32bitの実行環境には ScriptControl が提供されているからです。

---

● 64bitのWindows に 32bitのExcelをインストールする

私は Windows 8.1 64bit に Excel 2013 32bit をインストールしているので試してみたら
Set sc = CreateObject("ScriptControl") の部分でエラーにならなかったので
たぶんイケると思います。

Microsoftも「32ビットの Office がほとんどのユーザーにお勧めです。」と言っています。
https://technet.microsoft.com/ja-jp/library/ee681792.aspx

64bitのExcel にこだわる理由がなければ、これが一番簡単だと思います。

---

● VBScript に移植して 32bit で動かす

VBScriptだと簡単に 32bit/64bit を変えられます。

試しに「Set sc = CreateObject("ScriptControl")」の１行を
test.vbs という名前のテキストファイルに書き込んで、
コマンドラインから以下の２つを実行して試してみてください。

C:\Windows\System32\cscript.exe test.vbs
C:\Windows\SysWow64\cscript.exe test.vbs

上の行は 64bit実行なのでエラーになります。
下の行は 32bit実行なのでエラーになりません。

全部を移植しなくても ScriptControl を使う部分だけ VBScript にして、
VBA から VBScript を32bit実行で起動して、
テキストファイルを介してデータをやり取りすれば修正量も少なくて済みますし。
（プログラム的には全くキレイではありませんが・・・）

---

とりあえず思い付いた方法を２つ書いてみました。

プログラムの寿命やら環境やらコストやら色々と考えて選択してください。

Comments

[Qoo]

検証までして頂きありがとうございます。
確かに32ビット版ではエラーはでませんでした。

ただ、クライアントの環境は変えられないので、
公開されているjsonLibクラスを利用することで無事解決致しました。

https://cybozudev.zendesk.com/hc/ja/articles/201932564-%E7%AC%AC2%E5%9B%9E-Excel%E3%81%A8kintone%E3%82%92%E9%80%A3%E6%90%BA%E3%81%95%E3%81%9B%E3%82%88%E3%81%86

Answer 2

64bit用のActiveXコンポーネントが提供されていないためですね。
以下などを参考に64bit環境でも動く別の代替案を検討したほうが良いでしょう。

http://www.ka-net.org/office/of32.html