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

Pfad per VBA auslesen

Forumthread: Pfad per VBA auslesen

Pfad per VBA auslesen
09.07.2015 09:53:19
André
Guten Morgen,
ich habe folgendes Makro im Archiv gefunden, welches auch perfekt funktioniert.
Allerdings möchte ich den Pfad, in dem sich die Dateien befinden nicht im Makro eingeben, sondern mittels Fenster, welches sich öffnet, eingeben bzw. wie im Explorer möglich hinverzweigen. Wäre schön, wenn mir das jemand einbauen könnte.
Vielen Dank vorab und schönen Gruß
André
Sub kopieren()
'Makro zum Öffnen aller Dateien eines Zielverzeichnisses
'Die Daten aus den Dateien Rapporte Tabelle1
'werden in Zieldatei (diese Datei)
'Tabelle1 Spalten A bis H kopiert.
'die Daten jeder Datei werden in eine eigene Zeile geschrieben
' Variablen deklarieren
Dim datei As String
Dim pfad As String
Dim i As Integer
i = 1
' Quellordner wird festgelegt
pfad = "c:\test\"
' Dateien des Quellordners ermitteln
datei = Dir(pfad)
' Schleife, um jede Datei auszulesen
Do While datei  ""
' Datei öffnen (Pfad wird aus den Variablen pfad und datei zusammengesetzt
Workbooks.Open Filename:=pfad & datei
' Zählvariable für die Zeilen (je Datei eine neue Zeile)
i = i + 1
' Cells wird wie folgt verwendet Cells(Zeilennummer, Spaltennummer)
' Wenn das Makro in der Zieldatei steht, kann die Datei ThisWorkbook genannt werden.
' Die erste Zahl in der Klammer zeigt die Zeile, die Spalte die Spalte
ThisWorkbook.Sheets("Tabelle1").Cells(i, 1) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
13, 2)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 2) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
12, 8)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 3) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
10, 8)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 4) = ActiveWorkbook.Sheets("Tabelle1").Cells(9, _
_
19)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 5) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 23)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 6) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 24)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 7) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 25)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 8) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 26)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 9) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 27)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 11) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 28)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 12) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 29)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 13) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 30)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 14) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 31)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 15) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 32)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 16) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 33)
ThisWorkbook.Sheets("Tabelle1").Cells(i, 17) = ActiveWorkbook.Sheets("Tabelle1").Cells(  _
_
51, 34)
'ThisWorkbook.Sheets("Tabelle1").Cells(i, 17) = ActiveWorkbook.Sheets("Tabelle1").Cells( _
_
51, 35)
' Datei schließen, ohne Änderungen zu speichern
ActiveWorkbook.Close savechanges:=False
' neue Datei aus dem Ordner lesen
datei = Dir()
' Ende der Schleife
Loop
End Sub

*******************

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad per VBA auslesen
09.07.2015 10:35:16
JoWE
Hallo André,
diese Funktion in ein Modul: 
Function getFolderName()
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
getFolderName = BrowseDir.items().Item().Path
On Error GoTo 0
End Function
In Deinem Makro ersetzt Du pfad = "c:\test\" durch pfad = getFolderName
Gruß
Jochen

Anzeige
AW: Pfad per VBA auslesen
09.07.2015 10:44:12
André
Hallo Jochen,
meinst Du so?
**************************
' Quellordner wird festgelegt 
Function getFolderName()
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
getFolderName = BrowseDir.items().Item().Path
On Error GoTo 0
End Function

Pfad = getFolderName
******************************
Da bekomm ich immer eine meldung "Fehler beim kompilieren"
Gruß
André

Anzeige
AW: Pfad per VBA auslesen
09.07.2015 11:22:47
JoWE
Hallo André,
vermutlich fehlt jetzt in Pfad der Backslash "\"
Ändere so: pfad = getFolderName & "\"
Gruß
Jochen

AW: Pfad per VBA auslesen
09.07.2015 13:58:13
André
Hallo Jochen,
so sieht das Makro aus, es komtm aber immer "Fehler beim kompilieren"
Hast Du noch eine Idee?
Gruß
André

Sub kopieren()
'Makro zum Öffnen aller Dateien eines Zielverzeichnisses
'Die Daten aus den Dateien Rapporte Tabelle1
'werden in Zieldatei (diese Datei)
'Tabelle1 Spalten A bis H kopiert.
'die Daten jeder Datei werden in eine eigene Zeile geschrieben
' Variablen deklarieren
Dim datei As String
Dim Pfad As String
Dim i As Integer
i = 1
' Quellordner wird festgelegt


Function getFolderName()
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
getFolderName = BrowseDir.items().Item().Path
On Error GoTo 0
End Function



Pfad = getFolderName & "\"

datei = Dir(Pfad)
Anzeige
AW: Pfad per VBA auslesen
09.07.2015 14:15:03
JoWE
eieieiei,
nein!!!
Die Funktion kommt nicht mitten in Dein Makro!!!
Sondern als selbständige Funktion in ein Modul.
Schneide den Teil von Function.. bis End Function unbedingt wieder aus
und füge ihn hinter dein Makro als eigenständigen Teil ein
Function getFolderName()
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
getFolderName = BrowseDir.items().Item().Path
On Error GoTo 0
End Function
die Funktion ist quasi ein eigenes Makro und wird aus Deinem Makro über den Befehl pfad = getFolderName & "\" ausgeführt und gibt dann den Ordnernamen an Dein MAkro zurück.
Viel Erfolg,
Gruß
Jochen

