（WindowScriptHostの活用） ＡＳとＰＣの新たな連携 （WindowScriptHostの活用） 株式会社　アクセル

空白ページ

これまでの連携手法 ＰＣの機能 ・Ｅｘｃｅｌ ・ＰＤＦ ・画像 ・テキストファイル ・ＣＳＶ 基本的にダメ ■ＳＴＲＰＣＣＭＤが、ＰＣ側のコマンドを実行できる 　　　　１２３文字の制限　／　返事？　／固定的呼び出し

スクリプト・オートメーションの歴史 スクリプトオートメーションとは、 テキストベースのスクリプトを利用し、複数の処理の実行を自動化する技術 バッチファイル ・複数の処理を羅列 ・簡単な論理判断 WSH (Windows Script Host) ・ＪａｖａｓｃｒｉｐｔまたはＶＢｓｃｒｉｐｔで記述 ・Ｓｈｅｌｌに含まれない Power Shell ・２００３年、発表

ＷＳＨの例・その１ ファイルがあったら、削除する //----ファイル名を 指定 filename=“C:\\Users\\AA\\Desktop\\aaaaa.pdf" //----オブジェクトを生成 fso = WScript.CreateObject("Scripting.FileSystemObject") //----ファイルの存在をチェック if( fso.fileExists( fileName ) ){ fso.DeleteFile( fileName) 　　　　//----ファイルを削除 }

ＷＳＨの例・その2 Ｅｘｃｅｌを開く //----ファイルを指定 url = "http://www1.axel.ne.jp/iwrdoc/qtemp/SPL2FMT.xls" //----Excelオブジェクトを生成 var ExcelApp = new ActiveXObject( "Excel.Application" ); //----Ｅｘｃｅｌを表示 ExcelApp.Visible = true ; //----ブックを開く var book = ExcelApp.Workbooks.Open( url );

ＷＳＨの例・その３ Ｅｘｃｅｌを開き、ＰＤＦを作成する //----ファイルを指定 url = "http://www1.axel.ne.jp/iwrdoc/qtemp/SPL2FMT.xls" //----Excelオブジェクトを生成 var ExcelApp = new ActiveXObject( "Excel.Application" ); //----Ｅｘｃｅｌを表示 ExcelApp.Visible = true ; //----ブックを開く var book = ExcelApp.Workbooks.Open( url ); var sheet = book.Worksheets( 1 ); // 1 シート目のオブジェクト //----------------------------------------------------------------------------------------- //----PDFを作成する outfile="C:\\Users\\ohtsuki\\Desktop\\aaaaa.pdf" sheet.PageSetup.Orientation = xlPortRait // 印刷方向設定 :縦 sheet.PageSetup.Orientation = xlLandscape // 印刷方向設定 ：横 // ＰＤＦ作成 book.ExportAsFixedFormat(0, outfile, 0, true, false,1 ,999 ,true)

ＷＳＨの起動 ＡＡＡＡ．ｊｓ ネットワーク ＡＡＡＡ．ｊｓ ファイル関連付け ＷＳＨエンジン ■ＰＣローカルの場合、ダブルクリックで起動 ■ネットワークからの場合、ブラウザーを経由し、 　　『ファイルの関連付け』で、ＷＳＨエンジンを起動する ■下のメッセージが出る

ＷＳＨを記述するファイル Ｊｓファイル （￥ｓｃｒｉｐｔを記述） ＷＳＦファイル 　　（￥ｓｃｒｉｐｔを記述） ＷＳＦファイル <?xml version="1.0" encoding="shift_jis"?> <job> <script src="http://www1.axel.ne.jp/iws/js/commonWSF.js"></script> <script> <![CDATA[ 　　（ｓｃｒｉｐｔを記述） ]]> </script> </job> ■ＷＳＦ（WindowsScriptFile)は、複数の処理を記述できる ■外部のscriptを呼び込むことも可能

i－webでWSFを処理 ソースファイル http://・・/iweb/WSH005.WSF IWGPL/QHTM WSH005 <?xml version="1.0“> <job> <script src=“・・・”> <script> <![CDATA[ 　　（ｓｃｒｉｐｔを記述） ]]> </script> </job> WSHエンジン WSF005に記述された PCの処理を実行

