Hallo Doris,
m.E. kann mit dieser schnellsten Methode (EXL4-Makro) nur ein Blattnam eangegeben werden und keine Index-Nummer oder die Angabe des ActvieSheet.
Da müsste man anders vorgehen, z.B. mit GetObject die Datei versteckt öffnen und wie gewohnt auswerten. Etwas mehr Aufwand und langsamer aber geht natürlich.
Falls Du aber nur zwei definierte Blätter hast, bleib bei der Methode. Wir fangen das dann in GetValue-MAkro ab.
Ein Vorschlag:
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15 |
|
Private Function GetValue(ByVal sPath As String, ByVal sFile As String, _
ByVal sSheet As String, oTarget As Object) As Variant
' Einen Wert aus einer Datei holen
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
GetValue = ExecuteExcel4Macro("'" & sPath & "[" & sFile & "]" & sSheet & "'!" _
& oTarget.Range("A1").Address(, , xlR1C1))
On Error GoTo ErrorHandler
If IsError(GetValue) Then
GetValue = ExecuteExcel4Macro("'" & sPath & "[" & sFile & "]" & "Feuil1" & "'!" _
& oTarget.Range("A1").Address(, , xlR1C1))
End If
Exit Function
ErrorHandler:
GetValue = CVErr(xlErrRef)
End Function
|
_________
viele Grüße
Karl-Heinz
|