excel - 打开文件时出错

Question

我正在尝试从特定文件夹打开一组文件。但是在尝试打开其中一个文件时，我收到了附加的登录弹出窗口。
email signin

我不知道如何摆脱它，因为我们不希望有人手动撤消它，而且，我正在取消弹出窗口下方的弹出窗口



我只需单击否/是我得到一个运行时错误。

但是指定的文件是打开的(Daily Testing Inventory 文件)。

这是我到目前为止实现的宏:

Dim MyFolder As String
Dim MyFile As String

Application.ScreenUpdating = False
Application.EnableEvents = False


MyFolder = "C:\"
MyFile = Dir(MyFolder & "\*.xlsx")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "\" & MyFile
DoEvents
Loop

就 Excel VBA 而言，我是新手。 (由于我没有足够的声誉无法发布所有图像)

Answer 1

您没有读取下一个文件名。因此循环是无限的。
请在“DoEvents”上方添加以下行:

MyFile = Dir()