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

Stimmt auffällig .

Aber welchen Code braucht es dann noch? Ich kann im OL C-Code nichts entdecken, was VBA noch verwurschteln müsste.

Ungeachtet dessen: Das Thema OL C-Code 2 XL-VBA generell bleibt ein spannendes! Werde ich wohl bei Gelegenheit mal was VBAsteln ...

Grüße

 

@HKindler
ja, genau so ist es.
Das Problem ist am Ende einfach nur, dass der im Dokument eingefügte Button, der den Inhalt aus den entspr. Zellen in eine Textdatei (bzw. .cue) übertragen soll, in Excel nicht funktioniert, da er im Original halt Base-Code von LibreOffice enthält und keinen VBA-Code.

Grüße
BN

 

Hi,

hast du den Code denn jetzt mal getestet?

Wie oft brauchst du den Button? Richt es dir nicht, das, was in der Datei landen soll, in Excel zu markieren, kopieren und dann in deinem Texteditor einzufügen?
Vielleicht brauchst du auch gar kein Excel. Notepad++ hat ganz tolle plugins, die das Arbeiten mit Tabellen enorm erleichtern.

 

@HKindler

Den Button brauche ich halt jedesmal...
Und ich wollte eben gerade vermeiden, dass man noch manuelle Kopiervorgänge machen muss.
Außerdem steht das Ergebnis in einem anderen Tabellenblatt und das habe ich (absichtlich) gesperrt. Daher kann man von dort auch nichts heraus kopieren...

Du hattest ja diesen Code hier vor kurzem hier eingefügt:

Code:

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

Ich werde es damit mal versuchen...
Leider konnte ich heute das Dokument hier am anderen Rechner noch nicht öffnen, da es sich mit Excel nicht öffnen lies. Es kam ein Hinweis, dass das .ods-Dokument ein Kennwort enthält und dann kann Excel es wohl nicht öffnen.
Daher muss ich zunächst das Kennwort entfernen und es dann erneut versuchen. Dann setze ich mal den VBA-Code von Dir ein und teste...

Grüße,
BN

 

Hi,

du hast den Code seit Dienstag und ihn immer noch nicht getestet? Dann kann kann es ja wahrlich nicht besonders dringend sein. Aber sei gewarnt: der von mir gezeigte Code ist nur ein Ausschnitt. Er ersetzt nur den entsprechenden Teil deines Codes. Du brauchst als noch das ganz drumherum wie z.B. die Deklarationen etc.

Und nochmals so ganz nebenbei gefragt: ich verstehe ja, wenn man etwas von Excel nach LO portieren will (da es Excel z.B. nicht auf Linux gibt bzw. Einfach Geld kostet, während LO kostenlos zu haben ist. Aber wieso will man unbedingt etwas von LO nach Excel bringen? Installier doch einfach LO auf dem entsprechenden Rechner und gut ist‘s.

 

Hallo HKindler,

das Problem ist, dass ich LO Zuhause habe und Excel auf meiner Arbeit. Daher kam ich - aufgrund von Terminen - einfach noch nicht dazu, es zu testen und ich darf auf meinem Arbeits-PC natürlich nicht einfach LO installieren ;-).

Eben habe ich es jedoch getestet und der Code beginnt schon mit einer Fehlermeldung.
Ich habe dann mal über "Makro aufzeichnen" einfach die Schritte durchgeführt. Das geht jedoch nur innerhalb der Excel-Datei... nicht für die Erstellung der .cue-Datei, in die dann das Ergebnis einkopiert wird.

Dabei entstand folgender Code:

Code:

Sub test()
'
    Sheets("Tabelle2").Select
    Range("E3:E80").Select
    Selection.Copy
    Application.WindowState = xlNormal
End Sub

Jetzt fehlt nur noch der Teil, wo dann der kopierte Bereich (E3-E80), der ja jetzt im Zwischenspeicher ist, in eine TXT-Datei einkopiert wird, die jedoch nicht als .txt, sondern als .cue abgespeichert werden soll mit dem Namen "cuesheet.cue".

Vielleicht könnt Ihr da ja nochmal weiterhelfen.

Grüße,
BN

 

Moin BN
Du kannst auf das Geselecte völlig verzichten, indem Du folgenden Code in Dein Sheet kopierst:

Code:

Sub WriteTXT()
Dim r As Integer, iFile As Integer
Dim sFile As String
sFile = ThisWorkbook.Path & "\cuesheet.cue"
iFile = FreeFile

Open sFile For Append As #iFile

For r = 3 To 80
    Print #iFile, Cells(r, 1)
Next r

Close #iFile
MsgBox "!"
End Sub

Die Sub ist unsichtbar schnell, daher die MsgBox, die signalisiert, dass er fehlerfrei durchgelaufen ist. Wichtig: Die Datei muss mind. einmal gespeichert worden sein, sonst weiß VBA nicht, wohin mit der .cue.

Hinweis: Append fügt die neuen Daten einer bestehenden Datei hinzu. Willst du immer nur eine Version, löscht Du die Datei in Zeile 5 mit Kill sFile. Alternativ kannst Du auch Output statt Append verwenden. Dann wird überschrieben statt hinnzugefügt.

Schöne Grüße

 

Vielen Dank @d´r Bastler

Du meinst, dass sich also vorab schon mal eine Datei mit dem Namen "cuesheet.cue" auf dem Desktop befinden muss?
Und... woher weiß das VBA, dass es auf dem jeweiligen User-Desktop speichern soll?
Ich sehe da keinen Code-Teil mit z.B.:

Code:

Dim FILEPATH as String
FILEPATH = Environ("USERPROFILE") & "\Desktop\cuesheet.cue"

Geht das nicht auch mit einem solchen Code?
Dann muss nicht zwangsläufig schon vorab die Datei auf dem Desktop liegen...
Und... überschreiben wäre auf jeden Fall die bessere Variante ;-)

-----------
Update:
Gerade habe ich Deinen Code getestet - mit Output statt Append - und die auf dem Desktop vorhandene Datei "cuesheet.cue" wurde nicht verändert. Dennoch wurde das Ausrufezeichen angezeigt, nachdem das Makro ausgeführt wurde.

Grüße,
BN

 

Moin BN
Du kannst auf das Geselecte völlig verzichten, indem Du folgenden Code in Dein Sheet kopierst:

Code:

Sub WriteTXT()
Dim r As Integer, iFile As Integer
Dim sFile As String
sFile = ThisWorkbook.Path & "\cuesheet.cue"
iFile = FreeFile

Open sFile For Append As #iFile

For r = 3 To 80
    Print #iFile, Cells(r, 1)
Next r

Close #iFile
MsgBox "!"
End Sub

Die Sub ist unsichtbar schnell, daher die MsgBox, die signalisiert, dass er fehlerfrei durchgelaufen ist. Wichtig: Die Datei muss mind. einmal gespeichert worden sein, sonst weiß VBA nicht, wohin mit der .cue.

 

Moin nochmal!
Hier gibt's ein bisschen mehr zum Thema TXT-Datei

Schöne Grüße

 

...danke für den Link.
Aber das Problem ist ja, dass es mit dem von Dir oben eingefügten Code nicht funktioniert.
Die auf dem Desktop liegende Datei "cuesheet.cue" bleibt unverändert.
Es wird also kein Inhalt aus der Excel-Datei dort eingefügt und auch nichts gelöscht, was vorher darin stand.

Grüße,
BN

 

Danke Euch... Problem hat sich erledigt. Habe es jetzt mit anderer Hilfe hinbekommen.

Hier der VBA-Code, der auch funktioniert:

Code:

Sub Cuesheet
   Dim fso As Object, txtFile As Object, cell as Range, FILEPATH as String
   FILEPATH = Environ("USERPROFILE") & "\Desktop\cuesheet.cue"     
   Set fso = CreateObject("Scripting.FileSystemObject")     
   Set txtFile = fso.OpenTextFile(FILEPATH, 2, True)
   With Sheets(2)
       For Each cell In .Range("E3:E80" & .Cells(Rows.Count, "E").End(xlUp).Row)     
           txtFile.WriteLine cell.Value
       Next
   End With
   txtFile.Close
   Set fso = Nothing
   Set txtFile = Nothing
End Sub

Grüße,
BN

 

Natürlich nicht! Denn die wird von XL einfach im selben Verzeichnis angelegt, in der sich die XL-Datei befindet.

... und das war offensichtlich nicht der Desktop. Nicht die alte Cuesheet ist entscheidend, sondern der Speicherort Deiner XL-Datei. Schau doch da noch mal nach

Grüße