Excel VBA質問箱 IV

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

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


45335 / 76732 ←次へ | 前へ→

【36393】Re:新たな質問させてください!
回答  Kein  - 06/3/30(木) 12:50 -

引用なし
パスワード
   とりあえず・・

Dim Ps As Long, Pe As Long
Dim MyHTML As String, GetURL As String
'と、変数の宣言を追加

'中略

MyHTML = objIE.Document.Body.InnerHTML
Ps = InStr(1, MyHTML, "わく") + 15
If Ps = 15 Then
  MsgBox "検索した文字「わく」が見つかりません", 48
  objIE.Quit: Set objIE = Nothing: Exit Sub
End If
Pe = InStr(Ps, MyHTML, "掲示") - 2
GetURL = Mid$(MyHTML, Ps, Pe - Ps)
oblIE.Navigate GetURL

というように、URL部分を切り出して Navigate してみたら、どうかな ?
2 hits

【36370】2個目をクリックする。 よっちゃん 06/3/30(木) 1:18 質問
【36376】Re:2個目をクリックする。 やっちん 06/3/30(木) 8:51 発言
【36378】Re:2個目をクリックする。 よっちゃん 06/3/30(木) 9:30 お礼
【36383】新たな質問させてください! よっちゃん 06/3/30(木) 11:54 質問
【36385】Re:新たな質問させてください! Kein 06/3/30(木) 12:06 発言
【36386】Re:新たな質問させてください! よっちゃん 06/3/30(木) 12:12 質問
【36392】Re:新たな質問させてください! よっちゃん 06/3/30(木) 12:19 質問
【36393】Re:新たな質問させてください! Kein 06/3/30(木) 12:50 回答
【36415】Re:新たな質問させてください! よっちゃん 06/3/30(木) 17:39 質問
【36416】Re:新たな質問させてください! Kein 06/3/30(木) 17:46 発言
【36418】Re:新たな質問させてください! よっちゃん 06/3/30(木) 17:51 お礼

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