| |
以下のようなものを念頭に置いていました。
Dim ht As Object
'' url がネット上にあれば Trueを返し、なければ Falseを返す。
Function checkURL(url As String) As Boolean
If ht Is Nothing Then
Set ht = CreateObject("Msxml2.ht.6.0")
End If
ht.Open "HEAD", url, False
ht.send
checkURL = ht.Status = 200
End Function
'テスト検証
Sub test()
Dim url As String
url = "ht tp://www.vbalab.net/img/spacer.gif" ' スペース取る必要あり
Debug.Print checkURL(url)
End Sub
前回うっかり回答コメントをしてしまいましたが、
質問を読み返すと、ECサイトの運用にかかわる方なんでしょうか。
それなら、周りに専門家がいくらでもいるでしょう。
こうした質問などせずに、内部で解決するべきではないですか？
なお、認証への対応が必要なはずで、上記のものでは足りません。
それは承知しています。
もし、Basic認証であれば、
AuthorizationヘッダーにBase64エンコード処理を施したIDやpwdをセットする
方法で対応できるはずです。ネット上にサンプルもあります。
業務でしょうから、こうした場で質問するより、
きちんと内部で対応されることをお勧めします。
組織としてきちんと対応するべき事柄です。
不測のことが起きても、責任は負いかねます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
