• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Skusal som prve dve prispevky. Obidva fungovali rovnako, tak dalsie som uz neskusal. Uz to ide ale je tam jeden problem. Nazov suboru obsahuje bodku. B PVV0001N.32.pdf Takze to berie ze existuje vsetko co sa vola B PVV0001N.xxx

Ked skusam elninoslov(5.9.2019 15:56) tak to nefunguje.
Pise nedefinovany sub alebo funkcia a oznaci AddColor

Vlastne. Nema format suboru. Ako to tam upravit aby nerozlisovalo format suboru?

Mozete sa mi este pozriet na funkciu?

Sub fileExistsFSORange()
Dim Rng As Range
Set fso_obj = CreateObject("Scripting.FileSystemObject")

Set Rng = Selection

For Each Cell In Rng

Filename = Cell & "*"
file = Dir(Filename)

If file = "" Then
Cell.Font.Color = vbRed
Else
Cell.Font.Color = vbGreen
End If
Next Cell
End Sub

Function FileExists(full_path As String)
Dim fso_obj As Object

Set fso_obj = CreateObject("Scripting.FileSystemObject")
FileExists = fso_obj.FileExists(full_path)
End Function

Funkcia by mala v bunke napisat true/false, podla toho ci subor existuje ale stale pise len false.

Takze odskusane, spomaluje to server. V PC to naslo rychlo.

Hladam len potrebny pocet buniek, len tych 80 buniek. Prehladava server. Mozno Server to brzdi ale ked som hladal konkretne subory s konkretnou priponou tak to bolo rychlo

Myslite ze by to urychlilo keby nehladalo akukolvek priponu ale zadafenovali sa len 3-4 mozne pripony?

Funguju obidva, dik. Len neviem ci koli casu radsej nenarobit viac buniek v kazdej bude mat subor inu priponu a hladat to takto.

@elninoslov Nemusi byt v bunke nazov aj s priponov. Ja ho tam teraz mam ale viem to prerobit aby v bunke pripona nebola. Funguje tvoje makro ale veeeelmi dlho kontroluje. cca 1 min 80 suborov. To co som daval ja, ked som musel mat presnu priponu tak to skontrolovalo za sekundu

Predpokladam ze z bunky treba odstranit format suboru J:\zlozka\subor a v makre zadat "k bunke pridaj .* a hladaj vyraz" V makre by zastupny znak * asi mal fungovat. Meviete ako to napisat?

Urobil som makro:
Sub fileExistsFSORange()
Dim Rng As Range
Set fso_obj = CreateObject("Scripting.FileSystemObject")

Set Rng = Selection

For Each Cell In Rng
If fso_obj.fileExists(Cell) Then
Cell.Font.Color = vbGreen
Else
Cell.Font.Color = vbRed
End If
Next Cell
End Sub

takze ked do bunky napisem cestu suboru napr J:\zlozka\subor.pdf, a spustim makro tak mi overi ci existuje. Potreboval by som ale aby mi hladalo subory
bez zadefinovania formatu suboru. Skusal som J:\zlozka\subor.* ale to nefunguje.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje