Sub Data_IN_laden()
Dim folderPath As String
Dim fileName As String
Dim wb As Workbook
folderPath = "\Dies\ist\mein\Pfad\"
If Dir(folderPath, vbDirectory) = "" Then
MsgBox "Folder does not exist: " & folderPath, vbExclamation
Exit Sub
End If
fileName = Dir(folderPath & "*.xlsx")
Do While fileName <> ""
If IsWorkBookOpen(fileName) Then
Set wb = Workbooks(fileName)
wb.Save
wb.Close
Else
Set wb = Workbooks.Open(folderPath & fileName)
<span style="font-size:20px"> ActiveWorkbook.RefreshAll</span>
End If
fileName = Dir
Loop
MsgBox "Alle In-Daten Files geöffnet/gespeichert und geschlossen", vbInformation
End Sub
Function IsWorkBookOpen(fileName As String) As Boolean
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(fileName)
On Error GoTo 0
IsWorkBookOpen = Not wb Is Nothing
End Function