リンククリックについて 削除
Message#1 2015年1月20日(火)08時29分 From: sky |
度々お世話になります。 リンクをクリックさせる時、anchorにinnerTextで動作させますよね? 多分、あまり使用する事はないかと思うのですが、下記の様に・・・ "vba-ie"をクリックさせるのではなく、セル「Range("A1")」の文字列を代入させる事は出来るのでしょうか? Sub sample() Dim objIE As InternetExplorer 'InternetExplorerでテスト用フォームページを起動 Call ieView(objIE, "http://www.vba-ie.net/code/test.html") '「vba-ie」が入っているリンクをクリック Call linkClick(objIE, "vba-ie") End Sub なぜ、この様な事を?と思われている方も多いかと・・・ 仕事上詳しい名称をだせないので、例えで書かせていただきます。 仕様書をメーカー様と共有しており、車種・タイプを検索させると(Frame1)、該当車種等が一覧で表示されます。(Frame2) その横には年式等が表示されております。 その車種名をクリックすると、PDFにて仕様書が表示されます。(Frame2) Frame2の一覧 +++++++++++++++++++++++++++++++++++++++++ 車種 タイプ 年式 +++++++++++++++++++++++++++++++++++++++++ プリウス アルファ 2001 +++++++++++++++++++++++++++++++++++++++++ プリウス 1990 +++++++++++++++++++++++++++++++++++++++++ ↑ 車種の部分がリンク <a href=http://abc-co.jp/shiyou/prius-a.pdf>プリウス</a> <a href=http://abc-co.jp/shiyou/prius-1990.pdf>プリウス</a> という内容になるので、アンカーからインナーテキストで処理する際、 選択ができず、表記ができません。 これを解決するには、リンクのHTMLを出力リストなどに一覧を掲載して、 Range("A1")に代入し、実行させればという考えなのです。 一日一点ならよいのですが、一日に数十もの点数をこなすで、できればマクロで処理できればと考えています。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。