Wie kann ich es in Visual-Basic anstellen, dass ich Werte aus einer geschlossenen Excel-Datei lesen kann, ohne eine "Hilfs-Datei" zu benützen?
Hier ein Beispiel, das zeigt, wie ich das meine:
Dim xlApp As Object
Dim wert As Variant
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Add
With xlApp.ActiveWorkbook.ActiveSheet.Range("A10")
.Formula = "='D:\Ordner\[Mappe1.xls]Tabelle1'!K36
wert = .Value
.ClearContents
End With
xlApp.ActiveWorkbook.Close SaveChanges:=False
MsgBox("Gelesen:" & wert)
Im obigen Beispiel wird die Zelle A10 einer Hilfsdatei benutzt, um den Wert quasi zwischenzuspeichern. Gibt es eine Möglichkeit, den Inhalt von K36 direkt in die Variable "wert" zu bekommen, ohne über diese Hilfs-Datei zu gehen?
Ich denke, sowas müsste eigentlich möglich sein. Vielleicht so ähnlich, wie ein Makro in einer geschlossenen Excel-Datei ausgeführt werden kann, mit:
xlApp.Application.Run "'D:\Ordner\Mappe1.xls'!Makro1"
Für jede Hilfe vielen Dank zum voraus.
Gruss, Hans