お奨め本の目次を見るだけでも勉強になったり
どうも、三流プログラマーのＫｅｎ３です。 今回は、 IE操作で、フォームにデータセット後、 JavaScriptを起動する、そんな処理を行ってみたいと思います。/* * １．今回のキッカケ */
本を売って、小金を儲けよう、、、そんな不純な心の動きで、 amazon.com と 楽天ブック に 申し込みました。 商品個別リンクがあって、個別の商品リンクを作成できるみたいです。 この、個別リンクの作成にチャレンジしてみたいと思います。 楽天ブックで個別リンクを作るには、 http://books.rakuten.co.jp/afvc/afinfo/page03.html のページに、 紹介したい本のISBN番号 と 自分の広告コード SIDとPIDを入力して 作成ボタンを押すと、作成されます。 ExcelのVBAから、Webブラウザコントロールを使って、データをセットしてみます。/* * ２．動作の仕組みを探る */
http://books.rakuten.co.jp/afvc/afinfo/page03.html のｈｔｍｌを探ると、 form name=parts input type="text" name="isbn" input type="text" name="sid" input type="text" name="pid" となっていて、 ソースの表示ボタンは、 <a href = "JavaScript:parts('A')"> や <a href = "JavaScript:parts('B')"> とjavascriptで処理となってます。 ボタンが押され、 JavaScript:parts('B')処理が走ると、 新規のウインドウに、広告用のソースコードが表示される、 そんな仕組みとなってます。/* * ３．仕様を簡単に書く */
フォームを作成して、ISBN番号、SID,PIDを入力させます。 SID [ ] ← 設定用のシートからデフォルトを表示する PID [ ] ← 設定用のシートからデフォルトを表示する ISBN [ ] ← 目的の番号を入力する 広告 [ ] ← 複数行のテキストボックスを作成して、 ・ 広告用のソースを表示させる ・ [ ] 作成ボタン ボタンが押されたら、 リンク作成ページへ飛び、データをセットして、 リンク作成ボタンを押す(javascriptをVBAから起動) 広告コード用の新規のウインドウが表示される。 そのウインドウから、広告コードを取り出し、 テキストボックスにセットする。 セット完了後、広告作成のweb表示・ブラウザを閉じる。 こんな感じの流れで、 フォームにパラメータセット、 データ送信 サーバー側でコード作成 結果のソースコードを取得 を行ってみたいと思います。/* * ４．問題点、技術確認 */
処理やデータの流れを整理したら、 次は、 予想される問題点を整理します。 技術的に可能か？それとも不可能か？ 仕様を聞いて、不安になった部分は？ありますか？ なんて感じで自分に自問自答しながら、項目をまとめていきます。 仕様書からプログラムを起こす前準備で、 ・イメージが湧き出してすぐにでも作れそうと感じるか、 ・それとも、不安になるか、、、 ここのファーストタッチが重要だと思います。 ※性格的にいつも不安な担当者 や 根拠の無い自信がある担当者も居るんだけど。 今回の処理を私なりにまとめたポイントは、 webのコントロールにデータをセット可能か？ → 過去やったことがある(経験がある自信あるし、ここは大丈夫と答えられる) webのjavascriptをVBAから起動できるのか？ → 過去、ボタンのコントロールに対して、 .Clickメソッドでやったことあるが 指定した関数をパラメータ付きで起動したことは無い ※技術的にできることを早急に確認する webのコントロールから作られたウインドウのデータを取得できるか？ → javascriptでopenされた結果の表示(新規ウインドウ) からデータを取得可能か and 取得方法を調べる など、仕様書(やりたいこと) から 予想される問題点を洗い出します。 あとは、その問題点をまず、簡単なテストでつぶします。 つぶしきれなかったら、仕様を変えてもらうなどの処理が必要です。 よくある話ですが、 夢のような仕様なのか、現実的な仕様なのか作成に入る前に判断します。 不安を先送りにすると、ロクナコト無いですよ。 また、よく掲示板で目にする話なのですが、 ＸＸＸＸはできるのでしょうか？事前調査で知りたい って書き込みかなぁ。これもアリでしょう。 ※実際の問題点やソースを開示しろと言われてる場面も見かけるが。 チョット内容が違うけど、愚痴系のメルマガで、 No.138 アイツが打てたから、オレも打てる。マシンガン打線 http://www.ken3.org/guchi/backno/guchi138.html なんて書いてます、 実現可能な仕様 や 過去に経験者が居ると安心だよね。/* * ５．IE データセット後、JavaScriptを起動する */
楽天ブックのリンク作成ページ http://books.rakuten.co.jp/afvc/afinfo/page03.html ここで、 ＩＳＢＮ番号 と 自分の広告コードのSIDとPIDを入力してボタンを押すと ソースが表示される。 ソースを探ると、 form name=parts フォームの名前はpartsかぁ、 input type="text" name="isbn" input type="text" name="sid" input type="text" name="pid" と入力フォームがなっていて、 a href = "JavaScript:parts('A') a href = "JavaScript:parts('B') ・ ・ a href = "JavaScript:parts('F') a href = "JavaScript:parts('L') a href = "JavaScript:parts('M') a href = "JavaScript:parts('S') とサイズ別にJavaScriptを起動しているみたいです。 そこで、プログラム作成の手順としては、 ExcelUserフォームにISBN,SID,PIDの入力を作成する。 実行ボタンが押されたら、 http://books.rakuten.co.jp/afvc/afinfo/page03.html へ飛び、表示の終了を待ってから、 Webコントロール上のform name=partsのテキストボックスにデータをセットする。 JavaScript:parts('B')を起動させ広告を表示させる。 ※サイズBの広告データを作成します。 テストデータは、 ISBN:4797321296 基礎からのデータベース設計 SID=777777 PID=99999999 をセットして、実行してみます。 サイズBのボタンを探して、.Clickといつもの方法でも良かったのですが、 今回は、JavaScriptの起動方法を探してみました。 IEのJavaScriptの起動方法ですが、 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ? Me.WebBrowser1.Document.scripts(1).scopeName とか、scriptsがスクリプトオブジェクトだから、 これを.RUNとかないかなぁと探ってみましたが、 目的の処理が見つかりませんでした。 チョット違うかもしれないけど、今回は、 画像がクリックされたらのAタグだったので、 'JavaScriptを起動する(リンクで飛ぶように見せかけるの？) Me.WebBrowser1.Navigate2 "JavaScript:parts('B')" とすることで、JavaScriptを起動できたことでした。 なんか意外でした・・・ <a href = "JavaScript:parts('B')">〜 となっているから、それだったら、 .Navigate2 "JavaScript:parts('B')" でOKなのか？って発想でテストしてみました。 現在、下記↓のサンプルは動作しません・・・情報が古くてスミマセン
Private Sub btnRUN_Click()
Dim time10 As Date
'広告作成ページに飛ぶ
Me.WebBrowser1.Navigate2 "http://books.rakuten.co.jp/afvc/afinfo/page03.html"
'2秒表示を強制的に待つ
time10 = DateAdd("s", 2, Now())
Do While True
DoEvents
If time10 < Now() Then Exit Do
Loop
'表示完了を待つ
While Me.WebBrowser1.Busy = True _
Or Me.WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
'データをセットする
Me.WebBrowser1.Document.parts.isbn.Value = Me.txtISBN.Text
Me.WebBrowser1.Document.parts.sid.Value = Me.txtSID
Me.WebBrowser1.Document.parts.pid.Value = Me.txtPID
'JavaScriptを起動する(リンクで飛ぶように見せかけるの？)
Me.WebBrowser1.Navigate2 "JavaScript:parts('B')"
End Sub |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |