Za office 365
C:\Users\Username\AppData\Roaming\Microsoft\Excel\XLSTART
http://wheatblog.com/2011/08/where-is-the-excel-personal-macro-workbook-located/
sobota, 31. oktober 2015
ponedeljek, 5. oktober 2015
Shranjevanje Excel delovnih listov v datoteke
Večkrat imamo Excelov dokument v katerem je vsakemu zaposlenemu namenjen svoj list. Kroženje takega dokumenta povzroča nejevoljo, zato vsak list shranimo kot ločeno tabelo:
Vhodni dokument shranim (premaknem) v novo (prazno) mapo, ga odprem in z
<Alt><F11>
odprem Visual Basic. Nto pa kliknem:
Insert, Module
in v novo okno prekopiram:
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls", FileFormat:=56
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Nato pa ga poženem:
<F5>
Cel kup dela prišparanga. Datoteke so v obliki xls za Excel 2003.
Makro povzet iz:
http://www.extendoffice.com/documents/excel/628-excel-split-workbook.html
http://www.rondebruin.nl/win/s5/win001.htm
Vhodni dokument shranim (premaknem) v novo (prazno) mapo, ga odprem in z
<Alt><F11>
odprem Visual Basic. Nto pa kliknem:
Insert, Module
in v novo okno prekopiram:
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls", FileFormat:=56
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Nato pa ga poženem:
<F5>
Cel kup dela prišparanga. Datoteke so v obliki xls za Excel 2003.
Makro povzet iz:
http://www.extendoffice.com/documents/excel/628-excel-split-workbook.html
http://www.rondebruin.nl/win/s5/win001.htm
Naročite se na:
Objave (Atom)