mit untenstehendem Code kann ich ein Feld aus einer geschlossenen Datei auslesen und eintragen.
Ich schaffe es aber nicht, mehrere Werte (A1:A15) zu übertragen bzw. bräuchte ich die Anzahl der befüllten Felder A1:A15 in einer Variable zum weiterrechnen.
Könnt Ihr mir dabei vielleicht helfen?
Danke & Grüße aus Wien, Stephan
Sub TestGetValue()
Dim a As String
Dim b As String
Dim c As String
Dim d As String
a = "C:\Dokumente und Einstellungen\priv"
b = "test.xls"
c = "Tabelle2"
d = "B5"
Worksheets("Tabelle1").Range("A1") = GetValue(a, b, c, d)
End Sub
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(, , xlUp)
GetValue = ExecuteExcel4Macro(arg)
End Function