打开文件时出错

Question

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

我不知道如何摆脱这种情况，因为我们不希望有人手动撤消此操作，而且，我取消弹出窗口弹出窗口

我只点击否/是我收到运行时错误。

但是指定的文件是打开的（每日测试库存文件）。

这是我迄今取得的宏观：

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

您没有阅读下一个文件名。因此循环是无限的。 请在上面添加以下行＆＃34; DoEvents＆＃34;：

MyFile = Dir()

Answer 2

也关闭提醒

更好的synatx

• 使用Workbook对象来保存已打开的工作簿
• 执行您的代码
• 关闭每个工作簿（下面的代码不保存）
• 然后触发你的下一个循环

码

Sub recut()

Dim MyFolder As String
Dim MyFile As String
Dim Wb As Workbook

With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With

MyFolder = "C:\"
MyFile = Dir(MyFolder & "\*.xlsx")
Do While MyFile <> ""
    Set Wb = Workbooks.Open(MyFolder & "\" & MyFile)
'do code
Wb.Close False
MyFile = Dir
Loop


With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With

End Sub