Stapelverarbeitung

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

BrittHopps
Beiträge: 1
Registriert: Do, 07.09.2017 14:00

Stapelverarbeitung

Beitrag von BrittHopps » Do, 07.09.2017 14:31

Sorry, ich bin wirklich ganz neu und habe keine wirkliche Ahnung von Programmierung.
Ich muß 88 Tabellen von .csv nach .xls umwandeln, bin super happy diese Möglichkeit endlich ohne Umlautkauderwelsch mit Open Office gefunden zu haben. Nur eine Stapelverarbeitung wäre wirklich sehr erleichternd.

Kann mir da ein Profi Schritt für Schritt helfen?? Mit der einfachen Makro-Einstellung werden die Dateien überschrieben, das geht also nicht..

Schon mal Dank vorab!

Stephan
********
Beiträge: 10175
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Stapelverarbeitung

Beitrag von Stephan » Fr, 08.09.2017 09:26

zuerst alle csv-Dateien finden, z.B. wie in:
https://wiki.openoffice.org/wiki/Docume ... e_Library)

beispielsweise:

Code: Alles auswählen

Sub ShowFiles
  Dim NextFile As String
  Dim AllFiles As String
 
  AllFiles = ""
  NextFile = Dir("C:\", 0)
 
  While NextFile  <> ""
    If Rigtht(nextFile, 3) = "csv" Then
	'tue etwas
    End If
    NextFile = Dir
  Wend
 
End Sub
nun die csv öffnen, z.B. siehe:
http://www.starbasicfaq.de/Wiekannmanei ... l#Zweig135

in Verbindung mit den nötigen Filterangaben für csv, z.B. siehe:
http://www.starbasicfaq.de/filteroption ... eroptionen


und nun die geöffnete DAtei als xls speichern, z.B.:
http://www.starbasicfaq.de/WiekannmanDo ... l#Zweig136

oder siehe "Dokumente laden und speichern" in:
https://www.uni-due.de/~abi070/files/OO ... eutsch.pdf

beispielsweise:

Code: Alles auswählen

Dim args(0) As New com.sun.star.beans.PropertyValue
args(0).Name = "FilterName"
args(0).Value = "MS Excel 97"
ThisComponent.storeToURL(ConvertToURL("D:\meineDatei.xls"), args()) 

Gruß
Stephan

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 14 Gäste