Ahoj, prosim toho, kdo umi programovat ve Visual Basic:
Potreboval bych jednoduchy programek, ktery zmapuje zvolenou adresu, napr. C:\ a VYPISE do list1.Range("A1:A100").value - NAZVY vsech najdenych ".txt" souboru
DEKUJI ZA POMOC
Petr
// Změna názvu tématu. Původní název "MAKRO - help" svou nulovou informační hodnotou porušoval pravidla fóra.
// mike007
VBA: Potřeboval bych makro pro vytvoření seznamu TXT souborů Vyřešeno
Re: MAKRO - help Vyřešeno
Nejak takto by to slo:
Kód: Vybrat vše
Sub soubory()
Dim f As String
Dim Cesta As String
Dim i As Integer
Cesta = "C:\Documents and Settings\pokorny9\Dokumenty\zVBA_Office\zVD\EXCEL\" 'musi konci zpetnym lomitkem '\'
ChDir Cesta
f = Dir(Path & "*.txt")
i = 1
While f <> ""
Cells(i, 1) = f
i = i + 1
f = Dir()
Wend
End Sub
Re: MAKRO - help
Diky moc, funguje !
P.
// Téma označuji za vyřešené...za tebe...
// mike007
P.
// Téma označuji za vyřešené...za tebe...
// mike007
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 831
-
od ITCrowd
Zobrazit poslední příspěvek
02 úno 2024 08:36
-
-
MS Outlook - Hromadné vytvoření složek Příloha(y)
od czTANIScz » 22 zář 2023 11:36 » v Kancelářské balíky - 6
- 3048
-
od czTANIScz
Zobrazit poslední příspěvek
23 zář 2023 22:34
-
-
-
Vytvoření skriptu na zálohu hry, kterou vytvářím. Příloha(y)
od xCloudGirl » 09 bře 2024 12:35 » v Vše ostatní (sw) - 11
- 1284
-
od MonikaVavrova
Zobrazit poslední příspěvek
11 bře 2024 22:24
-
-
- 9
- 1259
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 11
- 2260
-
od Grander
Zobrazit poslední příspěvek
30 črc 2023 15:20
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti