Ich möchte aus einer geschlossenen Arbeitsmappe die Daten vom Arbeitsblatt "ABSCHNITTE" in einer geöffneten Arbeitsmappe in ein Tabellenblatt mit dem Namen "ABSCHNITTE" mittels VBA kopieren.
würde es hier bitte eine Lösung dafür geben?
Danke
Josef
Private Function GetValue(path, file, sheet, ref)
' Retrieves a value from a closed workbook
Dim arg As String
' Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' bennanter Bereich ergänzung von Nikhil Milo
' arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref
' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function