WSFサンプル・その１ Excelを作成 Excel作成 http://・・・・/iweb/WSF005.WSF ＷＳＦ １．新規ExcelをOpen ２．タイトル・セル枠などを設定 ３．データを書き出し

WSFサンプル・その１－１ Excel作成 http://・・・・/iweb/WSF005.WSF <?xml version="1.0" encoding="shift_jis"?> <job> <script src="http://www1.axel.ne.jp/iws/js/commonWSF.js"></script> <script> <![CDATA[ // Excel 操作 --------------------------------------------------------- var ExcelApp = new ActiveXObject( "Excel.Application" ); // Excel オブジェクトを取得 (Excel の起動 ) ExcelApp.Visible = true; // Excel アプリケーションを表示 var book = ExcelApp.Workbooks.Add(); // 新しいブックを追加 var sheet = book.Worksheets( 1 ); // 1 シート目のシートオブジェクトを取得 //============================================================================= // タイトルの設定 with(sheet.Range("C1","F1")){ Borders(xlEdgeTop ).LineStyle = xlContinuous // 上 Borders(xlEdgeBottom).LineStyle = xlContinuous // 下 Borders(xlEdgeRight ).LineStyle = xlContinuous // 右 Borders(xlEdgeLeft ).LineStyle = xlContinuous 　 // 左 Interior.ColorIndex = 15 // 背景色 ( 灰色） // セル枠の設定 for(var i=3 ; i < 10 ; i++){ for(var j=1 ; j < 10 ; j++){ with( sheet.Cells(i,j)) { Borders(xlEdgeRight ).LineStyle = xlContinuous // 右 Borders(xlEdgeLeft ).LineStyle = xlContinuous // 左 }

WSFサンプル・その１－２ //============================================================================= // 背景色の設定 for(var j=1 ; j < 10 ; j++){ with( sheet.Cells(3,j)) { Interior.ColorIndex = 15 } // 見出しの設定 sheet.Cells(3,1).value = " 商品コード "; sheet.Cells(3,2).value = " 商品名 "; sheet.Cells(3,3).value = " メーカー "; sheet.Cells(3,4).value = " 品種 "; sheet.Cells(3,5).value = " 単価 "; sheet.Cells(3,6).value = " 在庫 "; // データの書き出し data=[ ["13770"," 電動式　鉛筆削り " ," ＰＬＵＳ "," 鉛筆削り ","4194","25" ] , ["15498"," 手動鉛筆削り　ＦＳ－１５０　ブルー "," ＰＬＵＳ "," 鉛筆削り ","998" ,"3" ] , ["20630"," 手動鉛筆削り　ＦＳ－１５０　イエロー "," ＰＬＵＳ "," 鉛筆削り ","998" ,"14" ] ] for(var i=0 ; i < data.length ; i++){ for(var j=0 ; j < data[i].length ; j++){ sheet.Cells(4+i ,1+j).value = data[i][j] 　　 ]]> </script> </job>

WSFサンプル・その２ Excelを作成後、PDF作成 ＷＳＦ １．新規ExcelをOpen ２．タイトル・セル枠などを設定 ３．データを書き出し 　　　---------------------------- ４．ＰＤＦを作成

WSFサンプル・その２－１ Excel作成 http://・・・・/iweb/WSF005A.WSF <?xml version="1.0" encoding="shift_jis"?> <job> <script src="http://www1.axel.ne.jp/iws/js/commonWSF.js"></script> <script> <![CDATA[ // Excel 操作 --------------------------------------------------------- var ExcelApp = new ActiveXObject( "Excel.Application" ); // Excel オブジェクトを取得 (Excel の起動 ) ExcelApp.Visible = true; // Excel アプリケーションを表示 var book = ExcelApp.Workbooks.Add(); // 新しいブックを追加 var sheet = book.Worksheets( 1 ); // 1 シート目のシートオブジェクトを取得 　　　　　　　・ 　　　　【同じ処理】 //============================================================================= // ＰＤＦの作成 outfile="C:\\Users\\ohtsuki\\Desktop\\aaaaa.pdf" sheet.PageSetup.Orientation = xlPortRait // 印刷方向設定 sheet.PageSetup.Orientation = xlLandscape // 印刷方向設定 book.ExportAsFixedFormat(0, outfile, 0, true, false,1 ,999 ,true) // ＰＤＦ作成 ]]> </script> </job>

