Hallo Leute,
ich habe folgendes Problem und ich bin um jede Anregung und Hilfe dankbar!
Ich möchte eine Standard Excel Liste für Kundenbestellungen erstellen. In dieser Excel sollen folgende Bedingungen realisiert werden.
(Ich bin zwar Programmierer, jedoch für Speichersysteme...)
In der Excel sollte wie im Thema schon erwähnt ein Button existieren ( das braucht man mir nicht zeigen wie das geht. ;) ) der mir ein Fenster öffnet in dem ich einen Speicherort angeben kann. Das ist soweit auch noch kein Problem. Schön wäre es jedoch, wenn mir dann der Speicherort in der Zelle neben dem Button angezeigt wird und ich diesen dann wieder für meine nächste Funktion verwenden kann.
Jetzt wäre das VB Programm angedacht, das mir bei dem nächsten Button generieren und versenden die Excel in eine .pdf speichert und diese in eine E-Mail anhängt. Ich habe mich schon über Videos auf Youtube schlau gemacht, jedoch bekomme ich keines der Programme zu laufen. Der Debugger sagt mir egtl. immer einen Fehler in egal welchem Programm.
Anbei noch der Code der Ordnerauswahl jedoch ohne angezeigtem Speicherort:
Sub ordnerauswahl()
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path
If Pfad = "" Then Exit Sub
MsgBox Pfad
On Error GoTo 0
End Sub
Hier noch der Spaß mit .pdf und senden. In den Klammern jedoch noch meine Kommentare, die natürlich verbessert worden sind im verwendeten. Jedoch nicht lauffähig.
Sub PDF_und_Senden()
DateiName = Range("K3" ----- Pfad ) & Range("K2" ----- pdf Namen) & ".pdf"
Range("A1:G48 ----- Bereich für Druck ").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = Range("K16" ---- Empfänger)
.Subject = Range("K17" ---- Betreff)
.Body = Range("K37" ---- Anschreiben)
myAttachments.Add DateiName
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Wie gesagt, ich bin um jeden Tipp Dankbar und wenn ihr ähnliche Module/Codes habt nur her damit. Man kann dann ja doch auch etwas mehr darüber nachdenken und zu basteln beginnen.
In diesem Sinne, noch 5 Stunden arbeiten, dann ist Weihnachten! :D
Allen ein schönes Fest.
Danke!
|