OpenOffice.info

Hallo,

vielen Dank für die Lösungsansätze.
Ich mache es jetzt einfach über Einfügen und Tabelle einfügen.

Viele Grüßr

Hallo Norman,
OOo_Calc importiert generell " *.xls oder *.xlsx " Dateien mit Doppelklick . Auch "VBA-Makros" werden importiert und mit "Hochkomma" ( ' ) in "Text"
gewandelt.
[i][b]Bedingte Formatierungen[/b][/i][b] von "xls" können nicht angezeigt werden, da die[/b] "[i][b]Bedingte Formatierung" in "OOo_Calc" anders erstellt werden.[/b][/i]
Siehe :
[url]http://www.ooowiki.de/CalcFormatBedingt[/url]
Als[b] "Extension"[/b] gibt es ein Makro "[b]mottco" mit dem mehr als 3Farben gargestellt werden[/b].
Siehe hier :
http://www.calc-info.de/makros.htm
Ich hoffe das hilft Dir weiter, sonst wende Dich an das Forum : OOo_Basic / Java (siehe Forumsübersicht)

mfg
Gert

Hallo Norman,

[quote="12dis02424"]nur das halt nicht die Formate übernommen werden[/quote]

Das funktioniert leider nicht mit getDataArray und setDataArray. :?
Damit werden nur Werte und Text kopiert, also keine Formeln und Formate.

Wenn Du Formate mit kopieren willst musst Du das über die Kopierfunktion (Zwischenablage) machen.
Beigefügt mal ein Beispiel aus meiner Grabbelkiste in dem ein Zellbereich in ein neues Dokument kopiert wird.
Vielleicht kannst Du damit was anfangen.

Viel Erfolg.

Jürgen

Sub Main
    Dim sPath, fullPath, iVal, iResult As String
    Dim r  as Integer
    Dim oDocument, thisDoc, oSheet, ocell1, oVal, oSrcRange, oDstRange as Object

    ' Start und Endposition fuer CellRangeByPosition festlegen
    CRBP_L = 0 ' CellRangeByPosition Links      Spalte A
    CRBP_O = 1 ' CellRangeByPosition Oben      Zeile 1
    CRBP_R = 13 ' CellRangeByPosition Rechts   Spalte N
    CRBP_U = 801 ' CellRangeByPosition Unten   Zeile 801

    sPath = "c:\Dokumente und Einstellungen\user\Desktop\Test" & getpathseparator 'Ort der die Dateien enthält >> Pfad anpassen!
    r = 1 'Startwert Zeile setzen
    sFileName = Dir$(sPath & getPathSeparator() & "*", 0)
'    Do
      fullPath = converttourl(sPath & sFileName)
      sFileName = Dir$
      'folgend Quelldokument im Hintergrund öffnen
      dim myFileProp(0) as New com.sun.star.beans.PropertyValue
      myFileProp(0).name = "Hidden"
      myFileProp(0).value = true
      oDocument = StarDesktop.loadComponentFromURL(fullPath, "_blank", 0, myFileProp())

      'Werte aus Quelldokument lesen
      oSheet = oDocument.sheets(0) 'erstes Tabellenblatt des Quelldokumentes
      oSrcRange = osheet.getCellRangeByPosition(CRBP_L,CRBP_O,CRBP_R,CRBP_U) 'Spalte A , Zeile 1, Spalte N, Zeile 801
      oDataArray = oSrcRange.getDataArray

      'Werte in das Zieldokument schreiben
      thisDoc = thisComponent 'Zieldokument ansprechen
      oSheet = thisDoc.sheets(0) 'erstes Tabellenblatt der Zieldatei
      oDstRange = osheet.getCellRangeByPosition(CRBP_L,CRBP_O,CRBP_R,CRBP_U) 'Spalte A , Zeile 1, Spalte N, Zeile 801
      oDstRange.setDataArray(oDataArray)
    
      redim myFileProp
      oDocument.close(true) 'Quelldokument schliessen
'    Loop Until sFileName = ""
    msgbox "Fertig !!!" ,64 , "Dateien auslesen"
End Sub

Hallo paljass,

das Makro habe ich hier bei openoffice.info gefunden und sieht wie folgt aus.

[code]Sub Main
Dim sPath, fullPath, iVal, iResult As String
Dim r as Integer
Dim oDocument, thisDoc, oSheet, ocell1, oVal, oSrcRange, oDstRange as Object

' Start und Endposition fuer CellRangeByPosition festlegen
CRBP_L = 0 ' CellRangeByPosition Links Spalte A
CRBP_O = 1 ' CellRangeByPosition Oben Zeile 1
CRBP_R = 13 ' CellRangeByPosition Rechts Spalte N
CRBP_U = 801 ' CellRangeByPosition Unten Zeile 801

sPath = "c:\Dokumente und Einstellungen\user\Desktop\Test" & getpathseparator 'Ort der die Dateien enthält >> Pfad anpassen!
r = 1 'Startwert Zeile setzen
sFileName = Dir$(sPath & getPathSeparator() & "*", 0)
' Do
fullPath = converttourl(sPath & sFileName)
sFileName = Dir$
'folgend Quelldokument im Hintergrund öffnen
dim myFileProp(0) as New com.sun.star.beans.PropertyValue
myFileProp(0).name = "Hidden"
myFileProp(0).value = true
oDocument = StarDesktop.loadComponentFromURL(fullPath, "_blank", 0, myFileProp())

'Werte aus Quelldokument lesen
oSheet = oDocument.sheets(0) 'erstes Tabellenblatt des Quelldokumentes
oSrcRange = osheet.getCellRangeByPosition(CRBP_L,CRBP_O,CRBP_R,CRBP_U) 'Spalte A , Zeile 1, Spalte N, Zeile 801
oDataArray = oSrcRange.getDataArray

'Werte in das Zieldokument schreiben
thisDoc = thisComponent 'Zieldokument ansprechen
oSheet = thisDoc.sheets(0) 'erstes Tabellenblatt der Zieldatei
oDstRange = osheet.getCellRangeByPosition(CRBP_L,CRBP_O,CRBP_R,CRBP_U) 'Spalte A , Zeile 1, Spalte N, Zeile 801
oDstRange.setDataArray(oDataArray)

redim myFileProp
oDocument.close(true) 'Quelldokument schliessen
' Loop Until sFileName = ""
msgbox "Fertig !!!" ,64 , "Dateien auslesen"
End Sub


[/code]

Ich habe mir das Makro schon soweit angepasst, nur das halt nicht die Formate übernommen werden.


Vielen Dank

Norman

Hallo,

ich bin neu in diesem Forum und seit einigen Stunden auf der Suche im Netz nach der Lösung für folgendes Problem.

Ich möchte mit einem Makro eine Excel Tabelle in eine ODS Tabelle importieren aber das Format der Exceltabelle soll beibehalten werden.
(Farbig, verschiedene Schriftarten, Gruppierungen ....usw)
Ich habe hier zwar ein tolles Makro zum importieren gefunden allerdings werden die Formatierungen nicht übernommen.

Kann mir einer bitte helfen ????

Vielen Dank
Norman