Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Excel Dokument als PDF speichern

Mitglied: TIM589

TIM589 (Level 1) - Jetzt verbinden

13.07.2015 um 10:56 Uhr, 1491 Aufrufe, 2 Kommentare

Ich habe mir ein kleines Rechnungsprogramm gebastelt und würde das ganze am Ende als PDF automatisch abspeichern lassen.
Leider komme ich mit den Codes die ich gefunden habe nicht wirklich zurecht.
01.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\TEMP\Testdatei.pdf" _
02.
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
03.
:=False, OpenAfterPublish:=True
hier wäre so ein Code den ich immer wieder gefunden habe. Allerdings kommt bei mir bei ActiveSheet ein Fehler dass es nicht deklariert wurde und xlTypePDF genauso.

Was muss ich hier deklarieren dass das ganze klappt.

Am Ende soll eine Msgbox kommen bei der der man mit Ja Speichern den Befehl ausführen kann.

Falls jmd den ganzen Code vom Programm braucht um zu sehen wie das Programm funktioniert hier mal alles:

01.
Public Class Rechnung
02.
    Dim Projekt As Object
03.
    Dim Jahrx, Tagx, Monatx, Rechnungsnummer As String
04.
    Dim x0 As Integer = 0
05.
    Dim x1 As Integer = 1
06.

07.
    Private Sub Rechnung_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rechnung_Button.Click
08.
        If Betrag1_TextBox.Text = "" Then Betrag1_TextBox.Text = 0
09.
        If Betrag2_TextBox.Text = "" Then Betrag2_TextBox.Text = 0
10.
        If Betrag3_TextBox.Text = "" Then Betrag3_TextBox.Text = 0
11.
        If Betrag4_TextBox.Text = "" Then Betrag4_TextBox.Text = 0
12.
        If Betrag5_TextBox.Text = "" Then Betrag5_TextBox.Text = 0
13.
        If Betrag6_TextBox.Text = "" Then Betrag6_TextBox.Text = 0
14.

15.
        'Ergebnisberechnung
16.
        Gesamtbetrag_Ergebnis_Label.Text = Betrag1_TextBox.Text + +Betrag2_TextBox.Text + +Betrag3_TextBox.Text + +Betrag4_TextBox.Text + +Betrag5_TextBox.Text + +Betrag6_TextBox.Text
17.

18.
        'Excel aus Dateivorlage öffnen
19.
        Projekt = CreateObject("excel.application")
20.
        Projekt.Application.Workbooks.Open("C:\Users\t.mueller\Downloads\Rechnungsvorlage")
21.
        Projekt.Visible = True
22.

23.
        'Excel Zelle füllen
24.
        Projekt.range("I16").value = Datum_TextBox.Text
25.
        Projekt.range("B8").value = Vorname_TextBox.Text & " " & Nachname_TextBox.Text
26.
        Projekt.range("B9").value = Straße_TextBox.Text
27.
        Projekt.range("B10").value = PLZ_TextBox.Text & " " & Ort_TextBox.Text
28.
        Projekt.range("B23").value = Eingabe1_TextBox.Text
29.
        Projekt.range("H23").value = Betrag1_TextBox.Text
30.
        Projekt.range("B24").value = Eingabe2_TextBox.Text
31.
        Projekt.range("H24").value = Betrag2_TextBox.Text
32.
        Projekt.range("B25").value = Eingabe3_TextBox.Text
33.
        Projekt.range("H25").value = Betrag3_TextBox.Text
34.
        Projekt.range("B26").value = Eingabe4_TextBox.Text
35.
        Projekt.range("H26").value = Betrag4_TextBox.Text
36.
        Projekt.range("B27").value = Eingabe5_TextBox.Text
37.
        Projekt.range("H27").value = Betrag5_TextBox.Text
38.
        Projekt.range("B28").value = Eingabe6_TextBox.Text
39.
        Projekt.range("H28").value = Betrag6_TextBox.Text
40.
        Projekt.range("H29").value = Gesamtbetrag_Ergebnis_Label.Text
41.

42.
        'Jahr festlegen
43.
        Jahrx = System.DateTime.Now.Year.ToString
44.

45.
        'Tag und 01 festlegen
46.
        If System.DateTime.Now.Day.ToString < 10 Then
47.
            Tagx = "0" & System.DateTime.Now.Day.ToString
48.
        Else
49.
            Tagx = System.DateTime.Now.Day.ToString
50.
        End If
51.

52.
        'Monat festlegen
53.
        If System.DateTime.Now.Month.ToString < 10 Then
54.
            Monatx = "0" & System.DateTime.Now.Month.ToString
55.
        Else
56.
            Monatx = System.DateTime.Now.Month.ToString
57.
        End If
58.

59.
        Do While My.Computer.FileSystem.FileExists("C:\Users\t.mueller\Downloads\Rechnungsprogramm\" & "RE" & Jahrx & "-" & Tagx & Monatx & x0 & x1 & ".txt")
60.
                x1 = x1 + +1
61.
            Loop
62.

63.
        'Rechnungsnummer richtig schreiben wenn x1 > 9
64.
        If x1 < 9 Then
65.
            Rechnungsnummer = "RE" & Jahrx & "-" & Tagx & Monatx & x0 & x1
66.
        Else
67.
            Rechnungsnummer = "RE" & Jahrx & "-" & Tagx & Monatx & x1
68.
        End If
69.

70.

71.
        'In Zelle schreiben
72.
        Projekt.range("B18").value = Rechnungsnummer
73.

74.
    End Sub
75.

76.
End Class
77.
Mitglied: 122990
13.07.2015, aktualisiert um 11:20 Uhr
Das was du da machst ist kein VBA sondern VB.NET, da hat das ganze anders auszusehen ...

Workbook referenzieren
01.
Dim wb = Projekt.Application.Workbooks.Open("C:\Users\t.mueller\Downloads\Rechnungsvorlage") 
und dann
01.
If MsgBox("Wollen sie die Rechnung als PDF speichern?", vbYesNo) = vbYes then
02.
    wb.ActiveSheet.ExportAsFixedFormat(0, "C:\TEMP\Testdatei.pdf")
03.
End if
grexit
Bitte warten ..
Mitglied: TIM589
13.07.2015 um 13:52 Uhr
Perfekte Lösung ich danke dir vielmals!!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel-Dokument zu PDF umwandeln funktioniert nicht korrekt

gelöst Frage von imebroMicrosoft Office10 Kommentare

Hallo, ich habe ein Formular in Excel 2010 erstellt (.xlsx). Dieses Formular enthält gepunktete Linien, die auch genau so ...

Microsoft Office

Dokument (PDF ) für Zweiseitenansicht optimieren

gelöst Frage von DT1234Microsoft Office4 Kommentare

Der Acrobat Reader kann seit Jahren auf die Zweiseitenansicht umgestellt werden. Dabei werden immer 2 Seiten gleichzeitig dargestellt - ...

Microsoft Office

Excel VBA - PDF

Frage von SabineTMicrosoft Office3 Kommentare

Hallo Zusammen, ich habe ein pdf, über welches ich bereits die OCR Texterkennung laufen lassen habe. Jetzt möchte ich ...

VB for Applications

VBA: Wert von einer Website (pdf-Dokument) auslesen und in Excel kopieren

gelöst Frage von Stern123VB for Applications16 Kommentare

Hallo zusammen, ich bin blutiger Anfänger hinsichtlich VBA und versuche nun schon seit mehreren Tagen folgendes Problem zu lösen: ...

Neue Wissensbeiträge
Microsoft Office

Supportlebenszyklus für Office 2010 verlängert

Information von Dani vor 1 TagMicrosoft Office4 Kommentare

Moin, Like most Microsoft products, Microsoft Office 2010 has a support lifecycle during which we provide new features, software ...

Windows Server

Active Directory ESE Version Store Changes in Server 2019

Information von Dani vor 2 TagenWindows Server

Moin, Last month at Microsoft Ignite, many exciting new features rolling out in Server 2019 were talked about. But ...

Exchange Server

Microsoft Extending End of Support for Exchange Server 2010

Information von Dani vor 2 TagenExchange Server3 Kommentare

Moin, After investigating and analyzing the deployment state of an extensive number of Exchange customers we have decided to ...

Schulung & Training

Humble Book Bundle: Network and Security Certification 2.0

Tipp von NetzwerkDude vor 2 TagenSchulung & Training

Abend, bei HumbleBundle gibts mal wider ein schönes Paket e-books: sind verschiedene Zertifizierungen wie MCSA, CCNA, CompTIA etc., für ...

Heiß diskutierte Inhalte
VB for Applications
Euro-Zeichen in jedem neu erstellten Brief mit Word automatisch entfernen
gelöst Frage von imebroVB for Applications23 Kommentare

Hallo, ich habe ein Problem mit Word, bzw. mit dem €-Zeichen, welches bei Erstellung eines Word-Briefes automatisch eingesetzt wird. ...

Batch & Shell
Regedit eintrad ändern als Admin
Frage von cyberworm83Batch & Shell19 Kommentare

Hallo zusammen, ich bin derzeit als Rollout Techniker unterwegs und muss täglich bei zig Rechnern einen Registry Einträg ändern ...

LAN, WAN, Wireless
Gebäude mit LWL-Anschlüssen ausstatten - VorNachteile?
Frage von staybbLAN, WAN, Wireless16 Kommentare

Hallo zusammen, es gibt ja mittlerweile viele Firmen die nicht nur ihre Backbones mit FibreChannel anbinden sondern auch direkt ...

LAN, WAN, Wireless
Wie komme ich mit WLAN um die Ecke?
Frage von Hexa09LAN, WAN, Wireless16 Kommentare

Hallo, ich habe eine Anfrage bekommen, und möchte, bevor ich dazu was beginne, erst einmal einen Rat von Profis ...