VBA Как нажать Enter, пока excel ожидает действий пользователя - PullRequest
Новая
       36

VBA Как нажать Enter, пока excel ожидает действий пользователя

4 голосов
/ 15 октября 2019

Когда я сохраняю свой файл Excel с VBA, он просит меня ввести свои учетные данные (он сохраняет их на каком-то сервере). Просматривая веб-сайт, я нашел способ использовать SendKeys и отложить действие.

Моя проблема: код останавливается и ждет ввода пользователя (нажмите ввод), и я не могу найти способ начать следующую строку кода (на самом деле это действие нажатия 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

И вотснимок экрана:

enter image description here

...