MS Excel

Téma: GoTO nefunguje

Zaslal/a Sperhak 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ěď >

elninoslov(30.5.2022 7:15)#052796

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

Sperhak(30.5.2022 17:09)#052798

Exit Sub pomohol dakujem.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.