< návrat zpět

MS Excel


Téma: VBA adresář a uložení rss

Zaslal/a 21.11.2014 16:22

Dobrý den,

prosím o radu. Potřeboval bych vytvořit adresář s proměnnou jako názvem podle aktuálního datumu, což není problém..následně bych do něj chtěl uložit sešit, ale nevím jak zadat cestu do tohoto adresáře. Děkuji za rady.
Private Sub CommandButton2_Click()
adresar = Format(Now, "yyyymmdd")
MkDir adresar
ActiveWorkbook.SaveAs Filename:="C:\User\215781\????\poptavka" & Format(Now, "yyyymmdd") & ".xlsm"
End Sub

Zaslat odpověď >

#022475
€Ł мσşqμΐτσ
takto 1

Private Sub CommandButton2_Click()
adresar = "C:\User\215781\????\"
ChDir adresar
ActiveWorkbook.SaveAs Filename:="poptavka" & Format(Now, "yyyymmdd") & ".xlsm"
End Sub
citovat
#022476
avatar
nebo taktoPrivate Sub CommandButton2_Click()
Dim Cesta As String, Adresar As String, Jmeno As String
Cesta = "C:\User\215781\"
Adresar = Format(Now, "yyyymmdd")
Jmeno = "\poptavka" & Adresar & ".xlsm"
On Error Resume Next
If IsError(GetAttr(Cesta & Adresar)) Then MkDir Cesta & Adresar
On Error GoTo 0
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Cesta & Adresar & Jmeno
''ActiveWorkbook.SaveCopyAs Filename:=Cesta & Adresar & Jmeno
Application.DisplayAlerts = True
End Sub
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

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