Jo ještě příloha
Příloha: 
14802_hrbek2.zip (58kB, staženo 44x)
citovat14802_hrbek2.zip (58kB, staženo 44x)
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: vyhledání souboru podle části názvu
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: vyhledání souboru podle části názvu 
Zaslal/a vitek32 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 
Příloha: 14801_hrbek2.zip (58kB, staženo 39x)
14801_hrbek2.zip (58kB, staženo 39x) Uzamčeno - nelze přidávat nové příspěvky.
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
'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
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