Uzamčeno - nelze přidávat nové příspěvky.
Tohle makro by to melo zvladnout:
Jen je potreba vyplnit Cestu (oznaceno tucne) - musi byt ukoncena zpetnym lomitkem a v uvozovkach...a musi existovat :)
Ostatni se menit nemusi...
Sub SeznamSouboru()
Dim Cesta As String, Soubor As String
Dim i As Long, Sloupec As Long
Cesta = "c:\TEMP\" 'Musí končit zpětným lomítkem
Soubor = Dir(Cesta & "*.*") 'lze nastavit jen určité soubory, např. "*.doc"
Sloupec = 1
'smazani puvodnich hodnot ve Sloupci
Columns(Sloupec).ClearContents
'doplneni novych souboru do Sloupce
i = 1
Do While Soubor <> ""
Cells(i, Sloupec) = Soubor
Soubor = Dir
i = i + 1
Loop
End Subcitovat
Jen je potreba vyplnit Cestu (oznaceno tucne) - musi byt ukoncena zpetnym lomitkem a v uvozovkach...a musi existovat :)
Ostatni se menit nemusi...
Sub SeznamSouboru()
Dim Cesta As String, Soubor As String
Dim i As Long, Sloupec As Long
Cesta = "c:\TEMP\" 'Musí končit zpětným lomítkem
Soubor = Dir(Cesta & "*.*") 'lze nastavit jen určité soubory, např. "*.doc"
Sloupec = 1
'smazani puvodnich hodnot ve Sloupci
Columns(Sloupec).ClearContents
'doplneni novych souboru do Sloupce
i = 1
Do While Soubor <> ""
Cells(i, Sloupec) = Soubor
Soubor = Dir
i = i + 1
Loop
End Subcitovat
\n
RSS nejnovější články