XLSM als XLSX speichern und versenden
08.08.2022 11:32:14
Markus
Mein Ziel ist es eine Kalkulation mit fortlaufender Nummer zu bearbeiten, diese per klick in einem Ordner zu speichern und mit Outlook zu versenden.
Mein aktueller Stand ist, die Datei wird erstellt und abgelegt, eine Mail wird unter vorgegebenen Namen mit der fortlaufenden Nummer in den Postausgang gegeben.
Soweit passt alles, aber leider, bekomme ich es nicht hin, die Datei anzuhängen und das liegt nicht daran, dass sich der Dateiname durch die fortlaufende Nummer ständig ändert. Ich habe eine Datei mit dem Namen Test.xlsx abgelegt und versucht diese anzuhängen, aber leider bekomme ich das nicht hin.
Enttäuschenderweise bekomme ich aktuell überhaupt nichts angehangen.
Der VBA haut mir immer einen Laufzeitfehler '1004 um die Ohren. "Anwendungs- oder objektdefinierter Fehler
Das habe ich bisher zustande gebracht:
Private Sub CommandButton1_Click()
Dim path As String
Dim fname As String
Dim invno As Long
path = "C:\Users\ich\Eigene Dateien\Kalkulationen\"
invno = Range("A3")
fname = invno & " - " & Range("A1")
Application.DisplayAlerts = False
Tabelle1.Copy
ActiveSheet.Shapes("CommandButton1").Delete
With ActiveWorkbook
.SaveAs Filename:=path & fname, FileFormat:=51
.Close
End With
MsgBox "Ihre nächste KK- Nummer lautet " & invno + 1
Range("A3") = invno + 1
ThisWorkbook.Save
Application.DisplayAlerts = True
Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.BodyFormat = olFormatHTML
.Display
.To = "ich@mich.de"
.CC = ""
.Subject = "KK - " & Tabelle1.Range("A1").Value & " " & Tabelle1.Range("A2").Value & " " & Tabelle1.Range("A4").Value
.HTMLBody = "Hallo, ich bitte um Überprüfung angefügter Datei. Besten Dank vorab." & .HTMLBody
.Attachments.Add "C:\Users\ich\Eigene Dateien\Kalkulationen\Test.xlsx"
.Send
End With
End Sub
Über einen Tipp wäre ich sehr dankbar.
Ciao