Hvala na odgovoru. Imam jedno pitanje tvoj savet pod 3 ako sam razumeo moguce je preko koda snimiti sve novootvorene workbooks? Taj kod sam trazio ali nisam nasao.
ubacivanje vise workbook-ova u jedan workbook
Zaključano
Zakačeno
Citat:
vojvoda1010: Taj kod sam trazio ali nisam nasao.
Code:
Sub SaveUnsavedWBK()
'snimanje svih novootvorenih workbook koje nisu nikada snimljene
Dim wb As Workbook 'varijabla za wbk
Path = "C:\Temp\" 'putanja tj. lokacija gdje Excel snima datoteke
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
wb.SaveAs Filename:=Path & wb.Name, FileFormat:=56 'format snimljene datoteke
'wb.Close False ako želiš zatvoriti wbk nakon snimanja
End If
Next wb
'ThisWorkbook.Close False 'zatvara master wbk u kojoj se nalazi VBA kod
End Sub
Sub SaveUnsavedWBK()
'snimanje svih novootvorenih workbook koje nisu nikada snimljene
Dim wb As Workbook 'varijabla za wbk
Path = "C:\Temp\" 'putanja tj. lokacija gdje Excel snima datoteke
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
wb.SaveAs Filename:=Path & wb.Name, FileFormat:=56 'format snimljene datoteke
'wb.Close False ako želiš zatvoriti wbk nakon snimanja
End If
Next wb
'ThisWorkbook.Close False 'zatvara master wbk u kojoj se nalazi VBA kod
End Sub
Prijavljue mi gresku run-time error 1004 u 6 redu wb.save as filename
jel moze vise novootvorenih wb da snimi
jel moze vise novootvorenih wb da snimi
Citat:
vojvoda1010: Prijavljue mi gresku run-time error 1004 u 6 redu wb.save as filename
Code:
'Option Explicit
'Option Explicit
Citat:
vojvoda1010:jel moze vise novootvorenih wb da snimi
btw:
U master wbk nalazi vba kod sa VBA buttonom
Isprobano: Otvorene su 3 wbk koje nisu snimljene (book1, book2, book3)
Klikom na VBA button događa se slijedeće
Sve novootvorene wbk snimljene su u C:Temp sa istim nazivom i extenzijom *.xls
Opet isto opet istu gresku mi je ponovio
Uspelo. Nekako sam ubacio gresku ona je bila kod file gprmat umesto 56 stavlja se xlNormal. Ali javio mi se novi problem za koji cu otvpriti novu temu.