WSFサンプル・その３ HTMLからExcelを作成 ＷＳＦ <table border=1 style=border-collapse:collapse;> <tr><th class=hdr> 品目 <th class=hdr> 品名 <th class=hdr> メーカー <th class=hdr> 品種 <th class=hdr> 単価 <th class=hdr> 在庫 <tr><td x:str>013770<td> 電動式　鉛筆削り <td> ＰＬＵＳ 　　 <td> 鉛筆削り <td>4194<td>25 <tr><td x:str>015498<td> 手動鉛筆削り　ＦＳ－１５０　ブルー <td> ＰＬＵＳ 　　<td> 鉛筆削り <td>998 <td>3 <tr><td x:str>020630<td> 手動鉛筆削り　ＦＳ－１５０　イエロー <td> ＰＬＵＳ 　　 <td> 鉛筆削り <td>998 <td>14 </table> </html> １．ＷＳＦ内のテキスト文 (resourceData)を 　　変数(htmlData)に読み込む ２．一度ファイル(html.XLS) 　　に書き出す ３．同じファイルをＥｘｃｅｌとして開く

WSFサンプル・その３－１ Excel作成 http://・・・・/iweb/WSF040.WSF <?xml version="1.0" encoding="shift_jis"?> <!-- ************************************************************************ --> <!-- HTML ストリングから、 ﾃｷｽﾄﾌｧｲﾙ を作成し、さらにＥｘｃｅｌとして読み込む --> <job> <?job debug="true"?> <script src="http://www1.axel.ne.jp/iws/js/commonWSF.js"></script> <script> <![CDATA[ //=== ユーザー名の取得 ================================= objNet = WScript.CreateObject("WScript.Network") userName = objNet.UserName //== ユーザー名取得 //=== ＨＴＭＬ (resource) をファイルに書き出し ========= htmlPath = "C:\\Users\\" + userName + "\\Desktop\\html.XLS" //== 出力ファイル名 htmlData = getResource( "resourceData" ) fso = WScript.CreateObject("Scripting.FileSystemObject") //==FileSystemObject を生成 htmlStream=fso.CreateTextFile( htmlPath ) //==TextFile 作成 htmlStream.Write(htmlData) //==HTML を書き出し htmlStream.close() //=== Excel を開く ===================================== var ExcelApp = new ActiveXObject( "Excel.Application" ); // Excel オブジェクトを取得 (Excel の起動 ) ExcelApp.Visible = true; // Excel アプリケーションを表示 var book = ExcelApp.Workbooks.Open( htmlPath ); // 既存のブックを開く ]]> </script>

