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:
1377		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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