Anzeige
AW: Pfad per VBA auslesen
09.07.2015 14:52:12
André
Tschuldigung ;-(
Aber bin Laie in VBA
Wäre es nicht einfacher du stellst mir das Makro komplett ein, weil, auch wenn ich es ans Ende stelle
kommt "Fehler beim kompilieren".
Gruß
André

AW: Pfad per VBA auslesen
09.07.2015 14:56:55
André
Hallo Jochen
hab es hinbekommen. Man muss einfach mal noch genauer hinsehen.
Danke sehr.
Gruß
André

Anzeige
AW: Pfad per VBA auslesen
09.07.2015 15:21:10
André
Hallo Jochen,
habe 2 Dateien als Text. Die erste bringt Excel ohne Probleme rein, bei der zweiten, kommt die Meldung:
Exception has been thrown by the target of an invocation.
Und im makro hängt er bei:
Workbooks.Open Filename:=Pfad & datei
Dateien sind identisch?
Ich glaube ich gebs auf....
Gruß
André

Anzeige
AW: Pfad per VBA auslesen
09.07.2015 15:36:06
André
Die zweite Datei ist beschädigt, deswegen funzt es nicht...

AW: Pfad per VBA auslesen
09.07.2015 15:36:37
JoWE
Hallo André,
kannst Du die Dateien mal hochladen?
Gruß
Jochen

AW: Pfad per VBA auslesen
10.07.2015 07:00:39
André
Hallo Jochen,
hat sich erledigt. Es funktioniert jetzt, nach mehrmaligen Test.
Danke sehr.
André
Anzeige
;

Forumthreads zu verwandten Themen

VBA Kennwortschutz aufheben & setzen Problem
Andreas

Hallo Herber Fans,
ich habe hier schon im Forum gesucht und auch einen Code gefunden. Es geht um das temporäre Aufheben des VBA Kennwortes im VBA Editor. Das Kennwort in der Beispieldatei ist „test“.
Die Datei wird geöffnet, ein Button wird kreiert. Wenn ich auf diesen Button klicke, er...
03.07.2009 21:26:13
Thread-ID: 1086309
7 Beiträge
Autofilter mit Passwortschutz beim öffnen entferne
Stephan

Guten Tag zusammen,
Ich habe eine Passwortgeschützte Tabelle bei der der Autofilter aktiv ist.
Beim öffnen der Tabelle soll jedoch jeweils der Autofilter entfernt werden und die Tabelle jedoch wieder mit Passwortschutz versehen werden. Dabei soll der Filter bedient werden können. Auch s...
21.10.2014 12:07:45
Thread-ID: 1387734
3 Beiträge
VBA Passwort vergessen
Michel

Hallo zusammen
Ich Dummkopf habe in meiner Excel das VBA Passwort vergessen und komme nun nicht mehr zu dem Code.
Kann mir hier jemand helfen?
Hier wäre noch meine File:
https://www.herber.de/bbs/user/95639.xlsm
Danke vorbau für eure Hilfe
Gruss
Michel
09.02.2015 14:53:16
Thread-ID: 1408201
5 Beiträge
Anzeige
VBAProjekt Passwort vergessen
Chris

Hallo Leute,habe mal vor langer Zeit ein kleines VBAProjekt mit Passwort geschützt.
Jetzt müsste ich das Projekt erweitern und mir fällt das Passwort nicht mehr ein.
Kan mir da jemand Helfen?
Gruß
Chris
20.08.2002 10:52:46
Thread-ID: 150507
3 Beiträge
Anzeige
Kennwort zum Öffnen + Makros aktivieren
Kisska

Hallo allerseits,
wieso werden Makros deaktiviert, wenn man eine Datei mit dem Kennwort zum Öffnen verseht? Kann man dies irgendwie umgehen?
Viele Grüße
Kisska
28.05.2017 17:29:12
Thread-ID: 1560766
6 Beiträge
VBA-Passwort vergessen!
Nadine

Hallo zusammen!

Ich habe vor einiger Zeit ein VBA-Projekt (Add-In) per Passwort geschützt, und habe dieses nun vergessen!

Gibt es irgendeine Möglichkeit, es wiederzufinden? Das Paswort bestand aus einem Wort und Ziffern.
Ich weiß noch...
...das Wort (aber nicht, ob Groß- o...
30.06.2003 13:58:40
Thread-ID: 275418
6 Beiträge
VBA Passwort vergessen
Carsten Kramer
Hallo,
Habe meine Makros und Autotexte in Word geschützt und kann mich nicht mehr an mein Passwort erinnern. Kann mir jemadn helfen wie ich mein Passwort rauskriege? ich habe es bereits mit AVPRo probiert aber es erschein nur " Password unavailable"
Danke.
Carsten
16.11.2003 00:00:32
Thread-ID: 338770
4 Beiträge
Leerzeilen entfernen geht nicht!?
Logan

Hallo nochmal,
Ich hab jetzt noch ein Problem:
Sub LeereZeilenlöschen() Dim Bereich1 As Range Dim Bereich2 As Range Dim Bereich3 As Range Sheets("Tabelle1").Activate Set Bereich1 = Range(Cells(1, 1), _ Cells(ActiveSheet.UsedRange.Rows.Count, 1)) Set Bereich1 = Bereich1.SpecialCells(xlB...
01.01.1970 00:00:00
Thread-ID: 414467
8 Beiträge
Anzeige
VBA_Exceldatei (Passwort vergessen)
René

Hallo
Ich habe ein grosses Problem. Unter der Version MS Office 97 habe ich eine XLA mit Code erstellt. Das ist natürlich schon lange her und jetzt müsste ich den Code neu anpassen unter der Version von Excel 2000.
Jetzt kommt das Porblem. Ich habe eine Einstellung gemacht und ein Pass...
23.12.2004 08:41:02
Thread-ID: 537248
11 Beiträge
Anzeige
VBA Passwort vergessen Hilfe
Mario

Hallo Leute,
ich habe vor ca. 2 Jahren ein wenig in VBA rumprogrammiert. Nun wollte ich die Datei endlich mal überarbeiten, und einige Sachen verbessern. Leider fällt mir das VBA Passwort nicht mehr ein. Kann mir irgendjemand helfen. Ich würde die Datei auch zum entschlüsseln verschicken.
02.02.2005 20:32:38
Thread-ID: 560071
9 Beiträge
VBA Passwort vergessen
Jemp

Hallo alle zusammen
Ich habe mein VBA-Passwort vergessen und gelange nun nicht mehr in meine Macrocodes.
Habe schon gegoogelt und auch hier im Forum gesucht aber leider nichts passendes gefungen.
Kann mir einer helfen
Danke
Jemp
19.01.2006 11:47:22
Thread-ID: 721294
5 Beiträge
VBA Passwort wird beim Öffnen abgefragt
Christian

Hallo Community,
ich verwende eine Exceldatei mit einem passwortgeschützten VBA-Code. Nachdem ich ein paar Kleinigkeiten in der Datei verändert habe, erscheint bei einem Kollegen beim Öffnen der Datei eine Dialogbox, in der er aufgefordert wird, das VBA-Passwort einzugeben. In der Arbeitsma...
20.01.2021 10:37:07
Thread-ID: 1806955
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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