WSFサンプル・その３－２　 <!--- Ｅｘｃｅｌ作成用ＨＴＭＬ --------------------------------------> <resource id="resourceData"> <![CDATA[ <!--- ここ以降が、Ｅｘｃｅｌとして出力される ----------------------> <html xmlns:x="urn:schemas-microsoft-com:office:excel"> <style> .hdr {background-color:#dddddd;} </style> <table border=1 style=border-collapse:collapse;> <tr><th class=hdr> 品目 <th class=hdr> 品名 <th class=hdr> メーカー <th class=hdr> 品種 <th class=hdr> 単価 <th class=hdr> 在庫 <tr><td x:str>013770<td> 電動式　鉛筆削り <td> ＰＬＵＳ <td> 鉛筆削り <td>4194<td>25 <tr><td x:str>015498<td> 手動鉛筆削り　ＦＳ－１５０　ブルー <td> ＰＬＵＳ <td> 鉛筆削り <td>998 <td>3 <tr><td x:str>020630<td> 手動鉛筆削り　ＦＳ－１５０　イエロー <td> ＰＬＵＳ <td> 鉛筆削り <td>998 <td>14 </table> </html> <!--- ここ以前が、Ｅｘｃｅｌとして出力される ----------------------> ]]> </resource> <!-------------------------------------------------------------------> </job>

WSFサンプル・その4 動的HTMLからExcelを作成 ＷＳＦ １．サーバーからＥｘｃｅｌ用データを 変数(htmlData)に読み込む ２．一度ファイル(html.XLS) 　　に書き出す ３．同じファイルをＥｘｃｅｌとして開く ４．開いたＥｘｃｅｌからＰＤＦ作成 データベース

WSFサンプル・その4－１ Excel作成 http://・・・・/iweb/WSF041.WSF <?xml version="1.0" encoding="shift_jis"?> <!-- ************************************************************************ --> <!-- HTML ストリングから、 ﾃｷｽﾄﾌｧｲﾙ を作成し、さらにＥｘｃｅｌとして読み込む --> <job> <?job debug="true"?> <script src="http://www1.axel.ne.jp/iws/js/commonWSF.js"></script> <script> <![CDATA[ //=== ユーザー名の取得 ================================= objNet = WScript.CreateObject("WScript.Network") userName = objNet.UserName //== ユーザー名取得 //=== ＨＴＭＬをファイルに書き出し ========= htmlPath = "C:\\Users\\" + userName + "\\Desktop\\html.XLS" //== 出力ファイル名 url = "http://www1.axel.ne.jp/iwrpg5/xgetrcds.pgm" + "?USER=AXEL&PWD=XXXX&FILE=WEB5/SYOHIN&FMT=TABLE" htmlData = httpRequest(url) fso = WScript.CreateObject("Scripting.FileSystemObject") //==FileSystemObject を生成 htmlStream=fso.CreateTextFile( htmlPath ) //==TextFile 作成 htmlStream.Write(htmlData) //==HTML を書き出し htmlStream.close()

WSFサンプル・その4－２ Excel作成 http://・・・・/iweb/WSF041.WSF var ExcelApp = new ActiveXObject( "Excel.Application" ); // Excel オブジェクトを取得 (Excel の起動 ExcelApp.Visible = true; // Excel アプリケーションを表示 var book = ExcelApp.Workbooks.Open( htmlPath ); // 既存のブックを開く var sheet = book.Worksheets( 1 ); // 1 シート目のシートオブジェクトを取得 sheet.Range("1:2").Insert() // シート見出し用行挿入 sheet.Cells(1,4).value=" 商品一覧 " // シート見出し設定 sheet.Cells(1,4).Font.Size = "22" // シート見出し文字サイズ //============================================================================= // ＰＤＦの作成 outfile="C:\\Users\\ohtsuki\\Desktop\\aaaaa.pdf" sheet.PageSetup.Orientation = xlPortRait // 印刷方向設定 sheet.PageSetup.Orientation = xlLandscape // 印刷方向設定 book.ExportAsFixedFormat(0, outfile, 0, true, false,1 ,999 ,true) // ＰＤＦ作成 //=== Excel を閉じる =================================== book.Close( false ); // ブックを閉じる ( 保存しない ) ExcelApp.Quit(); // Excel を終了 ExcelApp = null; // オブジェクトを解放 ]]> </script> <!-------------------------------------------------------------------> </job>

STRWEBコマンド ■５２５０画面からURL呼び出し

STRWEBコマンドで、WSFを呼び出し ■５２５０画面からURL呼び出し

WSF活用の例 ■Dosコマンドを実行する ■EｘｃｅｌからＣＳＶファイルを作成する ■ＣＳＶファイルを開き、Ｅｘｃｅｌで保管する ■Ｅｘｃｅｌから、直接アップロード ■ＭＡＣアドレスを取得する ■通常使うプリンターを変更する ■ＩＥを開く ■ペイントを開く ■メールを送信する ■５２５０を操作する

STRWEBコマンドで、GoogleMapを呼び出し ■５２５０画面からURL呼び出し

STRWEBコマンドで、GoogleMapを呼び出し ■５２５０画面からURL呼び出し

株式会社 アクセル