Dzień dobry.
Chciałabym wyeksportować listę wyjątków z datami z kalendarza do Excela, żeby tam móc poddawać je dalszej analizie (jeśli w MS Project nie da się tego zrobić). Mam wrażenie, że to niemożliwe, tzn. zwykłe kopiowanie nie działa, a nie odnalazłam możliwości eksportu. Czy jest gdzieś taka możliwość?
Pozdrawiam.
Agnieszka Bernas.
Witam Pani Agnieszko.
Można to zrobić za pomocą VBA.
Otwieramy projekt z którego chcemy wyeksportować wyjątki.
Następnie używamy skrótu Alt+F11 (otworzy się edytor VBA).
Z lewej strony edytora w Project Explorer klilamy prawym klawiszem na naszą nazwę pliku i tworzymy moduł.
W module wklejamy:
Sub ExportKalendarza()
Dim exApp As Excel.Application
Dim wyjatek As Exception
Dim skoroszyt As Workbook
Set exApp = Excel.Application
Set skoroszyt = exApp.Workbooks.Add
skoroszyt.Worksheets(1).Range("a1").Select
For Each wyjatek In ActiveProject.BaseCalendars("Moj").Exceptions ' w base nalezy podac nazwe swojego kalendarza
With exApp.ActiveCell
.Value = wyjatek.Name
.Offset(0, 1).Value = wyjatek.Start
.Offset(0, 2).Value = wyjatek.Finish
.Offset(1, 0).Select
End With
Next
'nalezy podac sciezke dostepu gdzie ma byc zapisany plik excelowy
skoroszyt.SaveAs "C:\Documents\importkalendarza.xlsx"
Set exApp = Nothing
End Sub
W BaseCalendars wpisać swoją nazwę kalendarza która chcemy wyeksportować.
A w skoroszyt.SaveAs swoją ścieżkę dostępu z miejscem, w którym chcemy mieć ten plik Excelowy.
W Edytorze VBA wybieramy Tools->References...->Microsoft Excel 15.0 Object Library (nie musi być 15, zależne od wersji Offica)->OK.
Klikamy w dowolnym miejscu w kodzie i wciskamy F5.
Gotowe.
Trzeba tylko znaleźć plik Excelowy.
Pozdrawiam.
Paweł Niemyt.
Dzień dobry.
Zrobiłam wszystko zgodnie ze wskazówkami. Pojawił mi się komunikat:
Tak więc wypełniłam dodatkowo nawias z "Sub ExportKalendarza ()" tekstem "Kalendarz MOZ", który chciałam wyeksportować. Wtedy pojawił się inny komunikat:
Trochę groźnie wygląda, więc nic nie zrobiłam. Proszę mi napisać, czy mam się zgodzić? :) Reset to reset :)
Pozdrawiam.
Agnieszka Bernas.
