Excel VBA質問箱 IV

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

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


69253 / 76732 ←次へ | 前へ→

【11997】解決
回答  カド E-MAIL  - 04/3/21(日) 7:01 -

引用なし
パスワード
   ja7awuさん という人に以下のように教えていただきました。

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

IEにURLを指定する前にチェックした方が合理的と思います。
「お探しのページが見つかりませんでした」になるまで、ちょっと時間が
かかると思いますので、URLが変わるタイミングの処理も必要かと思います。

もっといい方法があるかも知れませんが、Webクエリを使う方法で如何でしょうか。

例えば、
・ "URL_CHK" という名前のシートを準備します。
・ そのシートに"URL_CHK"というQueryTableを作成し、非表示にします。
 (1回だけWebQeryAdd()を実行すれば、作成されます。)
・ 下記 URL_ADD_CHK()を実行すれば3行目で指定したセルに入力されている
 URLアドレスが、存在するかどうかを表示します。

Sub URL_ADD_CHK()
Dim url As String
url = Worksheets("Sheet1").Range("A1").Value
On Error Resume Next
With Worksheets("URL_CHK").QueryTables("URL_CHK")
  .Connection = "URL;" & url
  .WebSelectionType = xlAllTables
  .WebFormatting = xlWebFormattingAll
  .WebPreFormattedTextToColumns = True
  .WebConsecutiveDelimitersAsOne = True
  .WebSingleBlockTextImport = False
  .WebDisableDateRecognition = False
  .Refresh BackgroundQuery:=False
End With
If Err.Number > 0 Then
    MsgBox "URLアドレスは存在しません。"
Else
  If Not Worksheets("URL_CHK").Cells. _
    Find("お探しのページは見つかりませんでした", _
      lookat:=xlPart) Is Nothing Then
    MsgBox "お探しのページは見つかりませんでした。"
  Else
    MsgBox "見つかりました。" 'ここに見つかった時の処理を記述
  End If
End If
End Sub

'-----------------

Sub WebQeryAdd() 'Webクエリを作成する(1回だけ実行)
Worksheets("URL_CHK").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
  "URL;http://abcd.co.jp", Destination:=Range("A1"))
  .Name = "URL_CHK"
nd With
End Sub

1 hits

【11674】エクセルからインターネットエクスプローラーを開きたい カド 04/3/14(日) 7:00 質問
【11677】Re:エクセルからインターネットエクスプロ... りん 04/3/14(日) 9:20 回答
【11679】Re:エクセルからインターネットエクスプロ... カド 04/3/14(日) 11:36 質問
【11680】Re:エクセルからインターネットエクスプロ... カド 04/3/14(日) 12:04 質問
【11699】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 1:15 回答
【11700】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 1:21 発言
【11709】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 9:50 質問
【11711】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 10:38 発言
【11712】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 10:47 質問
【11748】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 18:53 発言
【11750】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 19:26 質問
【11997】解決 カド 04/3/21(日) 7:01 回答

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