VBA ファイルの操作に移行できない

Question

前提・実現したいこと

VBAを使用して、IEからＣＳＶファイルを開き、
別のエクセルファイルに転記したいのですが、
CSVを開いた後、エラーになり、処理が止まってしまいます。

発生している問題・エラーメッセージ

実行時エラー9　インデックスが有効範囲にありません

該当のソースコード

#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 SQL2()

   Dim objIE As InternetExplorer
   Dim objInpTxt As HTMLInputTextElement
   Dim objTag As Object
   
  Set objIE = New InternetExplorerMedium
  objIE.Visible = True
  objIE.navigate "http://（社内イントラ）"

  Do While objIE.Busy = True Or objIE.readyState <> 4
    DoEvents
  Loop

   Set objInpTxt = objIE.document.getElementsByName("inp_param")(0)
   objInpTxt.Value = "（社内品番）"
   
  For Each objTag In objIE.document.getElementsByTagName("input")

    If InStr(objTag.outerHTML, "データ抽出") > 0 Then
      objTag.Click

      Do While objIE.Busy = True Or objIE.readyState <> 4
         DoEvents
        Loop
      Exit For
    End If
  Next
  
    For Each objTag In objIE.document.getElementsByTagName("input")

    If InStr(objTag.outerHTML, "ダウンロードCSV") > 0 Then
      objTag.Click
      Exit For
    End If
  Next
  
  
 Sleep 2000
    
  SendKeys "%O", True
  Call numLockOn　　（numlockをonにするだけの為、割愛します。)
          

  Workbooks("result.csv").Activate 　　←ここでエラー
　　...etc
  
End Sub

試したこと

sendkeyを使用せず、IEの通知バーを手動で「開く」ボタンを押した時は...etc以降も問題なく動作するのですが、
sendkeyを使用して、VBAで処理した際には、エラー（インデックスが有効範囲にありません）となってしまい、止まってしまいます。
エラーで停止後、デバッグを押すと、自然とファイルが開かれ、　...etc以降の処理も進むのですが、理由が分かりません。

開くボタンを押す方法かと思い、調べたのですが、sendkey以外で良い方法が見当たりませんでした。

よろしくお願いいたします。

Comments

[meg_]

ファイルを開いている途中で参照していませんか？

[jinoji]

SendKeys のあとで二度寝したらどうでしょう。

[hk3150]

meg_さま
jinojiさま

おはようございます。
ご回答ありがとうございます。

自分もそうかと思い、今しがた試してみました。
二度寝中は「ｾｷｭﾘﾃｨｽｷｬﾝを実行中...」で止まってしまうようです。
sleep時間を長くしたら長くした分だけｾｷｭﾘﾃｨｽｷｬﾝも同じ時間止まってしまい、
結局同じエラーでした。。。

最悪、error処理で「デバッグ」自体もsendkeysを使い、エンターを押してしまえば先へ進めるような
気がしてきました。。。。

Answer 1

sleepだとInternetExplorerのプロセスまで止まってしまうのでしょうか。
doeventsも入れれば止まらなくなるかも。という事で
試してないのでわからないのですが、ちょっと大層ですが
ファイルは自動で開くにしていると思いますので
以下のようにするとどうでしょうか。

Dim tBook As Workbook
Do While True
    For Each tBook In Workbooks
        If tBook.Name = "result.csv" Then
            Exit Do
        End If
    Next
    Sleep 1
    DoEvents
Loop

後は、VBAでcsvを開くとかも選択肢にあるかと思いますがどうなのでしょう

Comments

[hk3150]

xail2222さま、こんにちは。
ご回答いただきまして、ありがとうございます(_ _)
ご教示頂きましたVBAを使用させて頂きました所、ファイルが開かれず、loopしてしまっているようでございました。
本件につきましては、一度保存してしまってから、最新ファイルを読み込み事で解決できました。

またよろしくお願いいたします。

[xail2222]

開きませんでしたか。なるほど。
お手数をかけてすみませんでした。

Answer 2

sleepのところをDo Until Loop　にしてFileSystemobjectでfileのFileExists メソッドでファイルが確認できるまでDoEventsをループしたらどうでしょう？

Comments

[hk3150]

OfficeNonoさま、こんにちは。

ご回答頂きまして、ありがとうございます。
do until loopですね、一度、そのように試してみます(_ _)

また、本件、別の方法で解決しました。
何を思ったのか、同様の内容を二重で登録してしまっておりました。
またよろしくお願いいたします。