※ ChatGPTを利用し、要約された質問です(原文:EXCEL VBAで URLの内容 が取得できない)
EXCEL VBAでURLの内容を取得できない
このQ&Aのポイント
EXCEL VBAでURLの内容を取得する際、一部のURLで取得ができない場合があります。
特定のURL画面にインプット用の記述があると、内容の取得ができない可能性があります。
解決方法を教えていただけると助かります。(使用環境:Win7 64B EXCEL2010 IE11)
EXCEL VBAで URLの内容 が取得できない
EXCEL VBA で VBAサンプルを参考にして、下記により、URLの内容を得ようとしていますが、できません。 どうも、URL画面の中に インプット用の記述があると、できなくなるのでは、と推測していますが、できるケースもあるようです。解決方法があるようでしたら、教えていただけますでしょうか? (Win7 64B EXCEL2010 IE11です。)'
Sub URL取得TEST()
On Error GoTo Er1
Dim StrUrl As String
StrUrl = InputBox("URLを指定", "URL入力", "http://www3.nhk.or.jp/nhkworld/") ' これは 読み込めます
StrUrl = InputBox("URLを指定", "URL入力", "http://uwl.weblio.jp/") ' これが読み込めません
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.FullScreen = False
objIE.Top = 200
objIE.Left = 100
objIE.Width = 800
objIE.Height = 600
objIE.navigate StrUrl
While (objIE.readyState <> 3 And objIE.readyState <> 4) Or objIE.busy = True
DoEvents
Wend
DoEvents
Workbooks.Add
objIE.ExecWB 17, 0
objIE.ExecWB 12, 0
Sheets.Add
ActiveSheet.name = "Format テキスト"
Range("A1").Select
ActiveSheet.PasteSpecial Format:="テキスト"
objIE.ExecWB 17, 0
objIE.ExecWB 12, 0
Sheets.Add
ActiveSheet.name = "FormatHTML"
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML" '別のURLでテキストOKでこれはだめというケースあり
'
objIE.Quit
Set objIE = Nothing
Exit Sub
'
Er1:
objIE.Quit
Set objIE = Nothing
End Sub
補足
「拡張保護モード」は 無効となっていました。 ほかの方の別方法でも、ある方はダメだったというように、PCの設定等で なにかにより、微妙な支障がでてくるということなのでしょうか ありがとうございました。