☆エクセル☆数値にリンクをはりたい！

質問

こんにちは。
行き詰まってしまったのでアドバイスいただけると嬉しいです。

エクセルで商品の在庫を管理する表を作っています。
それぞれの商品には約１０桁の数字が割り当てられています。
バーコードみたいなものです。

まずその数値をエクセルに取り込んで、
それと同時にネット上のあるＨＰでその数値をテキストボックスの中に入れたいのですが
どのようにリンクをはったらいいのでしょうか？
そもそもこういうことは可能なのでしょうか？
現在は、エクセルに入力後、ＩＥでテクストボックスに入力という２度手間でやっています。
タッチパネルのＰＣでこれらの操作をしているので、
コピー・ペーストが結構めんどくさいのです。

ハイパーリンクも色々調べてみたのですが、
力及ばす、ＨＰの表示までしか出来ません。

あまりエクセルに詳しくないので、どの情報が必要なのかそうでないのか、分かりません。
もっと情報が必要な場合は補足いたしますので回答をよろしくお願いいたします。

回答No.1

BLUEPIXY · ベストアンサー

エクセルからマクロでＩＥを立ち上げ指定するテキストボックスに値を入れるということはできます。
例えば、楽天ブックスのＨＰを立ち上げて、アクティブセルの内容を検索ワードとして入力しておくには以下の様にします。
----------------------------------------------------------------
Public Sub SetTextBox()
Dim IE
Dim data

Set IE = CreateObject("InternetExplorer.Application")
data = ActiveCell.Value 'アクティブセルの内容

IE.Navigate "http://books.rakuten.co.jp/RBOOKS/index.html" '楽天ブックス
While IE.busy: DoEvents: Wend
While IE.Document.readyState <> "complete": DoEvents: Wend
IE.Visible = True
IE.Document.getElementsByName("sitem")(3).Value = data
End Sub
----------------------------------------------------------------
質問者の利用しているＨＰの構造がわからないので、なんですが、
＞IE.Navigate "http://books.rakuten.co.jp/RBOOKS/index.html" '楽天ブックス
の所に、質問者の利用しているＨＰのアドレス
値を設定したいテキストボックスが
<input type="text" name="名前" …>
の様になっていたら
IE.Document.getElementsByName("名前")(0).Value = data
の様にします。
数字の０については、サンプルでは３になっていますが、これは同じ名前が４つある時０から数えて４番目（０，１，２，３）という意味です。
名前が１つだけの場合は０にします。

お礼

思ったよりも時間がかかりそうなのでちょっと締め切ります。
回答ありがとうございました。
マクロは奥が深く、やればやるほどおもしろそうだなと思いました。
また機会がありましたらご教授よろしくお願い致します。

補足

早速の回答感謝です。
マクロをいじったことがないので、
今、勉強してやってみています。
追加で質問があったら回答に書かせていただくので
再度チェックしていただけると幸いです。