Fehler beim Öffnen einer Datei

Question

Ich versuche, eine Reihe von Dateien aus einem bestimmten Ordner zu öffnen. Aber während ich versuche, eine der Dateien zu öffnen, bekomme ich das beigefügte Anmelde-Pop-up. email signin

Ich weiß nicht, wie die Befreiung von diesem bekommen, weil wir das nicht möchten, dass jemand manuell rückgängig zu machen, auch, bin Cancelling ich die Pop-up ich unten Pop-up

Ich klicke nur Nein/Ja ich bekomme einen Laufzeitfehler.

Die angegebene Datei ist jedoch geöffnet (Daily Testing Inventory-Datei).

Hier ist mein Makro, das ich bisher erreicht:

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 

ich ein Neuling bin so weit wie Excel VBA geht. (Da ich nicht genug Renommee habe, kann nicht alle Bilder posten)

Answer 1

sowie Benachrichtigungen deaktivieren

besser synatx auch

• ein Workbook-Objekt verwenden, um die geöffnete Arbeitsmappe zu halten
• tun Ihr Code
• schließen Sie jede Arbeitsmappe (der folgende Code tut dies ohne zu speichern)
• dann auslösen Ihre nächste Schleife

Code

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

Sie lesen nicht den folgenden Dateinamen. daher ist die Schleife unendlich. Bitte fügen Sie die folgende Zeile über „DoEvents“:

MyFile = Dir()