Ошибка при открытии файла

Question

Я пытаюсь открыть набор файлов из определенной папки. Но, пытаясь открыть один из файлов, я получаю прикрепленное всплывающее окно Sign In. 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

Выключите оповещения, а

лучше 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 

Answer 2

Вы не читаете следующее название файла. следовательно, цикл бесконечен. Пожалуйста, добавьте следующую строку выше «DoEvents»:

MyFile = Dir()