< návrat zpět

MS Excel


Téma: Uložení souboru rss

Zaslal/a 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: zip42905_pokus1.zip (35kB, staženo 20x)
Zaslat odpověď >

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

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09