ich hoffe, Ihr könnt mir weiterhelfen:
Ich lese bestimmte Zellwerte einer Datei "Tabelle1.xls" aus und importiere diese in eine andere Datei "Tabelle2.xls".
Private Function GetValue(path, file, sheet, ref)
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub Daten_Einlesen()
Dim p As String
Dim f As String
Dim s As String
p = "F:\Tabellen\"
f = "Tabelle1.xls"
s = "RefDat"
Dim l As Integer
For l = 15 To 75
Wert = GetValue(p, f, s, "DX" & l)
Sheets("RefDat").Cells(l, 128).Value = Wert
Wert = GetValue(p, f, s, "DY" & l)
Sheets("RefDat").Cells(l, 129).Value = Wert
Next
End Sub
Soweit läuft das Makro perfekt. Nun meine bitte. Es kann sein, dass sich die Quelldatei nicht immer in dem selben Verzeichnis befindet. Der Name der Datei und das Laufwerk sind jedoch konstant. Wie kann ich das Makro so umschreiben, dass die Datei an jedem beliebigen Ort auf Laufwerk F:\ sein kann und dennoch ausgelesen wird?
Vielen Dank schon mal im Voraus für Eure Hilfe.
Norman