ExcelでGoogleサイトマップ用xmlファイル作成ソフトを作ってみよう

Step 9 進行状況を表示する

ユーザーに実行状況が分かるように作成中のサイトのURLと、OKの付いたサイト数を表示するようにします。

作成中のサイトは「C5」に、作成済みサイト数は「C6」に表示します。


Homeへ > Excelでアプリケーションソフト2 > xmlファイル作成ソフト

実行画面

C5にURLが、C6にOKが付いたサイト数が表示されています。
リンク先一覧を調査するシート

実行VBAコード

'作成開始ボタンをクリック
Private Sub CommandButton1_Click()
    Dim lcoun As Long
    Dim lrow As Long
    Dim lcol As Long
    Dim lok As Long
    
    If TextBox1 = "" Then
        MsgBox "作成するサイトアドレスを入力してください。"
        TextBox1.Activate
        Exit Sub
    End If
    
    'マウスポインターを砂時計に
    Application.Cursor = xlWait
    'IEをオープン
    If ExIeOpen Then
        Range("A10:C65536").ClearContents
        lrow = 10
        lcol = 2
        lok = 0
        lcoun = ExMakeLinkList(LCase(TextBox1), lrow, lcol)
        If lcoun > 0 Then
            lrow = lrow + 1
            While Cells(lrow, lcol) <> "" And lrow < 15
                If ExIeNavigate(Cells(lrow, lcol)) Then
                    Range("C5") = Cells(lrow, lcol)
                    lcoun = ExMakeLinkList(Cells(lrow, lcol), lMaxRow, lcol)
                    '成功すれば「OK」を記入
                    Cells(lrow, lcol - 1) = "OK"
                    lok = lok + 1
                    Range("C6") = lok
                    DoEvents
                Else
                    Beep
                End If
                lrow = lrow + 1
                
            Wend
        
        End If
    End If
    
    'IEを閉じる
    tIEobj.Quit
    Set tIEobj = Nothing
    Application.Cursor = xlNormal
End Sub

Homeへ > Excelでアプリケーションソフト2 > xmlファイル作成ソフト

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


Copyright (c) Excel-Excel ! All rights reserved