Thema Datum  Von Nutzer Rating
Antwort
29.11.2011 11:05:09 peter müller
Solved
Blau csv richtig erstellen
 29.11.2011 13:09:48 Dekor
NotSolved
29.11.2011 14:09:51 Peter
NotSolved
29.11.2011 19:17:26 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
29.11.2011 13:09:48		 Views:
1031		 Rating:
     
Antwort:
  Ja
Thema:
csv richtig erstellen

Hallo Peter

hab es etwas abgeändert

    Dim sThisFile As String
    Dim sCsvFile As String
    sThisFile = ThisWorkbook.FullName
    sCsvFile = "C:\Temp\Ergebnis.csv"
    ThisWorkbook.Save 'speichert aktuelle Arbeitsmappe
   
    With Application
       .ScreenUpdating = False
       .EnableEvents = False
       .DisplayAlerts = False
    
       Dim FSO As Object
       Set FSO = CreateObject("Scripting.FileSystemObject")
 
       'vorheriger code wird als csv abgespeichert

       ThisWorkbook.SaveAs Filename:=sCsvFile, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
       
        Dim wbThis As Workbook
        Set wbThis = Workbooks.Open(sThisFile) 'Datei wird in excel geöffnet
        ThisWorkbook.Close True
 
        MsgBox "Ihre Datei wurde erfolgreich als CSV abgespeichert! Sie finden Ihre Datei auf Ihrem Desktop mit dem Namen Ergebnis!"

       .ScreenUpdating = True
       .EnableEvents = True
       .DisplayAlerts = True
    End With

Gruß Detlev

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
29.11.2011 11:05:09 peter müller
Solved
Blau csv richtig erstellen
 29.11.2011 13:09:48 Dekor
NotSolved
29.11.2011 14:09:51 Peter
NotSolved
29.11.2011 19:17:26 Dekor
NotSolved