AW: ? Werte aus eine Excel DAtei rauslesen
K.Rola
Hallo,
das geht dann nur über den harten aber steinigen Weg mit Excel 4- Makros,
wenn die Mappe unbedingt geschlossen bleiben muss.
Pfad, Dateinamen und Tabelle musst du natürlich anpassen:
Option Explicit
Function xl4Value(varParam) As Variant
xl4Value = ExecuteExcel4Macro(varParam)
End Function
Sub Testwert()
Const strPath As String = "C:\Eigene Dateien\"
Const strWB As String = "DeineMappe.xls"
Const strSh As String = "DeineTabelle"
Dim varValue As Variant, strSource As String
If Dir(strPath,16) = "" Then
MsgBox "Der Pfad: " & Chr(10) & strPath & Chr(10) & _
"wurde nicht gefunden! ", 64, "weise hin..."
Exit Sub
End If
If Dir(strPath & strWB) = "" Then
MsgBox "Die Datei: " & Chr(10) & strWB & Chr(10) & _
"wurde nicht gefunden! ", 64, "weise hin..."
Exit Sub
End If
strSource = "'" & strPath & "[" & strWB & "]" & strSh & "'!R1C1"
varValue = xl4Value(strSource)
MsgBox varValue
End Sub
Gruß K.Rola