Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
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
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus Excel in Ordner exportieren

Daten aus Excel in Ordner exportieren
20.04.2021 15:18:48
DKing158
Hallo, folgendes Problem:
ich versuche aus einer Excelliste, die Dateien aus dem Exelblatt in eine Ordnersturktur zu exportieren. Folgende Coe verwende ich:

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r
Kann mir einer sagen, warum er mir bei "If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then" Fehler 52 ausspuckt.... weil im Prinzip sage ich damit nur dass er in dem ordner, da wo die Excel liegt die Ordner abspeichern soll

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Excel in Ordner exportieren
20.04.2021 18:37:54
Oberschlumpf
Hi,
zuerst mal:
mit Len(...) wird die Anzahl Zeichen eines Ausdrucks zurückgegeben.
z Bsp ergibt LEN("Anna") = 4, weil das Wort "Anna" 4 Zeichen enthält.
dann:
bei deiner Prüfung If Len(Dir(Activ... wird als Ergebnis niemals 0 rauskommen, weil ActiveWorkbook.Path - immer - einen Eintrag hat, nämlich den Speicherpfad der Datei, in der dein Code ausgeführt wird.
Ist z Bsp der Pfad = "D:\datei.xlsm", dann ist allein nur ActiveWorkbook.Path = "D:", und somit wäre LEN(ActiveWorkbook.Path) immer = mindestens 2 und niemals 0.
Und Fehler 52 gibt wahrsch. einen Fehler wegen falscher Dateiname oder so was aus, oder? (sorry, hier rate ich nur, weil ich die Fehlertexte zu den Fehlernummern natürlich nicht auswendig kenne)
Wenn ich recht habe mit dem Fehlertext, dann prüft deine Do/While-Schleife gerade eine Zelle, in der nix drin steht - somit kann auch kein Dateiname überprüft werden, weil eben an der Stelle kein Dateiname in der Tabelle vorhanden ist.
Und deine Aussage: "weil im Prinzip sage ich damit nur dass er in dem ordner, da wo die Excel liegt die Ordner abspeichern soll" ist auch falsch.
Du "sagst" mit deinem Code nämlich: "wenn Anzahlzeichenvon(Dir(ActiveWork...) = 0, dann...
Na ja, insgesamt verstehe ich nicht, was du erreichen willst, weil dein Code und das, was du dazu schreibst, passt nicht wirklich immer zusammen.
Vielleicht könntest du ja per Upload eine Bsp-Datei mit Bsp-Daten zeigen, mit denen genau der gleiche Fehler passiert.
Ciao
Thorsten
Anzeige
AW: Daten aus Excel in Ordner exportieren
20.04.2021 21:56:51
Luschi
Hallo DKing158,
in der Zelle Rng(r, c) steht eine Pfadangabe, die Zeichen enthält, welche für Datei- bzw. Pfadangaben für Windows nicht erlaubt sind - bei mir ww:w.

Gruß von Luschi
aus klein-Paris
AW: Daten aus Excel in Ordner exportieren
21.04.2021 09:23:34
DKing158
Vielen Dank für eure Antworten.
@Thorsten:
Im Grunde genommen hätte ich gerne einen Code, der mir aus einer bestimmten Exeldatei oder aus markierten Spalten mir die Inhalte als Ordner in einem bestimmten Pfad ablegt.
@Luschi:
wie gebe ich dann einen Pfad an, der nicht verbotene Zeichen wie " : " enthält?
Danke für eure Hilfe!
Gruß
DKing158
Anzeige
AW: Daten aus Excel in Ordner exportieren
21.04.2021 09:26:52
DKing158
Hallo Thorsten,
im Grunde genommen brauche ich nur einen Code der mir aus einer Exceldatei oder aus markierten Spalten die Inhalte in eine Ordnerstruktur in einem bestimmten Pfad ausspuckt...
Sollte mit dem Code machbar sein, kann leider nur nicht das Problem mit dem Pfad lösen...
Gruß
DKing158
AW: Daten aus Excel in Ordner exportieren
21.04.2021 17:43:34
Oberschlumpf
Hi,
...einen Code der mir aus einer Exceldatei oder aus markierten Spalten die Inhalte in eine Ordnerstruktur in einem bestimmten Pfad ausspuckt...
Tja, und welche Inhalte stehen in welchen Spalten, bzw Zellen?
Genau deswegen wäre eine Bsp-Datei mit Bsp-Daten von dir per Upload hilfreich.
Denn, genau, bei meinen vorherigen Erklärungen vergaß ich zu erwähnen, dass eine Zelle zwar einen Wert enthalten kann - dieser Wert aber Zeichen enthält, welche nicht in Datei- oder Ordnernamen enthalten sein dürfen; z Bsp der Doppelpunkt.
Auch dann kommt es zu der Fehlermeldung 52.
Ciao
Thorsten
Anzeige
AW: Daten aus Excel in Ordner exportieren
22.04.2021 18:05:32
Yal
Hallo King,
bei Behandlung von Dateien und Verzeichnis empfiehlt sich die Verwendung der Library "Microsoft Scripting Runtime" (siehe Extras, Verweise)

Sub MakeFolders()
' Unter Anbindung der Library "Microsoft Scripting Runtime"
' siehe Extras >> Verweise
Dim FSO As New FileSystemObject
Dim V As Folder
Dim maxRows, maxCols, r, c
maxRows = Selection.Rows.Count
maxCols = Selection.Columns.Count
On Error Resume Next
For c = 1 To maxCols
For r = 1 To maxRows
Set V = Nothing 'wg OnErrorResumeNext ist ein Reset notwendig
Set V = FSO.GetFolder(ActiveWorkbook.Path & "\" & Rng(r, c))
If V Is Nothing Then FSO.CreateFolder ActiveWorkbook.Path & "\" & Rng(r, c)
Next r
Next c
End Sub

Bei 

Dim maxRows, maxCols, r, c As Integer
wird nur c als Integer deklariert. Die anderen bleiben "Variant". Also kann man für c auch dasselbe gelten lassen, ist nur konsequent.
"On Error ..." ist keine Anweisung, die man innerhalb einer Schleife legen sollte (ist nicht gravierend, nur unschön).
VG
Yal
Anzeige

301 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2