「トップページ/windows/microsoft office/VBA/jscript」の編集履歴(バックアップ)一覧はこちら
追加された行は緑色になります。
削除された行は赤色になります。
#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)
最終更新日時&date() &link_edit(text=ここを編集)
■目次
#contents_line()
■本文
#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]]
★★[[【ハウツー】Excel VBAでWebサービス - ExcelでJScriptの機能を利用しよう (1) はじめに | パソコン | マイナビニュース >http://news.mynavi.jp/articles/2012/03/25/vba/index.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)