Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10454 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21599】webのテキスト文字をexcelに張り付けていくマクロについて takeshi 05/1/24(月) 20:07 質問[未読]
【21605】Re:webのテキスト文字をexcelに張り付けて... りすりす 05/1/24(月) 21:27 発言[未読]
【21607】Re:webのテキスト文字をexcelに張り付けて... takeshi 05/1/24(月) 22:08 お礼[未読]
【21613】Re:webのテキスト文字をexcelに張り付けて... りすりす 05/1/24(月) 23:44 発言[未読]
【21681】Re:webのテキスト文字をexcelに張り付けて... takeshi 05/1/26(水) 16:00 お礼[未読]
【21720】Re:webのテキスト文字をexcelに張り付けて... takeshi 05/1/28(金) 0:03 質問[未読]
【21599】webのテキスト文字をexcelに張り付けてい...
質問  takeshi E-MAIL  - 05/1/24(月) 20:07 -
引用なし
パスワード
   たけしと申します。
現在、仕事で、雨量データをwebからコピーして
excelに張り付ける膨大な作業をしています。
web上にある「翌月へ」というボタンをクリックすることで
次画面に移り、そこの雨量データをコピーしてexcelに
コピーする作業を延々としていくといった感じです。
これらをVBAを使用して自動化するのは可能でしょうか。
アドバイスを是非ともよろしくお願いいたします。
【21605】Re:webのテキスト文字をexcelに張り付け...
発言  りすりす  - 05/1/24(月) 21:27 -
引用なし
パスワード
   VBのスクリプトがついているから
システム操作以外ならExcelからいろいろ操作して
ほとんどのことはできちゃうんだな
ただし、努力してVB書く必要があるけどね。

ということで努力さえすれば、読み込みから保存までフルオート可能にゃん。
（中級〜上級プログラムの腕があれば、たいしたことないにゃん）

ということでがんばって　にゃん


あっそうそう、
ページがわかってて、次へを押さなくても
URL知ってればアクセスできるでーただったら
クリックボタンは、非常に非効率にゃん
変数でURL作って
URL直接アクセスするのが普通だにゃん。


らくちんな方法としては
ＶＢ．NETでも買ってデータをExcelに送り込む方が、操作も速度も速いとおもっちゃうけどね。


http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=21572;id=excel
似たような投稿があるから　ここを参考にするといいにゃん。
【21607】Re:webのテキスト文字をexcelに張り付け...
お礼  takeshi E-MAIL  - 05/1/24(月) 22:08 -
引用なし
パスワード
   りすりすさん。
ご親切にありがとうございました。
以下の件参考にさせていただきます。


▼りすりす さん：
>VBのスクリプトがついているから
>システム操作以外ならExcelからいろいろ操作して
>ほとんどのことはできちゃうんだな
>ただし、努力してVB書く必要があるけどね。
>
>ということで努力さえすれば、読み込みから保存までフルオート可能にゃん。
>（中級〜上級プログラムの腕があれば、たいしたことないにゃん）
>
>ということでがんばって　にゃん
>
>
>あっそうそう、
>ページがわかってて、次へを押さなくても
>URL知ってればアクセスできるでーただったら
>クリックボタンは、非常に非効率にゃん
>変数でURL作って
>URL直接アクセスするのが普通だにゃん。
>
>
>らくちんな方法としては
>ＶＢ．NETでも買ってデータをExcelに送り込む方が、操作も速度も速いとおもっちゃうけどね。
>
>
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=21572;id=excel
>似たような投稿があるから　ここを参考にするといいにゃん。
【21613】Re:webのテキスト文字をexcelに張り付け...
発言  りすりす  - 05/1/24(月) 23:44 -
引用なし
パスワード
   ▼takeshi さん：
>りすりすさん。
>ご親切にありがとうございました。

独学ではどこをいじっていいのか結構時間がかかることなので
OLEオブジェクトもJavaScriptも操作はほとんど同じなので
あとは、VBというより、JavaScriptの世界です。

【ヒント】
表の下には、最初の表の中身がコピーされています。

表の　Hit2　をクリックすると、
上から２番目にHTMLの中身が表示されます。

これだけ理解できれば、HTMLからデータ吸い出すのかんたんでしょう。


拡張子をHTMLにして、保存してIEで開くとわかるでしょう。
↓


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
　<title>new_page_1.html</title>
</head>
<body>
<script type="text/javascript">
<!--
　function SelectMenu()
　 {
　　　confirm("Hello World")
　 }
　function TestHit()
　{
　　　MENU1.onclick();
　}

function TestHit2()
{
　document.all.tags("TD")(1).innerText= "";
　Str = document.all.tags("HTML")(0).innerHTML;
　document.all.tags("TD")("MENU2").innerText= Str;
}
　　　　//-->
</script>

<table border="0">
　<tbody>
　　<tr>
　　　<td id="MENU1" onclick="SelectMenu(1);" class="menu" align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap" valign="middle" width="185">メニュー１</td>
　　</tr>
　　<tr>
　　　<td id="MENU2" onclick="SelectMenu(2);" class="menu" align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap" valign="middle" width="185">メニュー２</td>
　　</tr>
　　<tr>
　　　<td top="" onclick="TestHit();" style="background-color: rgb(255, 255, 204); text-align: center;">Hello
World<br>
　　　</td>
　　</tr>
<tr>
<td top="" onclick="TestHit2();" style="background-color: rgb(255, 255, 204); text-align: center;">Hit2<br>
</td>
</tr>
　</tbody>
</table>

<script type="text/javascript">
<!--
document.open();
document.write("<pre>");
for (i = 0; i < document.all.tags("TD").length; i++)
{
　document.writeln(document.all.tags("TD")(i).innerText);
}
document.write("</pre>");
document.close();
// -->
</script>

</body></html>
【21681】Re:webのテキスト文字をexcelに張り付け...
お礼  takeshi  - 05/1/26(水) 16:00 -
引用なし
パスワード
   りすりすさん。
下記情報ありがとうございます。
初心者ですので頑張って作ってみようと思います。


▼りすりす さん：
>▼takeshi さん：
>>りすりすさん。
>>ご親切にありがとうございました。
>
>独学ではどこをいじっていいのか結構時間がかかることなので
>OLEオブジェクトもJavaScriptも操作はほとんど同じなので
>あとは、VBというより、JavaScriptの世界です。
>
>【ヒント】
>表の下には、最初の表の中身がコピーされています。
>
>表の　Hit2　をクリックすると、
>上から２番目にHTMLの中身が表示されます。
>
>これだけ理解できれば、HTMLからデータ吸い出すのかんたんでしょう。
>
>
>拡張子をHTMLにして、保存してIEで開くとわかるでしょう。
>↓
>
>
><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
><html><head>
>　<title>new_page_1.html</title>
></head>
><body>
><script type="text/javascript">
><!--
>　function SelectMenu()
>　 {
>　　　confirm("Hello World")
>　 }
>　function TestHit()
>　{
>　　　MENU1.onclick();
>　}
>
> function TestHit2()
>{
>　document.all.tags("TD")(1).innerText= "";
>　Str = document.all.tags("HTML")(0).innerHTML;
>　document.all.tags("TD")("MENU2").innerText= Str;
>}
>　　　　//-->
></script>
>
><table border="0">
>　<tbody>
>　　<tr>
>　　　<td id="MENU1" onclick="SelectMenu(1);" class="menu" align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap" valign="middle" width="185">メニュー１</td>
>　　</tr>
>　　<tr>
>　　　<td id="MENU2" onclick="SelectMenu(2);" class="menu" align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap" valign="middle" width="185">メニュー２</td>
>　　</tr>
>　　<tr>
>　　　<td top="" onclick="TestHit();" style="background-color: rgb(255, 255, 204); text-align: center;">Hello
>World<br>
>　　　</td>
>　　</tr>
> <tr>
><td top="" onclick="TestHit2();" style="background-color: rgb(255, 255, 204); text-align: center;">Hit2<br>
></td>
></tr>
>　</tbody>
></table>
>
><script type="text/javascript">
><!--
> document.open();
> document.write("<pre>");
> for (i = 0; i < document.all.tags("TD").length; i++)
> {
>　document.writeln(document.all.tags("TD")(i).innerText);
> }
> document.write("</pre>");
> document.close();
>// -->
></script>
>
></body></html>
【21720】Re:webのテキスト文字をexcelに張り付け...
質問  takeshi E-MAIL  - 05/1/28(金) 0:03 -
引用なし
パスワード
   りすりすさん。
