Daten aus Excel Listen auslesen

Hallo alle Miteinander:
Ich konnte mein konkretes Problem hier nirgends finden und hoffe, Ihr könnt mir vielleicht weiter helfen:
Wir haben einen SharePoint Ablagesystem.
In einen Ordner legen Mitarbeiter standardisierte Dateien ab.
Ich will jetzt ein "Mastersheet" erstellen, welches mir die wichtigsten Daten dieser Excel Sheets anzeigt- dieses sollten via VBA Code, durch auslösen einer Schaltfläche im Masterdokument angezogen werden.
Der Code sollte als:
1. Alle Excel Sheets in dem SharePoint Ordner öffnet (Hierfür gibt es im Forum einen Code, der funktioniert bei mir aber nicht)
2. Immer die selber Felder aus jedem geöffneten Excel Sheet auslesen und mir im Masterdokument hinterlegt (Dinge wie: Uhrzeit der Bearbeitung, Priorität....)
3. Alle Excel Sheets aus dem Ordner wieder schließen.
Die auszulesenden Informationen (2) sind hierbei immer im gleichen Feld hinterlegt da die Dokumente standardisiert sind. Das dürfte also nicht das ganz große Problem werden. Ich verstehe nur einfach den Loop nicht, mit dem ich ein Dokument nach dem anderen öffnen kann, die Infos auslesen und alles wieder schließe.
Sollte es noch andere Lösungen geben, um die Infos aus der Ordnerstruktur auszulesen bin ich natürlich ganz Ohr aber soweit ich weiß müssen die Sheets geöffnet sein um das zu machen?!
Ich hoffe ich konnte mein Problem einigermaßen verständlich darstellen ansonsten konkretisiere ich natürlich gerne ;-)
Besten Dank für eure Hilfe vorab und bleibt gesund!
Bene

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub OpenFiles() Const FILE_PATH As String = "C:\Eigene Dateien\" Dim MyFile As String Dim objWorkbook As Workbook Application.ScreenUpdating = False MyFile = Dir$(FILE_PATH & "*.xlsx") Do Until MyFile = "" Set objWorkbook = Workbooks.Open(Filename:=FILE_PATH & MyFile, UpdateLinks:=3) Call objWorkbook.Close(SaveChanges:=True) MyFile = Dir$ Loop Application.ScreenUpdating = True End Sub

Hallo Bene,
1. Du vermischst Sheet (Tabellenblätter = Worksheets) und Arbeitsmappen (Workbooks), denn du willst Mappen öffnen und aus bestimmten Blättern / Zellen Daten auslesen und in dein Dokument übernehmen. Dazu müssen die Blattnamen oder -Index in der geöffneten Mappe, sowie die Zelladressen bekannt sein.
2. Du redest von Sharepoint, postest aber einen Code, der in lokalen Verzeichnis .xlxs-Arbeitsmappen suchst. Für den Zugriff auf Sharepoint muss eine Einstiegsverzeichnis in UNC-Notation (Onedrive) oder eine https-URL vorliegen.
3. Die Fehlerbeschreibung: Funktioniert bei mir leider nicht... ist völlig unbrauchbar, denn was soll einE HelferIn damit anfangen? Er/Sie kann aufgrund deiner Informationen nichts davon Nachstellen und/oder Testen.
4. Dein Codeschnipsel ist ebenso aussagelos, den es öffnet einfach nur Mappen und schliesst sie gleich wieder. Innerhalb des Do-Loops müsste eine weiter Schlaufe (z.b. For Each X in objWorkbook.Worksheets) liegen, in der die Blätter der geöffneten Mappe angesprochen werden und die Daten aus den entsprechen Zellen ausgelesen werden.
Also, bitte liefere genauere Information, wann (Auslöser), wo-was (Einstiegsverzeichnis, Blattnamen, Zelladressen), wohin (Mastermappe) übertragen werden soll!
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Excel Listen auslesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread