Excel VBA質問箱 IV

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

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


59798 / 76738 ←次へ | 前へ→

【21613】Re:webのテキスト文字をexcelに張り付けていくマクロについて
発言  りすりす  - 05/1/24(月) 23:44 -

引用なし
パスワード
   ▼takeshi さん:
>りすりすさん。
>ご親切にありがとうございました。

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

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

表の Hit2 をクリックすると、
上から2番目に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">メニュー1</td>
  </tr>
  <tr>
   <td id="MENU2" onclick="SelectMenu(2);" class="menu" align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap" valign="middle" width="185">メニュー2</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>
0 hits

【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 質問

59798 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free