Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

geschlossene xls-Dateien

geschlossene xls-Dateien
26.10.2003 10:05:13
Josef
Hallo,

ich habe folgendes Problem:
Ich will aus allen in einem Ordner abgespeicherten xls-Files den Wert einer oder mehrerer definerter Zellen auslesen und diese untereinander ein ein neues Blatt einfügen. Da die Anzahl der auszulesenden Dateien variieren und auch sehr groß sein kann, wäre es sinnvoll, wenn man die Excel-dateien nicht erst öffnen muß (also aus geschlossenen Dateien den Inhalt auslesen)
Es wäre super, wenn ich hierzu Hilfe erhalten würde.

Grüsse Josef

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geschlossene xls-Dateien
26.10.2003 10:16:40
Hajo_Zi
Hallo Josef

einzelene Zellen kannst Du auslesen, aber ganze Bereiche??

Option Explicit
' von Alf Herber Forum
' https://www.herber.de/forum/archiv/52to56/t52834.htm#52840
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "D:\Eigene Dateien\Hajo\"
f = "Adresse.xls"
s = "Adresse"
r = "B4"
MsgBox GetValue(p, f, s, r)
Worksheets("Tabelle1").Range("A1") = GetValue(p, f, s, r)
End Sub


Private Function GetValue(path, file, sheet, ref)
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'   Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: geschlossene xls-Dateien
28.10.2003 10:14:00
Josef
Hallo Hajo,

vielen Dank für Deine Info.
Hat mir sehr viel weiter geholfen. Die Bereiche bearbeite ich jetzt folgendermassen:

Mit folgendem Syntax kann ich über Schleifen unterschiedliche Zellen beschreiben:
Worksheets("Tabelle1").Range("a1:B50").Cells(i, j) = GetValue(p, f, s, r)
Nach jedem Schreiben aus einer Datei wird diese Datei in ein anderes Verzeichnis
geschoben.

Klappt nun ganz gut. Hab nur noch nicht ausprobiert, welchen Zeitaufwand es bedeutet, wenn sehr viele Daten ausgelesen werden.

Grüsse Josef

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige