Exituje soubor jpg Vyřešeno

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

Moderátor: Mods_senior

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

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ů
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

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 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

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.
Přílohy
Kopirovani souboru.xlsm
(20.24 KiB) Staženo 34 x

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

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.
Přílohy
Overenie existencie súborov.xlsm
(19.63 KiB) Staženo 43 x

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline

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
  • Poškozený soubor excelu Příloha(y)
    od Jsimi » 06 úno 2024 22:43 » v Kancelářské balíky
    0
    612
    od Jsimi Zobrazit poslední příspěvek
    06 úno 2024 22:43
  • Nemožnost odstranit soubor Příloha(y)
    od Dolpi » 22 kvě 2023 18:54 » v Vše ostatní (sw)
    1
    1261
    od zeus Zobrazit poslední příspěvek
    23 kvě 2023 12:46
  • Windows 11, AMD - zvětšující se DUMP soubor na disku
    od Sheriff » 08 kvě 2023 16:57 » v Windows 11, 10, 8...
    4
    1368
    od kecalek Zobrazit poslední příspěvek
    18 kvě 2023 17:36
  • Soubor personal.xlsb je uzamčen pro úpravy
    od VOM » 04 říj 2023 14:33 » v Kancelářské balíky
    3
    3712
    od VOM Zobrazit poslední příspěvek
    04 říj 2023 16:12
  • Externí disk - soubor nebo adresář je porušen a není čitelný Příloha(y)
    od bara12345 » 30 bře 2023 15:31 » v Problémy s hardwarem
    8
    1297
    od kecalek Zobrazit poslední příspěvek
    03 dub 2023 09:43

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů