当我使用 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
这是屏幕截图:
研究发现:
SendKeys“~”,True