Shranjevanje pod poljubnim imenom in poljubno lokacijo

[Iskalec]

Pozdravljeni!

Nekako se mucim, da bi se stavil makro, s katerim bi excelovo datoteko shranil pod poljubnim imenom in poljubno lokacijo.

Se pravi imam datoteko z imenom "Zvezek1" shranjeno na C:/namizje.... Ob zagonu makroja bi zelel, da bi me vprasal pod kaksnim imenom zelim shraniti ter, da bi bil ze podan predlog na C:/namizje....

Hvala ze vnaprej!

Iskalec

[kljuka13]

Hm... Vprašalo po mestu datoteke ??? Ali bi sami napisali celo pot ali bi se vam prikazalo okno ?

TUkaj je primer za vpisovanje celotne poti

Koda: Izberi vse

Sub Auto_Open()
'
'
'Vpraša po imenu in shrani
'
'
On Error GoTo Err

ThisWorkbook.SaveAs (InputBox("Vnesite pot kamor želite shranitit datoteko!"))
MsgBox "Uspešno shranjeno!"
Err:
MsgBox "Napaka!"
End Sub

Napišete npr. C:\Zvezek1

Edit:

Sem pa naredil formo sicer mi ni uspelo
TUkaj pa vam odpre okno in izberete iz dialoga

Userform je ne tem URL.
V isto mapo pa si morate shraniti še frx datoteko

[Iskalec]

Pozdravljeni!

Kljuka 13, najlepsa hvala za trud! Sicer pa kode, ki ste jo napisali, nikakor ne znam umestiti...

Dejansko sem zelel samo dopolniti nek obstojeci makro s tem, da bi mi na koncu ponudil moznost Save As (se pravi, da se prikaze okno, kot ste se izrazili sami), sam bi obstojeci datoteki spremenil ime, lokacijo bi pa tako lahko poiskal v oknu.

Nekaj mojega truda, ki vsakic javi napako.

Koda: Izberi vse

Sub Shranjevanje() 

On Error GoTo Err 

ActiveWorkbook.SaveAs (Filename("izberi"))???
 
MsgBox "OK!" 
Err: 
MsgBox "Ni vredu!" 
End Sub 

Hvala, ce boste imeli se kaksno idejo ali napotilo!

Lep dan!

Iskalec

[kljuka13]

Ja tako zlahka pa nebo šlo. VBA neve kaj hočete vi povedati s Filename-om... Poskusite tako

Koda: Izberi vse

Sub Shranjevanje()

On Error GoTo Err

ActiveWorkbook.SaveAs (ThisWorkbook.Path & ("izberi.xls"))
 
MsgBox "OK!"
Exit Sub

Err:
MsgBox "Ni vredu!"
End Sub

Mojo kodo pa lahko uvrstite kot samostojno proceduro ali pa izbrišete Sub Auto_Open() in End sub ter notranjo kodo prilepite v drugo proceduro.