Witajcie,
Trochę bawię się excelem i napotkałem na problem.
Mam plik, z którego będzie korzystać kilku użytkowników. W tym pliku będzie coś w rodzaju generowania raportów w pdfie, które z koeli będą zapisywać się na dysku sieciowym.
I jest problem taki, że skoro raporty będą generowane przez kilku użytkowników to muszą mieć inną nazwę, a najlepiej jakby w nazwie była nazwa użytkownika pakietu office/windowsa (nazwy te mam pobrane w komórkach).
Oto mój kod:
Range("A1:G26").Select
ChDir "D:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Zeszyt1.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Powstał przy rejestrowaniu makra. Czy jest jakiś sposób na to?
Jako Filename możesz użyć wartości zwracanych przez:
Application.UserName - ponoć zwraca nazwę usera pakietu ustawianą w opcjach,
albo Environ$("Username") - to z kolei ma zwracać nazwę, pod jaką user jest zalogowany
Spróbuj i zobacz co konkretnie u ciebie zwracają.
Dzięki kolego.
Zmodyfikowałem to tak:
Filename:="D:\Zeszyt" & Application.UserName _
I oto chodziło.
