Jde o opakované vytváření struktury adresářů s případnou drobnou modifikací. A k tomu nemusím spouštět Excel (což trvá mnohem déle než 0.01 sec. 
).citovat
).citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vytváření složek dle označených buněk
No jde o to , že ten excel slouží jako databáze staveb/ projektů. Tam je asistenti zapisují a následně si projekt manažeři dle potřeby vytváří složky pro své projekty. Tzn že jak je projekt přiřazen dané osobě tak si založí třeba 15 složek pro stavby které s v excelové databázi označí. Proto ta interakce s excelem potřebná je a asi jednoduší než přes BATcitovat
MS Excel
Téma: Vytváření složek dle označených buněk 
Zaslal/a Zemi77 4.5.2022 12:56
Ahoj,
Našel jsem zde a trošku modifkoval pro sebe následující makro. Zjednodušeně mi vytváří složky, které obsahují další dvě stabilní a neměné složky dle seznamu staveb. Ovšem rád bych toto ještě upravil tak, aby makro vytvořilo složky pouze z aktivních buněk. Např. při použití filtru,
Kód:
Sub VyvorSlozku_SUNSET_AMICOM()
Dim xdir As String
Dim lstrow As Long
Dim i As Long
lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
For i = 3 To lstrow
xdir = "C:\Users\Petr.Zemek\Desktop\Práce\VB\AMICOM\" & Range("B" & i).Value
On Error Resume Next
MkDir xdir
If Err.Number = 0 Then 'když existuje, jde dál
MkDir xdir & "\Podklady"
MkDir xdir & "\Výstavba"
End If
On Error GoTo 0
Next
End Sub
Díky za rady
Strana: « předchozí 1
2
lubo napsal/a:
Jde o opakované vytváření struktury adresářů s případnou drobnou modifikací. A k tomu nemusím spouštět Excel (což trvá mnohem déle než 0.01 sec. ).
No jde o to , že ten excel slouží jako databáze staveb/ projektů. Tam je asistenti zapisují a následně si projekt manažeři dle potřeby vytváří složky pro své projekty. Tzn že jak je projekt přiřazen dané osobě tak si založí třeba 15 složek pro stavby které s v excelové databázi označí. Proto ta interakce s excelem potřebná je a asi jednoduší než přes BATcitovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články