Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel-Dateien auslesen (VBA)

Forumthread: Excel-Dateien auslesen (VBA)

Excel-Dateien auslesen (VBA)
29.05.2005 21:30:19
Gaidin
Hallo,
ich habe folgendes Problem:
Aus verschiedenen, gleich aufgebauten, Exceldateien, die in verschiedenen Unterordnern liegen, möchte ich Daten in eine neue Excel-Datei importieren und die importierten Daten dort untereinander schreiben lassen. Die Einträge in den Original-Tabellen haben immer 5 Spalten, jedoch unterschiedlich viele Fälle (Zeilen).
Hat jemand eine Idee wie ich das am Besten anstelle?
Danke schon einmal im Voraus für die Hilfe.
Gaidin
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Dateien auslesen (VBA)
29.05.2005 21:52:08
Ralf
Hi Gaidin,
Erstelle eine Schleife für die Anzahl der zu öffnenden Dateien. Lege Dir ein paar Variablen für die verschiedenen Dateien an. Die läßt Du dann mit den Pfadangaben füllen. Bsp.:
Pfad = Application.GetOpenFilename("Ecxeldateien (*.xls), *.xls", 1, "Datei wählen", "Öffnen", False)
oder trage die Pfade per Hand ein.
dann wechsle in das betreffende Arbeitsblatt. Mit einer For Each Schleife läßt Du die Bereiche einlesen. Die Zeilenanzahl kannst Du notfalls über eine vorgelagerte Schleife ermitteln lassen. Bsp.:
If activecell = "" then ...
Du kannst danach ein Array mit den Werten füllen. Wechsle dann in Deine neue Datei, in das richtige Arbeitsblatt und lies, wieder über eine Schleife, das Array aus und schreibe die Daten in die neue Tabelle. Ermittle´die letzte Zelladresse und beginne beim nächsten Vorgang dort mit dem Schreiben. Vorgang sooft wiederholen lassen, bis alle alten Dateien ausgelesen wurden.
Da ich bei Dir lese VBA gut, dürfte das für Dich weiter kein Problem sein.
Ciao, Ralf
Anzeige
AW: Excel-Dateien auslesen (VBA)
29.05.2005 22:10:15
Holger
Hi,
deine Antwort könnte glatt aus einem Buch von Bernd Held sein und das ist kein Lob.
mfg Holger
AW: Excel-Dateien auslesen (VBA)
30.05.2005 10:34:07
Gaidin
Hmm,
mein Problem liegt wo anders. Ich habe das Auslesen mit Application.Filesearch gelöst. Was mir eigentlich fehlt ist, dass der auzulesende Range dynamisch ermittelt wird. Ich habe da bisher ohne richtige Lösung dran rumgefuhrwerkt: Hier der Code:
******************************************************

Sub Daten_lesen()
Dim basebook As Workbook
Dim mybook As Workbook
Dim sourceRange As Range
Dim destrange As Range
Dim rnum As Long
Dim i As Long
Dim a As Long
Dim strend As String
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "D:\Daten\"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Set basebook = ThisWorkbook
rnum = 1
For i = 1 To .FoundFiles.Count
Set mybook = Workbooks.Open(.FoundFiles(i))
strend = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Offset(0, 1)
Set sourceRange = mybook.Worksheets(1).Range("A2").End(strend)
With sourceRange
Set destrange = basebook.Worksheets(1).Cells(rnum, 1). _
Resize(.Rows.Count, .Columns.Count)
End With
destrange.Value = sourceRange.Value
mybook.Close
rnum = rnum + a
Next i
End If
End With
Application.ScreenUpdating = True
End Sub

*******************************************************
Das Problem liegt in diesem Bereich:
strend = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Offset(0, 1)
Set sourceRange = mybook.Worksheets(1).Range("A2").End(strend)
Ich finde einfach nicht die letzte Zelle des Ranges.
Weisst du da weiter?
Gaidin
Anzeige
AW: Excel-Dateien auslesen (VBA)
30.05.2005 10:50:13
Ralf
Hi Gaidin,
erste Leerzelle in Spalte A aktivieren:
Dim strend
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
strend = ActiveCell.Offset(1, 0).Address
Range(strend).Activate
Das sollte funktionieren.
Ciao, Ralf
AW: Excel-Dateien auslesen (VBA)
30.05.2005 12:31:24
Holger
Hi,
vielleicht ist dir schon mal augfgefallen, dass Jeder, der sich halbwegs mit Makros auskennt, select und activate verwmeidet? Du gibts hier genau die Tipps, die schlecht sind, aber vom Anfänger nicht durchschaut werden können, blamagel.
mfg Holger
Anzeige
AW: Excel-Dateien auslesen (VBA)
30.05.2005 12:20:12
Holger
Hl,
strend muss als Range deklariert sein.
Set strend = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Offset(0, 1)
If not strend is nothing then
......
End if
mfg Holger
Danke. Hab's, wie folgt gelöst.
30.05.2005 15:21:49
Gaidin
Hallo,
ich habe es mit folgendem Makro gelöst:
***************************************

Sub Daten_lesen()
Dim basebook As Workbook
Dim mybook As Workbook
Dim sourceRange As Range
Dim destrange As Range
Dim rnum As Long
Dim i As Long
Dim a As Long
Dim rngend As String
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "D:\Daten\"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Set basebook = ThisWorkbook
rnum = 1
For i = 1 To .FoundFiles.Count
Application.DisplayAlerts = False
Set mybook = Workbooks.Open(.FoundFiles(i))
rngend = Range("m65536").End(xlUp).Address
Set sourceRange = mybook.Worksheets(1).Range("A2", rngend)
a = sourceRange.Rows.Count
With sourceRange
Set destrange = basebook.Worksheets(1).Cells(rnum, 1). _
Resize(.Rows.Count, .Columns.Count)
End With
destrange.Value = sourceRange.Value
mybook.Close
rnum = rnum + a
Next i
End If
End With
Application.ScreenUpdating = True
End Sub

*******************************************************
Danke an alle Helfer.
Gaidin
Anzeige
;

Forumthreads zu verwandten Themen

vba-Datenexport nach Excel2007 -Array mit 70000 DS
Tim

Hallo,
ich habe einen Datenexport aus einem Programm nach Excel in vba. Das ganze funktioniert soweit ganz gut.
Nun möchte ich jedoch nicht, das sjede Zeile aus meinem Programm exportiert wird, daher gibt es ein Array mit entsprechenden Datensätzen: Entweder eine 1 (steht für Export der...
20.08.2008 08:57:00
Thread-ID: 1003084
2 Beiträge
Anzeige
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Excel: per VBA Kopieren, Quelldatenlöschen
Bolle

Hallo, Ich bin zwar ein alter Sack, aber neu hier.
Meine Frage:
In Spalte C2 bis H100 habe ich Datensätze weche Ich durch Doppelklick auf Zelle
(z.B. C33) die Zeile C bis H nach K5:P5 kopieren möchte. Danach sollten die kopierten
Zellen gelöscht werden. Durch nachrücken der u...
23.08.2008 14:14:40
Thread-ID: 1004109
3 Beiträge
Abgleichen von Daten per VBA
Daten

Hallo Forum,
ich möchte gerne Daten von einem Tabellenblatt (Hilfstabelle) in eine anderes Tabellenblatt (Terminierung) überrtagen. Hierbei soll das Makro schauen, ob der Datensatz schon vorhanden ist.
Wenn ja, dann sollen die Spalten aktualisiert werden.
Wenn nicht, dann sollen...
09.09.2008 10:34:00
Thread-ID: 1008354
5 Beiträge
Vergleich von Daten per VBA
Daten

Hallo Forum,
ich habe gestern nette Hilfe bezüglich eines VBA Problems erhalten.
Bei der Testdatei funktionierte das Makro dann auch prima, in der Originaldatei nicht. Ich habe es angepaßt, weiß aber nun nicht, wo der Fehler in der Syntax liegt.
Problem:
Das Makro verschrei...
10.09.2008 08:48:00
Thread-ID: 1008629
3 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Anzeige
VBA: Erste Seite einer Datei nicht mitdrucken
Jonathan

Hallo zusammen,
ich habe folgendes Problem, welches mittels eines Makros gelöst werden muss:
Ich möchte in eine Datei ein Makro einbauen, welches verhindert, dass die erste Seite mitgedruckt wird.
Das Makro sollte nach dem klick auf die Druckfunktion starten.
Da die Datei späte...
17.04.2009 11:15:57
Thread-ID: 1069277
5 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
VBA-Datenmaske Änderungen speichern
Kay

Hi, habe folgendes Problem und komme einfach nicht weiter und versteh es nicht.
Habe eine Userform, in der einige Daten zu einem Kunden erfasst werden und in einer Tabelle hinterlegt werden. Das läuft super ! Aber nun möchte ich mit einer 2'ten Userform die Daten auch bearbeiten lassen.
...
03.07.2009 09:58:18
Thread-ID: 1086101
3 Beiträge
VBA-Exceldatei unter Excel 2003 und 2007 nutzen
Martin

Hallo,
ich mache mir den Umstieg von Excel 2003 auf 2007 ziemlich schwer, will aber den Anschluss nicht verpassen und daher auf einem PC gerne unter Excel 2007 arbeiten.
Meine Frage: Ich arbeite sehr intensiv mit einer Exceldatei, in der es zahlreiche benutzerdefinierte über VBA erzeugt...
14.07.2009 12:29:24
Thread-ID: 1088399
5 Beiträge
VBA-Datenübernahme schlägt fehl
Sascha

Hallo liebe Excel-Profis,
in einer Datenbank nutze ich zum Auflisten aller gespeicherten Datensätze folgenden VBA-COde:
Private Sub Worksheet_Activate() 'Zielblatt muss immer die höchste Nr. haben! Dim i As Long Dim j As Long On Error GoTo Fehler Application.EnableEvents = False Applica...
12.09.2009 20:02:16
Thread-ID: 1102222
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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