Exituje soubor jpg Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: únor 12
Pohlaví: Nespecifikováno

Exituje soubor jpg

Příspěvekod luko02420 » 12 dub 2019 15:16

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



Reklama
Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 12
Elite Level 12
Příspěvky: 16180
Registrován: březen 10
Pohlaví: Muž

Re: Exituje soubor jpg

Příspěvekod ITCrowd » 12 dub 2019 15:35

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
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

luko02420
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Exituje soubor jpg

Příspěvekod luko02420 » 12 dub 2019 17:21

Přikládam excel, návrh od ITCrowd jsem taky zkoušel ale neni to co potrebuji.
Nemáte oprávnění prohlížet přiložené soubory.

Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 189
Registrován: červen 13
Pohlaví: Muž

Re: Exituje soubor jpg

Příspěvekod elninoslov » 12 dub 2019 17:42

Nepozeral som ten Váš súbor, ale tu som Vám urobil 2 rôzne inšpirácie. UDF a hromadné makro.
Nemáte oprávnění prohlížet přiložené soubory.

luko02420
Level 1.5
Level 1.5
Příspěvky: 140
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Exituje soubor jpg  Vyřešeno

Příspěvekod luko02420 » 12 dub 2019 18:01

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.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • win 10 nejde tisknou JPG a PDF
    od dejvid364 » 20 srp 2018 18:04 » v Windows 10, 8, 7, Vista, XP…
    0
    272
    od dejvid364
    20 srp 2018 18:04
  • Doporučte FREE SW na vytváření koláží fotek v jpg
    od petr.sadek » 09 srp 2018 17:07 » v Design a grafické editory
    2
    930
    od faraon
    09 srp 2018 17:45
  • Dávkový soubor
    od pcmeister » 21 lis 2018 13:54 » v Windows 10, 8, 7, Vista, XP…
    3
    403
    od mmmartin
    22 lis 2018 22:53
  • Rar soubor
    od czMike8 » 28 říj 2018 12:07 » v Windows 10, 8, 7, Vista, XP…
    4
    824
    od czMike8
    03 lis 2018 08:33
  • soubor HOSTS - editace.
    od ski1961 » 19 úno 2019 15:16 » v Windows 10, 8, 7, Vista, XP…
    2
    332
    od ski1961
    19 úno 2019 16:48

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 3 hosti