< návrat zpět

MS Excel


Téma: vyhledání souboru podle části názvu rss

Zaslal/a 21.8.2013 20:22

Zdravím v příloze mám sešit ve kterém je mákro mám adresář na disku kde je název souboru xxx.pdf a potřebuji v několika tisících souborů najít ty které zadám do sloupce A, následně překopírovat do nové složky.To mě funguje, ale nedaří se mě pokud je název souboru třeba xxx-1.pdf. Jde oto, že makro mám nastavené na přesný název. Potřeboval bych aby mě to hledalo pouze podle části před pomlčkou.

Předem Děkuji 7

Příloha: zip14801_hrbek2.zip (58kB, staženo 39x)
stop Uzamčeno - nelze přidávat nové příspěvky.

#014802
avatar
Jo ještě příloha
Příloha: zip14802_hrbek2.zip (58kB, staženo 44x)
citovat
icon #014803
avatar
Osobne by som použil FSO. Nastav si referenciu na Microsoft Scripting Runtime a uprav si kód, vzor ktorého prikladám:Sub kopiruj()
'rutina skopiruje vsetky subory txt, ktorych nazov má na konci SAP plus 2 znaky
'z adresara C:\Documents and Settings\al\Desktop\
'do adresara C:\Documents and Settings\al\Desktop\novy\
'pozor, cielovy adresar musi byt pred spustenim kodu uz vytvoreny

Dim myObject As Scripting.FileSystemObject, mySourceFolder As Scripting.Folder
Dim myFile As Scripting.File

Set myObject = New Scripting.FileSystemObject
Set mySourceFolder = myObject.GetFolder("C:\Documents and Settings\al\Desktop\") 'nastav si zdrojovy adresar
For Each myFile In mySourceFolder.Files
If myFile.Name Like "*SAP??.txt*" Then 'nastav si masku napr: "??_14_###.xls*", "???.pdf", "*.pdf" alebo aku potrebujes
myFile.Copy "C:\Documents and Settings\al\Desktop\novy\" & myFile.Name, True 'nastav cielovy adresar
End If
Next myFile
End Sub


to True tuná:myFile.Copy "C:\Documents and Settings\al\Desktop\novy\" & myFile.Name, True existujúci súbor prepíše, pokiaľ chceš zachovať pôvodný, zmeň na Falsecitovat
#014829
avatar
Super děkuji 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09