Home
Blog
Inquire

「住所等の情報の確認・訂正」画面で内容を確認し又は訂正し、次の処理に移ります。

・・・今までに説明した方法で簡単・・・？

・・・簡単ではありませんでした。
マクロはいったん終了しているので、今開いているページを再度取得して処理しなければなりません。
今、開いている『国税庁確定申告書等作成コーナー』を取得する処理・・・ 

　Sub 作成コーナー1()
      Dim objSh, objWin, objIE As Object
      Set objSh = CreateObject("Shell.Application")

       Dim objIE As Object
       Dim htmlDoc As HTMLDocument
       flg = False
       For Each objWin In objSh.Windows
        If objWin.Name = "Internet Explorer" Then
         If InStr(objWin.LocationName, "住所等の情報の確認・訂正") > 0 Then
          Set objIE = objWin
          flg = True
          Exit For
         End If
        End If
       Next objWin
       If flg = False Then
        MsgBox "Not Found !!"
        Exit Sub
       End If
       Set htmlDoc = objIE.document
       Set htmlDoc = Nothing
       Set objIE = Nothing
   End Sub

[補足説明]

    For Each objWin In objSh.Windows
      ・・・
    Next objWin

今、起動しているウィンドウを一つずつ確認。

  InStr(xxx,yyy)

xxx の文字の中に yyy が含まれているかを確認

次へ

©2018KanazawaNoSakai