Option Explicit
Private Function GetValue(pfad, Datei, blatt, zelle)
Dim arg As String
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
If Dir(pfad & Datei) = "" Then
GetValue = "Wochenende"
Exit Function
End If
arg = "'" & pfad & "[" & Datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
Private Function DateiGeoeffnet(DerPfad As String) As Boolean
On Error Resume Next
Open DerPfad For Binary Access Read Lock Read As #1
Close #1
If Err.Number <> 0 Then
DateiGeoeffnet = True
Err.Clear
End If
End Function
Public Sub TestePfad01()
Dim sPfad As String, pfad As String, Datei As String, blatt As String
sPfad = "C:\01.xlsm"
pfad = "C:\"
Datei = "01.xlsm"
blatt = "Tabelle1"
If Dir$(sPfad) = "" Then
MsgBox "Achtung!" & vbLf & vbLf _
& "Dokument 01 existiert nicht!", vbCritical, "Daten aktualisieren"
ElseIf DateiGeoeffnet(sPfad) Then
MsgBox "Achtung!" & vbLf & vbLf _
& "Die Quelldatei ist geöffnet, daher erfolgt keine Aktualisierung!", vbCritical, "Daten aktualisieren"
Else
ActiveSheet.Range("C6") = GetValue(pfad, Datei, blatt, "N11")
ActiveSheet.Range("D6") = GetValue(pfad, Datei, blatt, "S11")
End If
End Sub