Excel 等待用户操作时如何单击 Enter？

Question

当我使用 VBA 保存 Excel 文件时，它要求我输入我的凭据（它将其保存在某种服务器上）。通过查看网站，我找到了一种使用

SendKeys

并延迟操作的方法。

我的问题：
代码停止并等待用户输入（Enter），我找不到启动下一行代码的方法（这实际上是按下Enter的动作...）

我的代码：
这是我需要帮助的具体部分：

.SaveAs Filename:="Y:\Must\Must Chart Management.csv", FileFormat:=xlCSV, Local:=True
Application.Wait (Now + TimeValue("0:00:05"))
SendKeys ("{ENTER}")

以下是全部内容：

Sub UpdateMust2020()
    
Application.DisplayAlerts = False
KillFile = "B:\Must\Must Chart Management.csv"

With ActiveWorkbook
    
    Worksheets("Must Chart Management").Activate
        .SaveAs Filename:="Y:\Must\Must Chart Management.csv", FileFormat:=xlCSV, Local:=True
        Application.Wait (Now + TimeValue("0:00:05"))
        SendKeys ("{ENTER}")
        .SaveAs Filename:="E:\users\Must Definition Dashboard\Convergence\Must Chart Management.csv", FileFormat:=xlCSV, Local:=True
        
    Worksheets("MasterQuery").Activate
        .SaveAs Filename:="Y:\Must\Must Statistics Charts.csv", FileFormat:=xlCSV, Local:=True
        .SaveAs Filename:="E:\users\Must Definition Dashboard\Convergence\Must Statistics Charts.csv", FileFormat:=xlCSV, Local:=True
        
    Worksheets("Csv").Activate
        .SaveAs Filename:="Y:\Must\MustWin2020-template.csv", FileFormat:=xlCSV, Local:=True
        .SaveAs Filename:="E:\users\Must Definition Dashboard\Convergence\MustWin2020-template.csv", FileFormat:=xlCSV, Local:=True
        
    Worksheets("Csv for One Industry ALL VIEW").Activate
        .SaveAs Filename:="Y:\Must\Csv for One Industry ALL VIEW.csv", FileFormat:=xlCSV, Local:=True
        .SaveAs Filename:="E:\users\Must Definition Dashboard\Convergence\Csv for One Industry ALL VIEW.csv", FileFormat:=xlCSV, Local:=True
        .Close False
    
    End With
    Application.DisplayAlerts = True
    
End Sub

这是屏幕截图：

Answer 1

研究发现：

SendKeys“~”，True