デバッグを実施しましたが実行できません 削除
| Message#1 2016年7月26日(火)05時11分 From: しげじい |
| web内の記述事例を標準モジュール内にmodule１を挿入後、取り込み(コピー貼り付 け)、参照設定変更後 デバッグを実施しましたが実行できません。 それとマクロ名も表示されません。. この講座内には各種事例がありますが,取り込み(コピー貼り付け)する場合どのよう にすれば マクロとして利用可能でしょうか？ (下記がmodule１内に取り込んだ記述です↓) Option Explicit #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) #End If Sub ieCheck(objIE As InternetExplorer) Dim timeOut As Date '完全にページが表示されるまで待機する timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.document.ReadyState <> "complete" DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop End Sub Sub ieView(objIE As InternetExplorer, _ urlName As String, _ Optional viewFlg As Boolean = True, _ Optional ieTop As Integer = 0, _ Optional ieLeft As Integer = 0, _ Optional ieWidth As Integer = 600, _ Optional ieHeight As Integer = 800) 'IE(InternetExplorer)のオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") With objIE 'IE(InternetExplorer)を表示・非表示 .Visible = viewFlg .Top = ieTop 'Y位置 .Left = ieLeft 'X位置 .Width = ieWidth '幅 .Height = ieHeight '高さ '指定したURLのページを表示する .navigate urlName End With 'IE(InternetExplorer)が完全表示されるまで待機 Call ieCheck(objIE) End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
