Excel VBA質問箱 IV

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

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


46640 / 76732 ←次へ | 前へ→

【35060】Re:Webの検索窓などのデータを含めてテキ...
回答  Kein  - 06/2/20(月) 15:19 -

引用なし
パスワード
   >文字コードが"EUC"の為、文字化けしてしまいます。
Shift-JIS等へ変換するソフトは、↓にあります。
http://www.vector.co.jp/vpack/filearea/win95/util/text/conv/code/index.html
なおこちらにはBASP21コンポーネントがインストールされているので、Kconvメソッドで
変換テストをしてみましたが、それはうまくいきませんでした。
>"山田" "太郎" をStringとして取り込みたいです。
ということなら

Sub Get_MyHTML()
  Dim oHttp As Object
  Dim HtSt As String, Nm As String
  Dim x As Long, y As Long
  Const URL As String = "http://xxxxxxxx"
 
  Set oHttp = CreateObject("Microsoft.XMLHTTP")
  oHttp.Open "GET", URL, False
  oHttp.Send
  HtSt = oHttp.ResponseText
  x = InStr(1, HtSt, "value=")
  If x = 0 Then
   MsgBox "検索値が見つかりません", 48: GoTo ELine
  End If
  x = x + 7: y = InStr(x, HtSt, """")
  Nm = Mid$(HtSt, x, y - x)
  x = InStr(y, HtSt, "value=")
  x = x + 7: y = InStr(x, HtSt, """")
  Nm = Nm & Mid$(HtSt, x, y - x)
  MsgBox Nm
ELine:
  Set oHttp = Nothing
End Sub

というようにして、HTMLソースから目的の文字列を切り出すことができる
と思います。
8 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 発言

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