Vba Daten aus geschlossener Mappe kopieren
15.09.2015 14:42:11
hdave
ich bin ziemlich neu in der VBA-Welt und habe ein Problem:
Ich möchte über einen CommandButton Daten aus einer geschlossenen Excel-Datei in die aktive Excel-Datei importieren. Die Datei, aus der mehrere Zellinhalte kopiert werden sollen, soll nachdem man den Button gedrückt hat in einem Dialogfenster ausgewählt werden können.
Für den Aufruf des Dialogfensters habe ich folgenden Sub benutzt:
Application.Dialogs(xlDialogOpen).Show arg1:="H:\"
Mit diesem Öffne ich jedoch die Datei - ich möchte diese jedoch nur zur Weiterverarbeitung "anwählen"!
Das Kopieren der Zellinhalte habe ich wie folgt gelöst:
Private Sub CommandButton4_Click()
Dim strPath As String, strFile As String
strPath = "H:\xxx\yyy\zzz\Import Test"
strFile = "Import_test.xlsm"
Worksheets(1).Range("E15").Value = GetValue(strPath, strFile, "Tabelle1", "A1")
' Worksheets(1).Range("E16").Value = GetValue(strPath, strFile, "Tabelle1", "B2")
Worksheets(1).Range("E17").Value = GetValue(strPath, strFile, "Tabelle1", "C3")
Worksheets(1).Range("E18").Value = GetValue(strPath, strFile, "Tabelle1", "D4")
Worksheets(1).Range("E19").Value = GetValue(strPath, strFile, "Tabelle1", "E5")
Worksheets(1).Range("E20").Value = GetValue(strPath, strFile, "Tabelle1", "F6")
End Sub
Private Function GetValue(ByVal path As String, ByVal file As String, ByVal sheet As String, _
ByVal ref As String) As String
Dim arg As String
arg = "'" & path & "\[" & file & "]" & sheet & "'!" & Range(ref).Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
Beide Subs/Function funktionieren auch unabhängig von einander, jedoch weiß ich nicht wie ich beide verknüpfen soll...
Kann mir da irgendjemand weiterhelfen oder Input geben?
Im Voraus vielen Dank!!!
Anzeige