Webページのスクリプトを実行するVBAコード

スポンサーリンク

スクリプトを実行するVBAコード

InternetExplorerをVBAで操作するツールの一つとして、今回はページ中に埋め込まれたスクリプトを実行するVBAコードを紹介します。

このコードを用いてスクリプトを実行できるようになると、より柔軟なページの操作ができるようになります。
またボタンをクリックすることで起動するスクリプトについてはボタンをクリックさせなくても実行することができ、コードの短縮につながります。

JavaScriptを動作させるページ

今回はVBAで実行できるJavascriptが含まれるちょうどよいページが見つからなかったので私が作成したページ(http://officevba.info/javascriptbarcodemaker2/)でサンプルコードを作成します。
番号を入力するとJavascriptでバーコードが作成できるというスクリプトが含まれています。

スポンサーリンク

サンプルページのHTMLコード

詳しくはサンプルページのソースを見ればわかりますが、軽く紹介します。
テキストとボタンのソースは以下のようになっています。

①テキストボックス

<input id =”JANCode” type=”text” size=”20″ style=”ime-mode:inactive”>

②表示(Javascript実行)ボタン

<input id =”表示” type=”button” value=”表示” onClick=”JAN作成()”>

表示ボタンをクリックすると「JAN作成()」というスクリプトが実行される仕組みになっています。

スクリプトを実行するVBAコード

スクリプトを実行するコードは「execScript」というコードになります。
対象のページを取得して、スクリプト名を指定することで実行できます。

Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Sub スクリプトを実行する()
Dim colSh As Object
Dim objIE As InternetExplorer
Dim win As Object
Dim pwin As HTMLWindow2
Dim txtBox As HTMLInputElement
Shell “C:\Program Files\Internet Explorer\iexplore.exe http://officevba.info/javascriptbarcodemaker2/”, vbNormalFocus
Sleep 3000
Set colSh = CreateObject(“Shell.Application”)
For Each win In colSh.Windows
If TypeName(win.document) = “HTMLDocument” Then
If InStr(win.document.Title, “VBA”) > 0 Then
Set objIE = win
Exit For
End If
End If
Next
If objIE Is Nothing Then
MsgBox “入力するページが見つかりません”
Exit Sub
End If
Set txtBox = objIE.document.getElementById(“JANCode”)
txtBox.Value = “4975175020312”’テキストボックスにバーコード作成する番号を入力する
Set pwin = objIE.document.parentWindow
pwin.execScript “JAN作成()”’スクリプト「JAN作成()」を実行する
End Sub
おすすめ書籍 amazonicon Amazon rakutenicon 楽天 Yahooicon Yahoo検索
amazoniconAmazon
rakutenicon楽天Kobo電子書籍ストア
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応【電子書籍】[ 近田 伸矢 ]
価格:1,781
rakutenicon楽天ブックス
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003 [ 近田伸矢 ]
価格:2,530
rakuteniconHMV&BOOKS online 1号店
【送料無料】 Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013 / 2010 / 2007 / 2003対応 / 近田伸矢 【本】
価格:2,530
rakuteniconbookfan 2号店 楽天市場店
Excel VBAでIEを思いのままに操作できるプログラミング術/近田伸矢/植木悠二/上田寛【1000円以上送料無料】
価格:2,530
rakuteniconぐるぐる王国DS 楽天市場店
Excel VBAでIEを思いのままに操作できるプログラミング術
価格:2,530
rakuteniconCD&DVD NEOWING
Excel VBAでIEを思いのままに操作できるプログラミング術[本/雑誌] (単行本・ムック) / 近田伸矢/著 植木悠二/著 上田寛/著
価格:2,530
rakuteniconぐるぐる王国 楽天市場店
Excel VBAでIEを思いのままに操作できるプログラミング術
価格:2,530
rakuteniconブックオフオンライン楽天市場店
【中古】 Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応 /近田伸矢,植木悠二,上田寛【 【中古】afb
価格:1,980
rakuteniconbookfan 1号店 楽天市場店
Excel VBAでIEを思いのままに操作できるプログラミング術/近田伸矢/植木悠二/上田寛【合計3000円以上で送料無料】
価格:2,530
rakuteniconドラマ 本と中古ゲームの販売買取
Excel VBAでIEを思いのままに操作できるプログラミング術 近田伸矢/著 植木悠二/著 上田寛/著
価格:2,530
Yahooiconぱーそなるたのめーる
インプレス Excel VBAでIEを思いのままに操作できるプログラミング術 1冊 (メーカー直送)
価格:2,530
Yahooicon京都 大垣書店オンライン
Excel VBAでIEを思いのままに操作できるプログラミング術 / 近田 伸矢 他著
価格:2,530
YahooiconWINDY BOOKS on line
Excel  VBAでIEを思いのままに操作できるプログラミング術 / 出版社-インプレスジャパン
価格:2,530
YahooiconHonya Club.com PayPayモール店
Excel VBAでIEを思いのままに操作できるプログラミング術/近田伸矢
価格:2,530
Yahooiconbookfanプレミアム
Excel VBAでIEを思いのままに操作できるプログラミング術 / 近田伸矢 / 植木悠二 / 上田寛
価格:2,530
Yahooiconぐるぐる王国DS ヤフー店
Excel VBAでIEを思いのままに操作できるプログラミング術
価格:2,530
Yahooiconぐるぐる王国2号館 ヤフー店
Excel VBAでIEを思いのままに操作できるプログラミング術
価格:2,530
Yahooiconぐるぐる王国 スタークラブ
Excel VBAでIEを思いのままに操作できるプログラミング術
価格:2,530
Yahooiconぐるぐる王国 PayPayモール店
Excel VBAでIEを思いのままに操作できるプログラミング術
価格:2,530
Yahooiconbookfan PayPayモール店
Excel VBAでIEを思いのままに操作できるプログラミング術/近田伸矢/植木悠二/上田寛
価格:2,530
Yahooiconebookjapan
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応 電子書籍版
価格:1,780
YahooiconNEW SEEK
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応 中古 古本
価格:3,897
YahooiconBLANCOL
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応 中古書籍
価格:3,180
Yahooicon本とゲームのドラマYahoo!店
Excel VBAでIEを思いのままに操作できるプログラミング術 近田伸矢/著 植木悠二/著 上田寛/著
価格:2,530
Yahooiconドラマ書房Yahoo!店
Excel VBAでIEを思いのままに操作できるプログラミング術 近田伸矢/著 植木悠二/著 上田寛/著
価格:2,530
YahooiconHMV&BOOKS online Yahoo!店
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013 / 2010 / 2007 / 2003対応 / 近田伸矢  〔本〕
価格:2,530
YahooiconBOOKOFF Online ヤフー店
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応/近田伸矢,植木悠二,上田寛【
価格:1,980
YahooiconネオウィングYahoo!店
【ゆうメール利用不可】Excel VBAでIEを思いのままに操作できるプログラミング術/近田伸矢/著 植木悠二/著 上田寛/著(単行本・ムック)
価格:2,530
YahooiconECJOY!ブックス ヤフー店
インプレスジャパン Excel VBAでIEを思いのままに操作できるプログラミング術 近田伸矢/著 植木悠二/著 上田寛/著
価格:2,530

コメント