Office: (Office 2013) Ordner erstellen via VBA

mimich · 24. Juni 2016

Guten Abend,

folgendes Problem.
Ich habe eine Tabelle "tblCustomer" mit einem Textfeld "CustomerNO"
jetzt möchte ich via VBA prüfen ob im Verzeichnis "aktPublicDocuments" bereits ein Ordner "Ordner Name = CustomerNO" existiert und wenn nicht soll dieser angelegt werden.
Bislang krieg ich das nur für einen speziellen Ordner hin, was echt mühselig ist bei derzeit ca. 2000 Einträgen.

Vielen Dank schon mal für die Hilfe.

:)

ebs17 · 26. Juni 2016

Code:

Dim sOrdnerNeu As String
sOrdnerNeu = "...\aktPublicDocuments\CustomerNO" ' Pfad vorne vervollständigen
If Dir(sOrdnerNeu, vbDirectory) = vbNullstring Then MkDir sOrdnerNeu
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mimich · 26. Juni 2016

Das Script zum automatisierten Ordner erstellen funzt wunderbar, aber wie krieg ich das blöde System dazu den Ordnernamen aus einer Tabelle zu entnehmen?
Bislang sieht der Code so aus und der nimmt sich immer nur den 1. Wert aus der Tabelle:
Code:

Dim Wert As String
Dim strSQL As String
Dim rst As DAO.Recordset

strSQL = "select [CustomerNO] from tblVustomer"
Set rst = CurrentDb.OpenRecordset(strSQL)
With rst
If .EOF Then
Wert = 0
Else
Wert = Nz(.Fields("[CustomerNO]"), 0)

MkDir aktPublicDocuments & Wert

End If
.Close
End With
Set rst = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gpswanderer · 26. Juni 2016

Hallo,
und woran machst Du den richtigen Wert fest, bzw. nach welchen Kriterien ?
Das System ist ja blöd, dem muss man genau sagen was zu tun ist.

Wenn Du Wert als String deklarierst, solltest Du auch einen String zuweisen.

Aber wahrscheinlich wird das ohnehin so gar nicht benötigt.
Beantworte also mal die Frage.

ebs17 · 26. Juni 2016

und der nimmt sich immer nur den 1. Wert aus der Tabelle
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim Öffnen eines Recordsets steht der Zeiger auf dem ersten Datensatz, sofern es mindestens einen gibt. Wenn also Deine Tabelle mehr als einen Datensatz hat, könnte man durch einen zusätzlichen Filter in der SQL-Anweisung sofort auf den gewünschten Datensatz verweisen. Fragt sich: Wonach sollte man filtern?

Dein Code vermittelt nicht unbedingt Klarheit:
Was soll passieren, wenn kein passender Datensatz gefunden wird? Abbruch oder Ersatzwert bei Ordnererstellung?
Wenn der Wert im Datensatz NULL ist (kein Eintrag), soll ersatzweise 0 (alsZiffer) in den Ordnerpfad eingebaut werden? Gibt es überhaupt CustomerNO-Werte mit NULL?

mimich · 27. Juni 2016

Der Code soll die CustomerNO (ERF 100-1, ERF 101-1 usw.) aus der Tabelle nehmen und testen, ob es einen Ordner mit dem entsprechenden Namen gibt (ERF 100-1, ERF 101-1 usw.). Gibt es den Ordner tue nix, ansonsten erzeuge den Ordner.

Der vorhandene Code nimmt immer nur den ersten Eintrag der Tabelle.
(Hab mit SQL in VBA nicht wirklich viel Erfahrung).

ebs17 · 28. Juni 2016

Code:

Dim rst As DAO.Recordset
Dim sPath As String

sPath = "X:\irgendwo\aktPublicDocument\"
strSQL = "select DISTINCT CustomerNO from tblCustomer WHERE CustomerNO > ''"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenForwardOnly)
With rst
Do While Not .EOF
If Dir(sPath & .Fields("CustomerNO"), vbDirectory) = vbNullstring Then _
MkDir sPath & .Fields("CustomerNO")
.MoveNext
Loop
.Close
End With
Set rst = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Angemerkt:
- Leere CustomerNO werden gleich über die SQL-Anweisung weggefiltert, das ist am effizientesten.
- Das DISTINCT dient dazu, jeden Ausdruck nur einmal zu überprüfen, ist je nach Datenlage überflüssig.

Office: (Office 2013) Ordner erstellen via VBA

Ordner erstellen via VBA

Ordner erstellen via VBA

Ordner erstellen via VBA

Ordner erstellen via VBA - Similar Threads - Ordner erstellen via

Ordner mit Unterordner per VBA erstellen

Verwenden von Ordnern zum Erstellen von schreibgeschützten Dateien für Kursteilnehmer oder ...

Erstellen eines Ordners in Outlook

Erstellen eines neuen Ordners

Ordner via Excelliste erstellen und Unterordner hineinkopieren

Ordner erstellen

Outlook IMAP lokalen Ordner erstellen