Aktywne Wpisy
wilang31 +16
To jaki w końcu ma kolor ta sukienka, u mnie na chacie już się prawie o to #!$%@?ą #heheszki #glupiewykopowezabawy
ewa-m +43
#nocnazmiana #weekend #depresja
Dotarło do mnie że najlepsze lata dawno przeminęły. Lata dzieciństwa, kiedy do nocy biegało się po dworze, opowiadało straszne historie, wchodziło na drzewa zbierając papierówki, grało w gumę i skakankę. Prawdziwe dziecięce przyjaźnie, dyskoteki i pierwsze zauroczenia. Kiedy to tak realnym wydawało się dwunastolatce że taki Billie Joe z Green Day czy Larry Mullen z U2 kiedyś przyjedzie, naprawdę się w niej zakocha i przeżyją love story jak z
Dotarło do mnie że najlepsze lata dawno przeminęły. Lata dzieciństwa, kiedy do nocy biegało się po dworze, opowiadało straszne historie, wchodziło na drzewa zbierając papierówki, grało w gumę i skakankę. Prawdziwe dziecięce przyjaźnie, dyskoteki i pierwsze zauroczenia. Kiedy to tak realnym wydawało się dwunastolatce że taki Billie Joe z Green Day czy Larry Mullen z U2 kiedyś przyjedzie, naprawdę się w niej zakocha i przeżyją love story jak z
Mam problem. Nagrywam makro do wysyłania outlookiem arkusza w formacie PDF. Przy nagrywaniu wszystko jest ok a jak uruchomię makro to załącznik mam nie w pdf a w xls. Jak to obejść?
PLIK-UDOSTEPNIJ-WYSLIJ W WIADOMOŚCI...- WYSLIJ JAKO PLIK PDF
"E:\Oferty\2021\OFERTA XXX 3047.2021 XXXi.pdf",
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
"C:\Users\WI~1\AppData\Local\Temp\OFERTA XXX 3047.2021 XXX.pdf"
, Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
Komentarz usunięty przez autora
1) utworz plik pdf
2) wyslij aktualny arkusz jako zalacznik do maila
Prawdopodobnie (zgaduje) dziala to przy robieniu tego pierwszy raz, bo excel sobie zapamietuje, ze zapisany w procesie plik jest plikiem do wyslania. Niestety przy kolejnym uruchomieniu makro te 2 akcje sa zupelnie niepowiazane:
Application.Dialogs(xlDialogSendMail).Show otwiera program pocztowy oraz dodaje jako zalacznik aktualnie otwarty arkusz i nic wiecej
https://www.extendoffice.com/documents/excel/4412-excel-save-as-pdf-and-email.html
Jeszcze jedno pytanko. Makro robi mi PDF z nawą arkusza [ xSht.Name + ".pdf" ] znasz może komendę taką żeby wpisywała się nazwa pliku?
W tej linijce, ktora wspomniales, sprobuj zastapic xsht.name: ActiveWorkbook.Name albo ThisWorkbook.name
Teraz muszę tylko wykombinować tak aby PDF zapisywało domyślnie tam gdzie plik xls który drukuje.
W tym kodzie zawsze muszę wybierać folder.
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show = True Then
xFolder = xFileDlg.SelectedItems(1)
Else
MsgBox "Nie wybrano folderu do zapisu." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
Exit Sub
End If
xFolder = xFolder + "\"
@taju: chyba sobie już poradziłem. Dzięki wielkie za pomoc!!!
Brawo.