Thema Datum  Von Nutzer Rating
Antwort
Rot Vorhandene Datei überschreiben ohne Nachfrage
 22.11.2022 19:02:42 ulli
NotSolved
22.11.2022 20:40:08 ralf_b
NotSolved
22.11.2022 21:39:14 Ulli
NotSolved

Ansicht des Beitrags:
Von:
ulli		 Datum:
22.11.2022 19:02:42		 Views:
1080		 Rating:
     
Antwort:
  Ja
Thema:
Vorhandene Datei überschreiben ohne Nachfrage

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Vorhandene Datei überschreiben ohne Nachfrage
 22.11.2022 19:02:42 ulli
NotSolved
22.11.2022 20:40:08 ralf_b
NotSolved
22.11.2022 21:39:14 Ulli
NotSolved