Office: Konvertieren eines "Cuesheet-Makers" von LibreOffice zu Excel möglich?

Hallo,

ich höre sehr viel Musik und lade mir daher immer mal wieder ein Album im mp3-Format runter.
Leider ist es meist so, dass das komplette Album dann in EINER mp3-Datei abgespeichert ist.
Da ich jedoch meine Musik ausschließlich in Titel aufgesplittet speichere, ist es immer sehr nervig und aufwendig, die mp3-Datei in ihre einzelnen Titel aufzusplitten.
Das funktioniert z.B. mit dem Programm "mp3DirectCut" sehr gut... kostet aber ne Menge Zeit.

Daher habe ich mir jetzt ein kleines Programm gebastelt, in dem man lediglich die einzelnen Musiktitel eintragen muss, die jeweilige Laufzeit und natürlich den Interpret sowie den Namen des Albums.

Anschließend klickt man auf einen Button "Cuesheet erstellen" und aus den gemachten Angaben wird automatisch eine Datei "cuesheet.cue" erstellt. Diese Datei lädt man dann einfach z.B. ins Programm "mp3DirectCut" und erhält dann über "geteilt speichern" die fertig geschnittenen einzelnen Titel.

Soweit... sogut :-)

Leider habe ich Zuhause nur "LibreOffice Calc" und kein "MS Excel".
Zwar sind beide Programme einigermaßen kompatibel, aber wird in meinem Fall von Excel der in der Datei enthaltene VBA-Code nicht übernommen und somit funktioniert der Button nicht, der das Cuesheet erstellt.

Gibt es eine Möglichkeit, meine Datei auch in Excel nutzen zu können... inkl. Makro?

Danke und Grüße,
BN

 

Moin BN,
vielleicht stellst Du Dein LOC-Makro einfach hier mal ein. Dann kann man (wie ich auch ohne jegliche Ahnung vom LOC-VB) wahrscheinlich erkennen, was Du da ablaufen lassen willst und es nach XL-VBA übersetzen. So drei bis fünf Zeilen Deines CUE-Sheets wären hilfreich Eine ganze Datei muss nicht sein.

Kurz noch mal nachgedacht: Wäre ein Umweg über eine CSV-Datei denkbar?

Schöne Grüße

 

@d'r Bastler: Er sucht doch genau den umgekehrten Weg, nämlich von VBA nach LOC. Oh, sorry, total verlesen. Du hast natürlich recht!

Übrigens würde ich hier eher einen Weg suchen die MP3 bereits getrennt zu erhalten. Und so ganz nebenbei: ich habe noch erlebt, dass bei legal erworbenen Alben eine einzige MP3 für alle Titel geliefert wird. Aber das ist ein anderes Thema...

 

Moin Helmut
das Thema mit den One-Piece-MP3 stellt sich bspw. auch beim grabben von Vinyls, die man zuhause auf einem guten alten Turntable rotieren lässt. Da sind dann solche Scheibchenschneider durchaus hilfreich.

Schöne Grüße

 

Hallo und danke für die weiteren Infos.
Es geht hier ja nicht darum, woher die MP3-Datei kommt, sondern wie ich mein kleines Programm auch mit Excel öffnen kann.

Ich werde - wie in der ersten Antwort geschrieben - hier mal den Inhalt meines LibreOffice-Calc VBA-Scripts einstellen.
Nur weiß ich ja noch nicht, wo überhaupt das Problem liegt. Kann Excel das LibreOffice-Makro nicht verarbeiten? Wenn ja, wäre das Script natürlich ein guter Ansatz...

Code:

Sub ExportToText()
    Dim fso As Object, txtFile As Object, r as long, c as long
    Dim FILEPATH as String
    FILEPATH = Environ("USERPROFILE") & "\Desktop\cuesheet.cue"   
    
    Set fso = CreateObject("Scripting.FileSystemObject")   
    Set txtFile = fso.OpenTextFile(FILEPATH, 2, True)

    ' export data to textfile (.cue) from second sheet (1) 
    With ThisComponent.Sheets(1)
            ' export Range E3:E80 of the sheet 
        set exportRange = .getCellRangeByName("E3:E80").getRangeAddress() 
        for c = exportRange.startColumn to exportRange.endColumn
            for r = exportRange.startRow to exportRange.endRow
                  txtFile.WriteLine(.getCellByPosition(c,r).getString())
            Next
        Next
    End with
    ' close text file 
    txtFile.Close
    Set fso = Nothing
    Set txtFile = Nothing
End Sub

Bin gespannt...

Grüße,
BN

 

...kurze Zusatzfrage:
Wie passe ich den obigen "Base"-Code (LibreOffice) so an, dass das soeben erstellte Dokument (cuesheet.cue) auch gleich nach Speicherung automatisch geöffnet wird?
Und da eine .cue Datei eigentlich mit "Windows Media Player" od. "VLC-Player" etc. geöffnet werden, müßte noch im Code erfaßt werden, dass die Datei diesmal (ausnahmsweise) mit "Notepad++" geöffnet werden soll.

