エクセルの数字を貼り付けたい ウェブ上の窓（？）へ

簡単な質問なのか

難解な質問なのか

自分でも検討がつきませんが教えて下さい。m(ｏ´_｀ｏ)m


エクセルに大量の番号の列があります。例えば

5512585
8545887
8515166
7859541

という風にセルが分かれているのですが、それをWeb上の窓に一気に貼り付けたいのです。

例えばこんな窓です。↓（実際は違います。）
http://boueki.xsrv.jp/etc/mojisuucount/AUmojisuu …

メモ帳に貼り付けタブで区切ってみてもダメでした。（ノд｀＠）

もしわかる方がいらっしゃいましたらお教え頂けましたら大変ありがたいです！！

No.1 ベストアンサー 回答者： xls88 回答日時： 2012/09/02 06:01

VBAでは駄目ですか？

≪参考≫
三流君VBAでIE操作 InternetExplorer.Applicationを操作する
http://www.ken3.org/cgi-bin/group/vba_ie.asp
Excel A列の値(本タイトル)をWebブラウザーにセットする
http://d.hatena.ne.jp/ken3memo/20091102/1257102258

簡単な例を挙げてみます。
IEで提示のURLを開いておいて実行してください。

Dim myWindow As Object
Dim myUrl As String

myUrl = "http://boueki.xsrv.jp/etc/mojisuucount/AUmojisuu …
For Each myWindow In CreateObject("Shell.Application").Windows
With myWindow
If .LocationURL = myUrl Then
.document.getElementById("text1").value = Range("A1").value
.document.getElementById("text2").value = Range("A2").value
.document.getElementById("text3").value = Range("A3").value
.document.getElementById("text4").value = Range("A4").value
.document.getElementById("text5").value = Range("A5").value
Exit For
End If
End With
Next myWindow

この回答へのお礼

うわぁとても詳しくありがとうございます。
やはり簡単なことではなったのですね、、、、汗

しかしながら色々と他の事にも応用が利きそうなのでマクロを勉強してみます！

マクロは使ったことがない初心者ですが、、、。

詳しいご回答感謝いたします！

お礼日時：2012/09/03 10:47