seznam souboru ve slozce   zodpovězená otázka

VB6/VBA

21. 9. 2010 12:26

anonym
 

90.177.21.128

Dobrý den.

Mám takový nezvyklý problém. Potřeboval bych v Excelu zjistit obsah složky - všechny XLS soubory - a tento seznam vepsat do buněk - jedna buňka jeden soubor.

Problém je v tom, že jediné co se shoduje je přípona souborů jinak způsoby pojmenovávání se liší.

Původně jsem to chtěl řešit externím automatickým přejmenováním dle jednotné šablony a následným zadáním názvu a rozsahu čísle souboru pro script. Avšak tento způsob nemohu použít. Jediné co budu znát je přípona souborů a adresář kde jich bude X umístěno.

Předem Děkuji za jakoukoliv pomoc.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 9. 2010 7:23

František Hůle
 

Hodnocení 28     Příspěvků 74

Vypsat soubory *.xls ve složce na pevném disku.

Sub ListFiles()
    Dim myRow As Integer
    Dim myFile As String
    ChDir "C:\\Users\public\Documents"
    
    myRow = 1
    myFile = Dir("*.xls")
    Do Until myFile = ""
        Cells(myRow, 1) = myFile
        
        myRow = myRow + 1
        myFile = Dir
    Loop
End Sub

Pokud by se jednalo o výpis na CD, DVD tak je třeba použít API
nahlásit spamnahlásit spam 0 odpovědětodpovědět

26. 9. 2010 21:55

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Proč je jako potřeba použít API? Jestli je to na CD či DVD je přece úplně jedno, Dir by měl fungovat všude stejně.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

27. 9. 2010 12:10

František Hůle
 

Hodnocení 28     Příspěvků 74

Ve VBA v excelu nefunguje. Alespoň ve verzích do 2002 ne. Někdy před časem jsem se s tím potýkal. V novějších verzích nevím, pokud máte Excel 2007 nebo 2010 můžete vyzkoušet.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

27. 9. 2010 12:24

František Hůle
 

Hodnocení 28     Příspěvků 74

Tedy abych upřesnil, nevykoná se příkaz ChDir ...
nahlásit spamnahlásit spam 0 odpovědětodpovědět

27. 9. 2010 12:25

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

A nestačí tu cestu dát přímo do toho Dir? Jen hádám...
nahlásit spamnahlásit spam 0 odpovědětodpovědět

30. 9. 2010 11:43

anonym
 

90.177.21.128

DEKUJI ZA NAVOD
nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback