「トップページ/windows/microsoft office/VBA/jscript」の編集履歴（バックアップ）一覧に戻る

トップページ/windows/microsoft office/VBA/jscript - (2011/09/29 (木) 08:36:08) のソース

#html2(){{{{{{
<TABLE　align="right">
<TR>
<TD>
<iframe src="http://rcm-jp.amazon.co.jp/e/cm?lt1=_blank&bc1=000000&IS2=1&bg1=FFFFFF&fc1=000000&lc1=0000FF&t=tomokazu0525-22&o=9&p=8&l=as4&m=amazon&f=ifr&asins=483991902X" style="width:120px;height:240px;" scrolling="no" marginwidth="0" marginheight="0" frameborder="0"></iframe>
</TD>
<TD>
<iframe src="http://rcm-jp.amazon.co.jp/e/cm?lt1=_blank&bc1=000000&IS2=1&bg1=FFFFFF&fc1=000000&lc1=0000FF&t=tomokazu0525-22&o=9&p=8&l=as4&m=amazon&f=ifr&asins=0470386800" style="width:120px;height:240px;" scrolling="no" marginwidth="0" marginheight="0" frameborder="0"></iframe>
</TD>
</TR>
</TABLE>
}}}}}}

[[JavaScriptとJscriptの違い｜てくらぼ｜パソナテック（PASONA TECH） >http://www.pasonatech.co.jp/techlab/develop_wiki/rep32.jsp]]
[[VB で JScript が使える>http://d.hatena.ne.jp/tk78/20080321/1206104843]]
[[ createElementの使い方 ( しゃいん☆のブログ| 名古屋市 Webシステム開発 サーバ構築 ネットワーク構築 株式会社コネクティボ ) >http://shain.blog.conextivo.com/2007/03/createelement.html]]
[[JavaScriptでロールオーバーメニューを作る Cool Web Window >http://www.coolwebwindow.com/weblife_column/coolweb/000128.php]]


上記URLおよび、[[Office TANAKA - Excel VBA FileSystemObject>http://officetanaka.net/excel/vba/filesystemobject/textstream07.htm]]を参考にして動いたやつ。

　Sub test_jscript()
    Dim FSO As Object, buf As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    With FSO.GetFile("C:\Documents and Settings\(ユーザー名)\My Documents\test.js").OpenAsTextStream
        buf = .ReadAll
        .Close
    End With
    Set FSO = Nothing
    
    Dim SC As Object
    Set SC = CreateObject("ScriptControl")
    SC.Language = "JScript"
    SC.AddCode (buf)
    MsgBox (SC.eval("func(1, 2, 3, 4)"))
    
　End Sub

ファイル名：text.js

　var func = function (){
　var result = 0;
　for (var i = 0; i < arguments.length; i++) {
　result += arguments[i];
　};
　return result;
　}; 






[[勉強用メモ - EXCEL/VBA/XPATH >http://www42.atwiki.jp/tomokazu0525/pages/94.html]]





[[webbrowserコントロール（VBからJScriptの関数を実行できますか？） >http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200309/03090020.txt]]

[[VBAでJSONファイルをパースする - SO NOTE そうのて (；^ω^) >http://d.hatena.ne.jp/so_blue/20090326/1238084885]]

[[VBAからJScriptのescape()を使う。: Windows Script Programming >http://scripting.cocolog-nifty.com/blog/2007/09/vbaescape_e6b3.html]]

[[ExcelVBAで、URLエンコーディングをする方法っていうか、JavaScriptを使う方法 - ウィリアムのいたずらの開発日記 >http://blog.goo.ne.jp/xmldtp/e/7651ed08da079c715c942822e12e7874]]

**英語
[[How To  Call Functions Using the Script Control >http://support.microsoft.com/kb/184740/en-us/]]

[[     Using ScriptControl Methods >http://msdn.microsoft.com/en-us/library/aa227637%28VS.60%29.aspx]]
サイト名：MSDN


【VB、VBAとの連携】
[[VBAからWEBページ上に書かれたJavaScriptを動かす方法>http://www.ken3.org/vba/backno/vba162.html]]



&amazon(4893116487,text,image,width=56,height=80)
&amazon(4274946614,text,image,width=56,height=80)

*ページフッタ
**このページの1階層上のページ
&link_parent()
**このページの1階層下のページ
#lsd()
**このページに含まれるタグ
&tags()
**このページへのアクセス数
今日：&counter(today)
昨日：&counter(yesterday)
これまで合計：&counter(total)