Thema Datum  Von Nutzer Rating
Antwort
Rot Änderung des VBA Codes XLS statt PDF
15.06.2016 13:03:09 andreas
Solved
16.06.2016 07:12:03 Gast75197
NotSolved

Ansicht des Beitrags:
Von:
andreas
Datum:
15.06.2016 13:03:09
Views:
632
Rating: Antwort:
 Nein
Thema:
Änderung des VBA Codes XLS statt PDF

Hallo,

ich möchte, dass folgender VBA Code keine PDF sondern eine XLS oder XLM Datei generiert - Bitte um Hilfe

Sub test()
     Dim Mailadresse  As String, Betreff As String
     Dim olApp As Object
     Set olApp = CreateObject("Outlook.Application")
     Mailadresse = ActiveSheet.Range("J1")
     Mailadresse2 = ActiveSheet.Range("J2")
     Betreff = ActiveSheet.Range("J3")
     Sheets("Hardware aus SAP").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Range("J3") & Format(Now, "YYYY.MM.DD") & ".pdf", _
         Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     With olApp.CreateItem(0)
         .To = Mailadresse
         .CC = Mailadresse2
         .Subject = Betreff
         .Attachments.Add Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Range("J3") & Format(Now, "YYYY.MM.DD") & ".pdf"
         .Display
     End With
     Set olApp = Nothing
 End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Änderung des VBA Codes XLS statt PDF
15.06.2016 13:03:09 andreas
Solved
16.06.2016 07:12:03 Gast75197
NotSolved