xls in csv umwandeln und per Mail versenden
07.11.2016 14:55:07
Marcus
ich habe folgendes Problem:
Ich speichere ein geöffnetes Tabellenblatt als csv ab, öffne die gespeicherte Datei und versende diese als Mail.
Wird die Datei als Mailanhang geöffnet habe ich "Kommas" als Trennzeichen (was nicht gewünscht ist). Öffne ich die
gespeicherte Datei im Explorer mit dem Editor, habe ich "Semikolon" als Trennzeichen.
Irgend etwas scheint beim Anhängen an die Mail die Trennzeichen zu vertauschen...
Jemand eine Idee?
Makro:
Sub Makro1_CSV_SEND2()
' Makro1_CSV_SEND Makro
ActiveSheet.SaveAs Filename:="C:\Temp\AQ03.csv", _
FileFormat:=xlCSV, CreateBackup:=False, local:=True
ChDir "C:\Temp"
Sheet.Open Filename:="C:\Temp\AQ03.csv", local:=True
Application.Dialogs(xlDialogSendMail).Show _
"mustername@musterfirma.com", "Musterbetreff"
End Sub