Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auslesen von Daten aus geschlossenen Exceldateien

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

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

Betreff
Datum
Anwender
Anzeige
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 !
Anzeige
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

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige