Daten importieren(auch schreiben)

Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function

Sub Gehalt()
Dim strSource As String, Variable1 As String
Dim strSource1 As String, Variable2 As String
Dim strSource2 As String, Variable3 As String
strSource = "'H:\xls\[gehalt.xls]Tabelle1'!R7C2"
strSource1 = "'H:\xls\[gehalt.xls]Tabelle1'!R6C2"
strSource2 = "'H:\xls\[gehalt.xls]Tabelle1'!R10C4"
Variable1 = xl4Value(strSource)
Variable2 = xl4Value(strSource1)
Variable3 = xl4Value(strSource2)
MsgBox Variable1
MsgBox Variable2
MsgBox Variable3
End Sub