Auslesen von Daten aus geschlossenen Exceldateien

Forumthread: Auslesen von Daten aus geschlossenen Exceldateien

02.02.2005 09:34:40

Daten

Meine Anfrage lautet, wie ich Daten aus einer anderen Excel-Datei auslesen kann, ohne diese zu öffnen.
Im Prinzip möchte ich in einer geöffneten Exceldatei Daten dieser Datei mit Daten in einer anderen Datei addieren, ohne jene andere Datei öffnen zu müssen.
Das ganze würde ich in VBA programmieren.
Vielen Dank für jeden Hinweis - liebe Grüße aus Wien

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auslesen von Daten aus geschlossenen Exceldateien

Daten

Hi Stefan,
In der Recherche zu diesem Forum gibt es viele Beispiele hierzu.
(werte aus arbeitsmappen)
z.B. hier:
https://www.herber.de/mailing/041698h.htm
https://www.herber.de/mailing/244804h.htm
Jan

AW: Auslesen von Daten aus geschlossenen Exceldateien

Daten

Hallo Stefan,
hier mal etwas Beispiel-Code:
1.) xl4-Makro (benutzerdefinierte Funktion mit zugehörigem Makro)
("R3C2" bedeutet Row/Zeile 3, Column/Spalte 2; dies entspricht der Zelladresse "B3")


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


Sub AuslesenGeschlDatei1()
Dim strSource As String
strSource = "'C:\TEMP\TRALALA\[Datei.xls]Blattname'!R3C2"
Range("B9").Value = xl4Value(strSource)
End Sub

2.) xl4-Makro (Makro ohne benutzerdefinierte Funktion)


Sub AuslesenGeschlDateiB()
Dim strSource As String
strSource = "'C:\TEMP\TRALALA\[Datei.xls]Blattname'!R3C2"
Range("B9").Value = ExecuteExcel4Macro(strSource)
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

AW: Auslesen von Daten aus geschlossenen Exceldateien

Daten

Hallo Stefan,
dieser Code liest Daten der Mappe1/Tabelle1/A1:E100,
die Mappe muss im gleichen Verzeichnis sein.
Gruss Beni


Sub Daten_aus_ungeöffneter_Datei1()
Dim sFile, sPath As String
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "Mappe1.xls"
sPath = ThisWorkbook.Path & "\"
With Sheets(1)
Application.ScreenUpdating = False
Application.StatusBar = "Daten werden inportiert. Bitte warten..."
Range(Cells(1, 1), Cells(100, 5)).Formula = "='" & sPath & "[" & sFile & "]Tabelle1'!A1:e100"
Set rng = Range(.Cells(1, 1), .Cells(100, 5))
rng.Cells(1).Copy rng
rng.Value = rng.Value
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Auslesen von Daten aus geschlossenen Exceldateien

Forumthread: Auslesen von Daten aus geschlossenen Exceldateien

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Auslesen von Daten aus geschlossenen Exceldateien

Forumthread: Auslesen von Daten aus geschlossenen Exceldateien

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread