< návrat zpět

MS Excel


Téma: GoTO nefunguje rss

Zaslal/a 30.5.2022 0:19

Zdravím, neviem kde robím chybu, ale funkcia GoTO mi nechce fungovať respektíve funguje stále. Chybu v podmienke by som mať nemal, ale aj tak či cesta existuje ale neexistuje sa GoTo spustí a zobrazí správa kopírujem. Dim sSourcePath As String
Dim sTargetPath As String
Dim fso As Object

Dim strFolderExists As String
Sub CheckFolderExists()

sSourcePath = "D:\test.txt"
sTargetPath = "K:\"


strFolderExists = Dir(sTargetPath, vbDirectory)

If strFolderExists = "" Then
MsgBox "Cesta neexistuje"

Else
GoTo Copy

End If



Copy:

MsgBox "kopírujem"

Zaslat odpověď >

#052796
elninoslov
Chýba Vám tam ukončenie chodu makra pred "Copy:". Vám teraz makro za každých okolností pokračuje za podmienkou If.

musíte dať buď
...
End If

Exit Sub

Copy:
...


alebo, ak sa má Copy: správa iba preskočiť a makro pokračuje za ňou tak napr.
...
End If

GoTo Pokracuj

Copy:
MsgBox "kopírujem"

Pokracuj:
...


alebo tú správu a iné veci, čo chcete v jednotlivých prípadoch urobiť, urobte rovno v If Then Elsecitovat
#052798
avatar
Exit Sub pomohol dakujem.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46