MS Excel

Téma: Uložení souboru

Zaslal/a Imh0tep 2.3.2019 22:01

Dobrý večer,

mám problém s uložením kopie sešitu. Mám makro, které před uložením souboru zkoumá, zda soubor s daným názvem (Angebot_19-01-041.xlsm) ve složce "angebot" již existuje. Pokud existuje, objeví se okno s dotazem, zda chce uživatel soubor přepsat (ANO/NE). Pokud ano, soubor je přepsán (resp. starý soubor se stejným názvem je nejprve smazán a poté je uložen nový). Chtěl jsem do kódu doplnit větvení else (pokud soubor se stejným názvem neexistuje, tak se soubor prostě uloží), ale bohužel mi to nejde, což nechápu proč.

ThisWorkbook.SaveCopyAs filename:="C:\angebot\" & jmeno & ".xlsm"

Zkoušel jsem kód i obměnit, bohužel bezvýsledně. Stále se objedvuje hláška Compile Error: Else without If

Private Sub CommandButton4_Click()
q = Worksheets("temp").Range("A3").Value
jmeno = "Angebot_19-01-" + CStr(q)
soubor = "C:\angebot\" & jmeno & ".xlsm"
If Len(Dir(soubor)) = 0 Then ThisWorkbook.SaveCopyAs filename:="C:\angebot\" & jmeno & ".xlsm"
Else
i = MsgBox("Eine Datei mit diesem Namen " & jmeno & ".xlsm" & " ist schon vorhanden. Wollen Sie diese Datei überschreiben?", vbYesNo, "Datei überschreiben?")
Select Case i
Case vbNo
Exit Sub
Case vbYes
Kill soubor
MsgBox "Datei wurde unter " & jmeno & ".xlsm " & "gespeichert"
End Select
End If
End Sub

Nevíte prosím někdo, kde je chyba?

díky

Miroslav

Příloha: zip

42905_pokus1.zip (35kB, staženo 21x)

Zaslat odpověď >

AL(2.3.2019 22:55)#042907

K tej chybovej hlaske: Then musi byt na samostatnom riadku, rozdel If a Then na 2 riadkycitovat

Téma: Uložení souboru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje