Excel VBA質問箱 IV

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

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


46517 / 76735 ←次へ | 前へ→

【35188】Re:Webの検索窓などのデータを含めてテキ...
発言  Kein  - 06/2/23(木) 14:11 -

引用なし
パスワード
   >下のマクロで改良したほうが良い点
とくにありませんが、なぜ処理を二つに分けたのかが分かりません。
もしそのように分割処理する必要があるなら

Public objIE As Object

Sub IECreate()
  Const strURL As String = "http://www.google.co.jp/"

  If Not objIE Is Nothing Then Exit Sub
  Set objIE = CreateObject("InternetExplorer.application")
  objIE.Navigate strURL
  Do While objIE.Busy = True: DoEvents: Loop
  Do While objIE.ReadyState <> 4: DoEvents: Loop
End Sub

Sub SuIE()
  Dim Su As String

  If objIE Is Nothing Then Exit Sub
  Su = objIE.Document.Body.innerHTML
  Call ListMake(Su) 'Suのデータからリストを作る
  'HTMLソースの取得テスト
  'Open "C:\SampleSu.txt" For Output As #1
  'Print #1, Su
  'Close #1
  'ソーステストEnd
End Sub

というようにすれば良いかとおもいます。あくまで個人的なスタイルの問題ですが。

0 hits

【35028】Webの検索窓などのデータを含めてテキス... Dai 06/2/19(日) 16:05 質問
【35029】Re:Webの検索窓などのデータを含めてテキス... かみちゃん 06/2/19(日) 16:17 発言
【35034】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/19(日) 17:48 発言
【35036】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/19(日) 18:46 発言
【35051】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/20(月) 13:10 発言
【35060】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/20(月) 15:19 回答
【35077】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/21(火) 8:23 お礼
【35178】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/23(木) 10:06 お礼
【35188】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/23(木) 14:11 発言
【35192】Re:Webの検索窓などのデータを含めてテキ... Dai 06/2/23(木) 14:50 発言
【35194】Re:Webの検索窓などのデータを含めてテキ... Kein 06/2/23(木) 16:01 発言

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