Excelで巡回ソフトを作ってみよう

Step 4 ホームページを表示



Homeに戻る > Excelでアプリケーションソフト > Web巡回ソフト

シート

下記のVBAコードを追加してください。

'URLを開く
Private Function ExIeOpenUrl() As Boolean
    Dim starttim As Single
    
    ExIeOpenUrl = True

On Error GoTo ErrEnd
    tInternetExp.Navigate Range("G" & DoDispRow)
    tInternetExp.Visible = True

    starttim = Timer
    Do
        '完了
        If tInternetExp.ReadyState = 4 Then
            Exit Do
        End If

        If Timer - starttim > 20 Then
            tInternetExp.Stop
            MsgBox "20秒経過しましたがURLをオープンできません。処理を中止します。" & vbCrLf & _
                "URL: " & Range("G" & DoDispRow)
            ExIeOpenUrl = False
            Exit Do
        End If
        DoEvents
    Loop
    Exit Function
ErrEnd:
    ExIeOpenUrl = False
    MsgBox "インターネットエクスプローラーのURLオープンに失敗しました。" & vbCrLf & _
        "URL: " & Range("G" & DoDispRow) & vbCrLf & _
        Err.Description
End Function


下記のVBAコードに変更してください。

'開始ボタン
Private Sub CommandButton1_Click()
    If Range("D12") = "" Then
        MsgBox "巡回間隔を入力してください。"
        Exit Sub
    End If
    If ExNumChek("D12") = False Then
        MsgBox "巡回間隔は1~100の数値を入力してください。"
        Exit Sub
    End If
    
    If Range("D13") = "" Then
        MsgBox "巡回回数を入力してください。"
        Exit Sub
    End If
    If ExNumChek("D13") = False Then
        MsgBox "巡回回数は1~100の数値を入力してください。"
        Exit Sub
    End If

    Range("H2:H101") = ""
    
    '次に表示するURL
    If ExNextDispUrl = False Then
        Exit Sub
    End If

    'IEを開く
    If ExIeOpen = False Then
        Exit Sub
    End If
    
    'URLを開く
    If ExIeOpenUrl = False Then
        Exit Sub
    End If
    
    Set tInternetExp = Nothing
End Sub

メイン画面

指定URLのホームページが開きます
開いたホームページ

Homeに戻る > Excelでアプリケーションソフト > Web巡回ソフト

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved