Excel VBA質問箱 IV

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

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


24 / 13005 ツリー ←次へ | 前へ→

【79097】リンク(外部)が切れているセルの抽出方法 tt 17/5/9(火) 16:20 質問[未読]

【79115】Re:リンク(外部)が切れているセルの抽出... γ 17/5/13(土) 8:10 回答[未読]
【79116】Re:リンク(外部)が切れているセルの抽出... γ 17/5/13(土) 11:54 発言[未読]
【79117】Re:リンク(外部)が切れているセルの抽出... tt 17/5/15(月) 12:00 お礼[未読]

【79115】Re:リンク(外部)が切れているセルの抽...
回答  γ  - 17/5/13(土) 8:10 -

引用なし
パスワード
   以下のようなものを念頭に置いていました。

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をセットする
方法で対応できるはずです。ネット上にサンプルもあります。

業務でしょうから、こうした場で質問するより、
きちんと内部で対応されることをお勧めします。
組織としてきちんと対応するべき事柄です。
不測のことが起きても、責任は負いかねます。

【79116】Re:リンク(外部)が切れているセルの抽...
発言  γ  - 17/5/13(土) 11:54 -

引用なし
パスワード
   訂正です。
Set ht = CreateObject("Msxml2.ht.6.0")
のところ誤変換されてしまっています。

"Msxml2.ht.6.0"の htのところを
アルファベットで エイチ ティー ティー ピー としてください。

# > 迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
# ということで、ht・・の4文字は入力を受け付けてくれないのです。
# それで変数をhtの二文字にしたのだけど、CreateObjectのところも同時に
# 誤変換してしまった次第。

【79117】Re:リンク(外部)が切れているセルの抽...
お礼  tt  - 17/5/15(月) 12:00 -

引用なし
パスワード
   ▼γ さん:
ご回答ありがとうございます!
ご教示頂いたとおりにやってみます。

結果は改めてご報告させていただきますね!

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