OpenOffice.info

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

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()) 

zuerst alle csv-Dateien finden, z.B. wie in:
https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Files_and_Directories_(Runtime_Library)

beispielsweise:

[code]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
[/code]
nun die csv öffnen, z.B. siehe:
http://www.starbasicfaq.de/WiekannmaneineDateiffnen.html#Zweig135

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


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

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

beispielsweise:

[code]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())

[/code]
Gruß
Stephan

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!