Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus verschiedenen Datein extrahieren

Daten aus verschiedenen Datein extrahieren
Wilhelm
Hallo,
ich bin ein absoluter VBA-Anfänger. Ich habe ein Problem. Ich habe 41 verschiedene Dateien, aus denen ich Daten in einer Datei zusammenfassen möchte. Ich habe mir mal so einen Code im Internet gesucht und den versucht anzuwenden. Ich habe da zunächst nur versucht den Inhalt einer Zelle (Zelle D2) rauszuziehen. Der eigentliche Code wäre dann komplizierter. Aber nicht einmal das einfache klappt. Ich poste hier jetzt mal den Code. Vielleicht fällt dem geübten Auge ja gleich der Fehler auf. Danke schon mal im Voraus.
Wilhelm
Sub SuchSammelTest()
' SuchSammelTest Makro
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
Set wbCodeBook = ThisWorkbook
With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "\\gwdu119.gwdg.de\wilhelm.kluemper\_STUDsys\Desktop\sammeltrans-rename-   _
_
_
_
test"
.FileType = msoFileTypeAllFiles
'Optional filter with wildcard
'.Filename = "Book*.xls"
If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount),  _
UpdateLinks:=0)
'DO YOUR CODE HERE
Windows(wbResults).Activate
Sheets("drop-down entries").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("SammelMakro.xlsm").Activate
Sheets("testtest").Select
Range("A1").Select
Selection.End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
wbResults.Close SaveChanges:=False
Next lCount
End If
End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

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

Betreff
Benutzer
Anzeige
Der Code kann in XL2007 nicht klappen
22.01.2011 16:09:48
Reinhard
Hallo Wilhelm,
er beruht auf "Filesearch", das gibt es in XL2007 nicht mehr.
Gruß
Reinhard
AW: Der Code kann in XL2007 nicht klappen
22.01.2011 16:45:47
Wilhelm
Irgendeine Idee, was ich stattdessen machen soll? Ich muss Excel 2007 verwenden wegen der Anzahl der Spalten, die bei Excel 2003 nicht ausreicht.
Gruß
Wilhelm
Googeln,Archivsuche... ;-) owT
22.01.2011 16:54:05
robert
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige