Hallo, wie kann ich eine vorhandene Datei überschreiben ohne Nachfrage?
Versucht habe ich "ConflictResolution:=xlLocalSessionChanges" funktioniert aber nicht.
Danke vorab
Ulli
Option Explicit
'Projekt Buecherlisten per ISBN-Scan´s erstellen für BOOKcook- Import
Sub RangetoCSV_Export() 'Speichert markierte Zellbereiche in eine Semikolongetrennte *.CSV-Datei
Dim Rng As Range
Dim WorkRng As Range
Dim xFile As Variant
Dim CSVName As String
CSVName = "CSV-Transfer" 'Name der zu erstelleden CSV-DAtei
On Error Resume Next
Set WorkRng = Application.Selection 'Markierter Zellbereich wird Arbeitsbereich
Application.ActiveSheet.Copy 'Kopiert in neues Workbook unter "Mappe_n)
Application.ActiveSheet.Cells.Clear 'löscht alle Zellen in neuer Mappe_n
WorkRng.Copy Application.ActiveSheet.Range("A1") 'Kopiert "Bereich/Range" ab A1 in Mappe_n
'Speichert die Mappe in aktuellem Pfad der Exeldatei als CSV
Application.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & CSVName, FileFormat:=xlCSV, _
CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges, Local:=True
'Application.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & CSVName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Application.ActiveWorkbook.Close True 'Schließt die erstellte Arbeitsmappe
End Sub
|