Listbox von geschlossener Mappe füllen
12.03.2005 09:14:18
geschlossener
hab in der Recherche folgenden Code gefunden zum auslesen einer geschlossener
Mappe, funktioniert auch, nur hier in dem Beispiel wird der Inhalt der Gschlossenen Mappe in die Geöffnete Mappe eingefügt.
Ich möchte das aus der geschlossenen Mappe die Daten in Spalte A bis C in eine Listbox auf einer UF eingelesen werden,
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 TestGetValue()
Dim p$, f$, s$, a$, z!, s1%
p = "D:\Eigene Dateien\Fremde Tabellen\"
f = "Einsatzplanung.xls"
s = "kunden"
If Dir(p & f) = "" Then
MsgBox "Datei nicht gefunden"
Exit Sub
End If
Application.ScreenUpdating = False
For s1 = 65 To 90
For z = 1 To 200
a = a & Chr(s1) & CStr(z)
Range(a) = GetValue(p, f, s, a)
a = ""
Next z
Next s1
End Sub
Ich hoffe mir kann jemand von euch weiterhelfen, bedanke mich schon mal für eure Hilfe