Grüße,
BN

 

Hallo
Oder ohne VBA :
Libre Office Datei als csv-Datei speichern und mit Power Query die csv einlesen und bearbeiten nach Wunsch

 

Hi,

ich kenne die Makro-Sprache von LO nicht. Aber dennoch folgende Hinweise:

Code:

With ThisWorkbook.Sheets(1) 'ThisComponent.Sheets(1)
            ' export Range E3:E80 of the sheet
        set exportRange = .Range("E3:E80") '.getCellRangeByName("E3:E80").getRangeAddress()
        for c = exportRange.Column to exportRange.Column + exportRange.Columns -1 'exportRange.startColumn to exportRange.endColumn
            for r = exportRange.Row to exportRange.Row + exportRange.Rows -1 'exportRange.startRow to exportRange.endRow
                  txtFile.WriteLine(.Cells(c,r)) 'txtFile.WriteLine(.getCellByPosition(c,r).getString())
            Next
        Next
    End with

Mangels Testdatei natürlich ungetestet…
Zum öffnen müsste man vermutlich einen Shell- oder Cmd-Befehl absetzen…

 

Moin BN,

Helmut's Ansatz wäre auch mein erster gewesen. ThisWorkBook statt ThisComponent. Außerdem funktionieren (und sicher nicht nur, aber z.B.) die WriteLines in XL etwas anders.

Wenn ich diese ganzen Detail-Unterschiede sehe, komme ich auch auf den Umweg über eine CSV zurück. In der kannst Du dann entweder mit PQ oder VBA wüten, wie Du Lust hast.

Hat das geklappt, kannst Du Deine MP3s per shell einzeln oder als Liste öffnen. Ist im Netz vielfach beschrieben.

Viele Grüße

 

Hi,

es müsste eigentlich so funktionieren, den txtFile ist doch ein Object das durch fso.openTextFile zurückgegeben wird. Und so ein Object sollte in VBA und in LibreOffice identisch sein und identische Methoden haben. Aber wie gesagt: ich habe es nicht getestet.

 

Vielen Dank für die weitere Hilfe und vor allem @HKindler für die Erstellung des Codes...

Sorry, aber das mit der Umwandlung in eine CSV-Datei habe ich noch nicht wirklich verstanden.
Kann das jemand von Euch nochmal etwas detaillierter erklären, was genau ich da tun muss?

Grüße,
BN

 

Moin BN,

CSV steht für Character Separated Values und ist ein universelles/Plattform-übegreifendes offenes, Text-basiertes Datenformat. Es wird häufig zum Austausch von Daten zwischen unterschiedlichen Anwendungen verwendet. So kann z.B. SQL zwar keine DATEV-Formate lesen, aber CSV können beide. Selbst Banken verwenden das CSV-Format DTaus zur automatisierten Verarbeitung von z.B. Überweisungsaufträgen.

Für Dich heißt das, dass Du Deine Tabelle in LO mit Speichern unter ... oder Exportieren als CSV speicherst. Eventuelle Text/Absatz-Formatierungen gehen dabei verloren, aber die haben in reinen Daten ja so wie so nichts zu suchen.

CSV verwendet ein paar wesentliche Strukturen: Enthält die erste Zeile Überschriften/Datenbezeichner oder bereits erste Daten?welches Zeichen wird als Zeilenende-Marker verwendet (UNIX, DOS, etc)?.

XL erkennt dies beim Import der Daten (Im Explorer Öffnen mit ... oder XL-Menü Daten > aus Text/CSV) automatisch, bzw. bietet Dir verschiedene Anpassungen zur Auswahl an.

Vorteil: Du braucht, um Deine Tabellen nach XL zu bekommen, weder hüben noch drüben eine Zeile VBA Code und kannst dann in XL mit den Daten alle Vorteile des Programms nutzen: Sortieren, filtern, ändern, standardisieren, usw.

Hoffe, das war in Deinem Sinne ....

Schöne Grüße

 

ok. Vielen Dank @d´r Bastler für die detaillierte Erläuterung.
Der "Base" Code, der sich in der Datei befindet, müsste aber dann dennoch in "VBA" Code umgewandelt werden, da dieser ja über diese Konvertierung ins "CSV"-Format nicht angepaßt wird. Da würde ich es dann mit dem Codevorschlag von @HKindler versuchen... richtig?

Grüße,
BN

 

Nix gegen den Code oben, aber mit CSV wird er unnötig.

Grüße

 

Hi,

in dem Sinn ist auch csv unnötig. Denn prinzipiell kann LO so eine Datei auch als xls(x) speichern. Ebenso kann Excel die odt-Dateien von LO direkt lesen. Fazit: Zwischenschritt csv ist überflüssig. Es bleibt das Problem, dass Excel den Code von LO nicht direkt ausführen kann.