Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Excel 2016)
ステートメントの末尾が不正です
投稿日時: 19/04/01 06:22:48
投稿者: gorby

VBスクリプトの板がないので、ここで質問をさせてください。
 
https://bgp.he.net/AS9228
のURLからtitleタグを取ってきて、文字列分割して、一部の文字を画面に表示するVBスクリプトを作成しましたが、最後の行で”ステートメントの末尾が不正です”というエラーが出ます。どなたかデバグ方法を教えてください!
 
 
 
 
------
Option Explicit
 
Dim objIE
 
Set objIE = CreateObject("InternetExplorer.Application")
'IEを開くかどうか。開くを指定
objIE.Visible = True
 
'当該ページをIEで開く
objIE.navigate "https://bgp.he.net/AS9228"
 
 
'ページが読み込まれるまで待つ
Do While objIE.Busy = True Or objIE.readyState <> 4
WScript.Sleep 100
Loop
 
 
'タイトルを表示
msgbox objIE.document.Title
 
 
Dim s As String
Dim s1 As String
Dim p As String
Dim result as String
 
'タイトルタグを変数に入れる
 
s = objIE.Document.title
s1 = Split(s, "-")(0)
p = InStr(s1, " ")
result = Mid(s1, p + 1)
 
'分割した文字列を画面に表示
 
msgbox result

回答
投稿日時: 19/04/01 08:23:33
投稿者: 半平太

https://jehupc.exblog.jp/15095895/
[old_3流プログラマのメモ書き]

投稿日時: 19/04/01 13:48:05
投稿者: gorby

半平太 さんの引用:
https://jehupc.exblog.jp/15095895/
[old_3流プログラマのメモ書き]

 
解決しました。ありがとうございました。