Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Makro CSV als XLSX speichern und Name beibehalten?
11.08.2016 15:11:07 buumms
Solved

Ansicht des Beitrags:
Von:
buumms
Datum:
11.08.2016 15:11:07
Views:
842
Rating: Antwort:
 Nein
Thema:
Excel Makro CSV als XLSX speichern und Name beibehalten?

Hallo,

 

folgendes Problem. Ich habe einige sehr viele CSV Dateien mit allerhand Daten drinne (Daten wurden von einem Datenlogger an einer Maschine geschrieben). Diese CSV Dateien wandle ich nun in das XLSX Format um und bringe es gleichzeitig noch in eine übersichtliche "Tabellenform". Hierfür habe ich ein Makro geschrieben was an sich auch sehr gut funktioniert.

 

Nun wollte ich das Makro so ändern, dass er mir die Umgewandelte CSV gleich als XLSX mit gleichem Namen, also bspw. Test1.csv in Verzeichnis1 nach Test1.xlsx Verzeichnis2 speichert. Ist das irgendwie möglich? Aktuell habe ich pro Ordner 15 csv Dateien, diese öffne ich alle und arbeite für jede Datei das Makro ab und muss eben noch speichern. Diese extra Klicks wollte ich mir nur gerne sparen ;) Gibt es da eine Möglichkeit?

 

Hier mein VBA Code so far:

 

Sub ErsetzenUndSpeichern()
'
' ErsetzenUndSpeichern Makro
'
' Tastenkombination: Strg+l
'
    Columns("A:A").Select
    Selection.Replace What:=",", Replacement:=";", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    ActiveWorkbook.SaveAs Filename:= _
        "E:\OneDrive\Masterarbeit\### Messungen\#03 04.08.2016 0830 Uhr\Excel\TB_BK3_.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Ich denke mal auf diese Zeile kommt es an:

ActiveWorkbook.SaveAs Filename:= _
        "E:\OneDrive\Masterarbeit\### Messungen\#03 04.08.2016 0830 Uhr\Excel\TB_BK3_.xlsx" _

Dieses TB_BK3_.xlsx sollte automatisch aus dem gegeben Dateinamen gewählt werden. In diesem fall hier würde er ja jede Datei unter TB_BK3_.xlsx speichern wollen. Ich möchte aber das er sie bspw. unter TB_BK2_.xlsx speichert, wenn die entsprechende CSV aus der ich das Makro starte, eben auch so heißt.

Ich hoffe ihr wisst was ich meine und könnt mir weiter helfen.

 

VG,

Benjamin


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 Excel Makro CSV als XLSX speichern und Name beibehalten?
11.08.2016 15:11:07 buumms
Solved