如何暂停VBA脚本执行，直到下载的.csv文件打开，以允许在两个工作簿之间复制工作表？

Sub PauseScriptUntilCSVOpened()
    ' 下载.csv文件的代码
    
    ' 等待.csv文件打开
    Do Until IsFileOpen("C:\path\to\file.csv")
        DoEvents
    Loop
    
    ' 在两个工作簿之间复制工作表的代码
End Sub

Function IsFileOpen(filename As String) As Boolean
    Dim filenum As Integer, errnum As Integer
    Dim errmsg As String
    
    On Error Resume Next
    filenum = FreeFile()
    Open filename For Input Lock Read As #filenum
    Close filenum
    errnum = Err
    errmsg = Error(errnum)
    On Error GoTo 0
    
    If errnum = 0 Then
        IsFileOpen = False
    Else
        IsFileOpen = InStr(1, errmsg, "Permission denied") = 0
    End If
End Function