Excel VBA質問箱 IV

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

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


8334 / 13644 ツリー ←次へ | 前へ→

【33951】URLか判断したい ともく 06/1/24(火) 11:39 質問[未読]
【33953】Re:URLか判断したい MARBIN 06/1/24(火) 11:58 発言[未読]
【33954】Re:URLか判断したい MARBIN 06/1/24(火) 12:08 発言[未読]
【33965】Re:URLか判断したい ともく 06/1/24(火) 13:25 お礼[未読]

【33951】URLか判断したい
質問  ともく  - 06/1/24(火) 11:39 -

引用なし
パスワード
   文字列が正しいURLか判断をさせる為、下記の様なソースを書きました。
今は文字列の「最初が"http://"で始まっているか?」だけですが
他にも「半角だけか?」や「スペースを使っていないか?」等があると思います。
この方法でやるととても長いソースになりさらに本当にチェック出来ているか分からないです。
もっと簡単な方法でURLか判断させる方法はありませんでしょうか?


Dim url As String

url = "URLを入れる"

'http('http://')位置取得
httpPosition = InStr(url, "http://")

'URL判断
If httpPosition <> 1 Then
    MsgBox "入力URLが不正です。"
End If

【33953】Re:URLか判断したい
発言  MARBIN  - 06/1/24(火) 11:58 -

引用なし
パスワード
   以前どこかで
WEBを開かせエラーだったら返ってきたエラーメッセージ
で判断する、というのがあったような気がします。

【33954】Re:URLか判断したい
発言  MARBIN  - 06/1/24(火) 12:08 -

引用なし
パスワード
   ↓かもしれません。

http://puremis.net/excel/code/028.shtml

【33965】Re:URLか判断したい
お礼  ともく  - 06/1/24(火) 13:25 -

引用なし
パスワード
   MARBINさんレスありがとうございます。
試してみましたがうまくいきました。
後で調べようと考えていた「URL先が存在するか?」という機能まで同時に実現できました。
本当にありがとうございました。

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