Makro za shranjevanje excel dokumenta

[dejvi]

Pozdrav

Posnel sem makro,ki mi označi tabelo na excel listu in jo nato shrani na disk D:\račun,sedaj pa se mi pojavi problem,da vsakokrat ko ga zaženem ,se ne zaustavi,da bi vpisal ime dokumenta in ga kar povozi,pri tiskanju v xps datoteko pa se zaustavi pri oknu shrani kot in lahko vsakokrat vpišem ime.
Kaj moram popraviti,moj makro izgleda takole:
Sub Makro2()
'
' Makro2 Makro
'

'
Range("A1:I28").Select
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\RACUN.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub

[admin]

Seveda se en ustavi, zakaj bi se pa zaustavil, če ste mu vi eksplicitno povedali kako naj se datoteka imenuje... Če želite, da vas makro vpraša po datoteki potem morate tako tudi zapisati:

Koda: Izberi vse

Sub Posnami()
  Dim imeDatoteke As String

  imeDatoteke = Application.GetSaveAsFilename
  If imeDatoteke = "False" Then Exit Sub

  Range("A1:I28").Select
  ActiveWorkbook.SaveAs Filename:=imeDatoteke, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

[dejvi]

Pozdrav

Hvala deluje,samo ste mi pozabili dodati imenik D,da se odpre in nastavi pot na disk d:\nekaj in je vrsta datoteke nastavljena na excelov list,jaz vpišem le ime datoteke.
Ko sem posnemal makro sem dobil nekaj takega,vendar tukaj ne piše da shrane na disk d in v mapo nekaj in imam problem,če to prenesem na druge pc-je.

Pozdrav

Tale makro deluje,le da mi prepiše dokument,moral pa bi se ustaviti,da ga preimenujem.

hvala za pomoč in lep pozdrav

Sub Gumb6_Klikni()
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:="d:\DAVID\DAVID\" & _
ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

lp in hvala

[dejvi]

Pozdrav

Spodnji makro naj bi delal,vendar mi ne odpre mape,javi tudi ne kakšne napake,kaj je narobe?

Sub Gumb7_Klikni()
Dim YourFile As Variant
Dim YourFolderPath As Variant
YourFolderPath = "C:\DAVID" 'update this
ChDir YourFolderPath
YourFile = Dir(YourFolderPath & "*.xls")
Do While YourFile <> ""
Workbooks.Open Filename:=YourFile
YourFile = Dir
Loop
End Sub


Hvala za odgovor

[admin]

Makro se sam od sebe ne bo ustavil, Vi ste uporabili ukaz SaveAs in mu podali tudi ime datoteko pod katero naj Excel podatke shrani; zatorej se nima zakaj ustavljati. Pred SaveAs je potrebno pač uporabnika vprašati za ime datoteke:

Koda: Izberi vse

Sub Gumb6_Klikni()
  Application.DisplayAlerts = False
  
    Dim imeDatoteke
    imeDatoteke = InputBox("Vnesite ime datoteke...")
    ActiveWorkbook.SaveCopyAs Filename:="d:\DAVID\DAVID\" & imeDatoteke
    ActiveWorkbook.Save
  
  Application.DisplayAlerts = True
End Sub

[dejvi]

Hvala za kodo,dokument mi shrani vendar pod pripono neznanega tipa,ki je ne morem odpreti.

David

[admin]

Priponko vam da takšno, kot ste jo vi vpisali! Če vpisujete imana datotek brez pripone, potem jo morate pač dodati v kodi:

Koda: Izberi vse

    ActiveWorkbook.SaveCopyAs Filename:="d:\DAVID\DAVID\" & imeDatoteke & ".xls"