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
Makro za shranjevanje excel dokumenta
Re: Makro za shranjevanje excel dokumenta
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Makro za shranjevanje excel dokumenta
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
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
Re: Makro za shranjevanje excel dokumenta
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
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
Re: Makro za shranjevanje excel dokumenta
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Makro za shranjevanje excel dokumenta
Hvala za kodo,dokument mi shrani vendar pod pripono neznanega tipa,ki je ne morem odpreti.
David
David
Re: Makro za shranjevanje excel dokumenta
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"
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator