|
Hallo liebe Forumuser,
ich möchte gerne Zelleninhalte aus einer geschlossenen Datei in eine andere übertragen. mit einer ExecuteExcel4Makro-Funktion hab ich es auch gut hinbekommen. Allerdings wird es ab nächstes Jahr bei meinem Arbeitgeber nicht mehr erlaubt diese Funktion zu nutzen. Deshalb suche ich eine adäquate Ersatzlösung. Wichtig ist, dass nur der Zellinhalt kopiert wird, es soll kein Link zur geschlossenen Datei entstehen.
Mit der copy-Funktion habe ich es auch schon versucht, leider haben beide Dateien "verbundene Zellen" und das verträgt sich nicht mit der copy-Funktion. Da auch ältere Dateien angesprochen werden, kann ich die verbundenen Zellen nicht auflösen, so wie es in einigen Foren empfohlen wird.
Ich hoffe jemand hat eine brauchbare Idee die nicht zu kompleziert ist.
Hier die besagte Funktion
Function GetValue(pfad, datei, blatt, zelle)
'** Daten aus geschlossener Arbeitsmappe auslesen
'*** Dimensionierung der Variablen
Dim arg As String
'**Sicherstellen, dass die Datei vorhanden ist
If Right(pfad, 1) <> "/" Then pfad = pfad & "/"
If Dir(pfad & datei) = "" Then GetValue = "Datei nicht gefunden" Exit Function
End If
'** Das Argument erstellen
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, , xlR1C1)
'** Auslesen über Excel4Macro
GetValue = ExecuteExcel4Macro(arg)
|