こんばんは。
この問題ですが、どこから手をつけていいのか
検討もつきません。
基本から勉強しなければならないと思うのですが。。
いただいたサンプルをexcelにとりこんで、該当するホームページは
開けるのですが。。
その後、画面に存在するボックスから
参照したい年を選んで、「次へ」を押すと、別のwindowが
開き、雨量データが表示されます。
そのデータをコピペーしてexcelに落としています。
この作業を自動で行うにはどのようにすればよろしいでしょうか。
正直いいまして、VB、javascriptの基本も知らないのです。
情けないお話ですが、そのようなソースのサンプルをいただければと思います。
よろしくお願いします。


▼takeshi さん：
>りすりすさん。
>下記情報ありがとうございます。
>初心者ですので頑張って作ってみようと思います。
>
>
>▼りすりす さん：
>>▼takeshi さん：
>>>りすりすさん。
>>>ご親切にありがとうございました。
>>
>>独学ではどこをいじっていいのか結構時間がかかることなので
>>OLEオブジェクトもJavaScriptも操作はほとんど同じなので
>>あとは、VBというより、JavaScriptの世界です。
>>
>>【ヒント】
>>表の下には、最初の表の中身がコピーされています。
>>
>>表の　Hit2　をクリックすると、
>>上から２番目にHTMLの中身が表示されます。
>>
>>これだけ理解できれば、HTMLからデータ吸い出すのかんたんでしょう。
>>
>>
>>拡張子をHTMLにして、保存してIEで開くとわかるでしょう。
>>↓
>>
>>
>><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
>><html><head>
>>　<title>new_page_1.html</title>
>></head>
>><body>
>><script type="text/javascript">
>><!--
>>　function SelectMenu()
>>　 {
>>　　　confirm("Hello World")
>>　 }
>>　function TestHit()
>>　{
>>　　　MENU1.onclick();
>>　}
>>
>> function TestHit2()
>>{
>>　document.all.tags("TD")(1).innerText= "";
>>　Str = document.all.tags("HTML")(0).innerHTML;
>>　document.all.tags("TD")("MENU2").innerText= Str;
>>}
>>　　　　//-->
>></script>
>>
>><table border="0">
>>　<tbody>
>>　　<tr>
>>　　　<td id="MENU1" onclick="SelectMenu(1);" class="menu" align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap" valign="middle" width="185">メニュー１</td>
>>　　</tr>
>>　　<tr>
>>　　　<td id="MENU2" onclick="SelectMenu(2);" class="menu" align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap" valign="middle" width="185">メニュー２</td>
>>　　</tr>
>>　　<tr>
>>　　　<td top="" onclick="TestHit();" style="background-color: rgb(255, 255, 204); text-align: center;">Hello
>>World<br>
>>　　　</td>
>>　　</tr>
>> <tr>
>><td top="" onclick="TestHit2();" style="background-color: rgb(255, 255, 204); text-align: center;">Hit2<br>
>></td>
>></tr>
>>　</tbody>
>></table>
>>
>><script type="text/javascript">
>><!--
>> document.open();
>> document.write("<pre>");
>> for (i = 0; i < document.all.tags("TD").length; i++)
>> {
>>　document.writeln(document.all.tags("TD")(i).innerText);
>> }
>> document.write("</pre>");
>> document.close();
>>// -->
>></script>
>>
>></body></html>
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10454 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free