Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8347 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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先が存在するか？」という機能まで同時に実現できました。
本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8347 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free