| Jak wyeksportować arkusze do osobnych plików? |
|
Problem: Potrzebuję makra, które po wskazaniu określonego pliku zapisze wszystkie jego arkusze jako oddzielne pliki, dodatkowo utworzy nowy katalog z nazwą pliku źródłowego i umieści w nim wszystkie nowe skoroszyty. ![]() Rozwiązanie: Możesz skorzystać np. z takiego makra: Option Explicit Sub ArkuszeDoPlikow() Dim wksArkusz As Excel.Worksheet 'Petla po wszystkich arkuszach w pliku 'kopiuje arkusz do osobnego pliku i zapisuje go Application.ScreenUpdating = False For Each wksArkusz In ThisWorkbook.Worksheets wksArkusz.Copy With ActiveWorkbook .SaveAs FileName:=ThisWorkbook.Path & "\" & wksArkusz.Name, FileFormat:=xlExcel8 .Close SaveChanges:=False End With Next wksArkusz End Sub |
|
| Zmieniony ( Wtorek, 29. Czerwiec 2010 13:58 ) |
