PC-HELP.CZ

Dobrý den, potřeboval bych poradit jak pomocí makra zjistit zda exituje soubor jpg.
Ve sloupci A mám názvy souborů jpg a potřebuji do sloupce B vypsat zda exitují v určitém umístnění v PC.
Jedná se cca o 1500 položek
Našel jsem pouze tento kód ale nemůžu to nějak rozchodit.
Děkuji za pomoc.

Kód: Vybrat vše

Sub makro()
If Dir("C:\Excel.xls") <> "" Then
Range("a2") = Range("a1")
End If
End Sub

Vzorový excel by nebyl?
Ve vbs:

Kód: Vybrat vše

   Set fso = CreateObject("Scripting.FileSystemObject")   
   cesta = "c:\obrazek.jpg"
   If (fso.FileExists(cesta)) Then
   Wscript.echo "soubor existuje"
   Else    
   Wscript.echo "soubor neexistuje"
   End If

Přikládam excel, návrh od ITCrowd jsem taky zkoušel ale neni to co potrebuji.

Nepozeral som ten Váš súbor, ale tu som Vám urobil 2 rôzne inšpirácie. UDF a hromadné makro.

To elninoslov: Tak to je bomba, Funguje uplne přesně tak jak jsem potřeboval.
Říkám to pořád, že máte zlatý ruce.

PC-HELP.CZ

Exituje soubor jpg

Exituje soubor jpg

Re: Exituje soubor jpg

Re: Exituje soubor jpg

Re: Exituje soubor jpg

Re: Exituje soubor jpg Vyřešeno