GoldenLine
Zaloguj się
Michal Żołyniak

Michal Żołyniak Implementer

Temat: Makro do wysyłanie załącznika mailem zmiana formatu na...

Witam,
Używam excela 2010 i mam pytanie wie ktoś może jak przerobić to makro aby wysyłany mailem plik był zawsze formacie excela 2003? a następnie także zapisywany w formacie excela 2003 w podanej scieżce "C:\Users\michal\test" pod nazwą wprowadzą w InputBox. Obecenie plik jest zawsze wysyłany w formacie "xlsx"



Sub aaa()

Dim Filename As String

Filename = Application.InputBox("Podaj nazwe pliku do wysłania  i zapisania")

ActiveWorkbook.Worksheets("Arkusz1").Copy

ActiveWorkbook.SaveAs Filename

ActiveWorkbook.SendMail "michalzolyniak@o2.pl", Filename



ActiveWorkbook.SaveAs Filename:="C:\Users\michal\test\Filename"

ActiveWorkbook.Close

End Sub
Link do wypowiedziLink
Krystian Kuba P.

Krystian Kuba P. Analityk

Temat: Makro do wysyłanie załącznika mailem zmiana formatu na...

http://www.rondebruin.nl/saveas.htm

fileformat:=56
Link do wypowiedziLink
Michal Żołyniak

Michal Żołyniak Implementer

Temat: Makro do wysyłanie załącznika mailem zmiana formatu na...

Dziękuje działa pierwsza część odnośnie wysyłania mailem teraz już zapisuje się formacie xls



Sub aaa()

Dim Filename As String

Dim FileFormatNum As Long

Filename = Application.InputBox("Podaj nazwe pliku do i wysłania zapisania")

ActiveWorkbook.Worksheets("Arkusz1").Copy

ActiveWorkbook.SaveAs Filename, FileFormat:=56

ActiveWorkbook.SendMail "michalzolyniak@o2.pl", Filename


Mam tylko jeszcze pytanie jak zapisać wysłany mailem plik którego nazwa jest wprowadzana zapomocą InputBox w formacie excela 2003 na dysku w scieżce: C:\Users\michal\test\"tutaj nazwa z InputBox"



ActiveWorkbook.SaveAs "C:\Users\michal\test\Filename, FileFormat:=56"


Ten kod niestety nie działa
Link do wypowiedziLink
Grzegorz C.

Grzegorz C. Specjalista,
Uniwersytet Śląski

Temat: Makro do wysyłanie załącznika mailem zmiana formatu na...

Michal Żołyniak:
Mam tylko jeszcze pytanie jak zapisać wysłany mailem plik którego nazwa jest wprowadzana zapomocą InputBox w formacie excela 2003 na dysku w scieżce: C:\Users\michal\test\"tutaj nazwa z InputBox"



ActiveWorkbook.SaveAs "C:\Users\michal\test\Filename, FileFormat:=56"


Ten kod niestety nie działa



 ActiveWorkbook.SaveAs "C:\Users\michal\test\" & Filename, FileFormat:=56
Link do wypowiedziLink
Zbigniew Budziewicz

Zbigniew Budziewicz VISUAL STUDIO

Temat: Makro do wysyłanie załącznika mailem zmiana formatu na...

przypomnę tylko że FileFormat:=56 zrozumie tylko excel 2007-10, jeżeli makro odpalisz w 2003-->babol
Więc lepiej użyć stałej xlNormal co wszystkie wersje kumają
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj