VBA - automatycznie uruchamiane makro tworzące strukturę folderów/subfolderów

1
0
1

Problem.

Muszę każdorazowo tworzyć rozbudowaną strukturę folderów i subfolderów, dla każdego Klienta.
Struktura z góry ustalona, ale foldery zawierają różną ilość subfolderów (załączony plik - zawiera przykładowe dane).

Pytanie.

Jak napisać makro (VBA), żeby po otwarciu pliku Excel uruchomione zostało makro tworzące strukturę folderów i subfolderów wg. schematy z arkusza Excel, w taki sposób, żeby VBA:

tworzył tylko foldery i/lub subfoldery, tylko dla nieistniejących folderów i/lub subfolderów, aby przypadkowo nie usunąć danych w istniejących folderach.
tworzył foldery i/lub subfoldery tylko z listy ze skoroszytu i przerwał gdy kolumna "A" nie będzie zawierała już więcej wierszy zapisach z nazwami folderów.

Proszę o pomoc. :)

#VBA,

Załączniki

xlsx
zapytanie_tworzenie Folderów_... ( 11K )

Zapytał
@ Krzysztof_Jarząbek | 19.07.2019
- 3
- 0
- 0

0

Spróbuj tak:

Sub folderCreator()
Dim FullPath As String
Dim PATH As Variant
Dim Folder As String
Dim i As Integer


FullPath = Cells(5, 2).Value

PATH = Split(FullPath, "\")

For i = 0 To UBound(PATH)
Folder = Folder & PATH(i) & "\"
    If Dir(Folder, vbDirectory) = "" Then MkDir Folder
Next i

End Sub

Skomentuj

Odpowiedział
@ Tomasz_Kasprzycki | 19.07.2019
- 2
- 4
- 8

Pytanie

VBA - automatycznie uruchamiane makro tworzące strukturę folderów/subfolderów

Odpowiedź (1)

POWIĄZANE w bazie wiedzy

Podstawy tworzenia zapytań w języku SQL z użyciem SQL Server Management Studio i Excela

Wstęp do makr MS Excel - elementy szkolenia EX04

Programowanie w VBA - dobre praktyki

POWIĄZANE
w bazie wiedzy