Wie kann ich vba-code kompatibel mit libre office

Ich habe vor kurzem migriert, um pclinuxos von windows und scheinen es zu mögen. Das einzige problem, das ich konfrontiert ist, dass libreoffice die Standard-spreadsheet-Paket ist nicht kompatibel mit excel-Makros. Unten ist der vba-code habe ich:

Option VBASupport 
Sub DeleteToLeft()
    Selection.SpecialCells(xlBlanks).Delete shift:=xlToLeft
End Sub
Function SinceLastWash()
    Application.Volatile
    WashCount = 0
    WearCount = 0
    CurrentRow = Application.ThisCell.Row
    For i = 3 To 35
        If Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = "a" Then
            WearCount = WearCount + 1
        End If
        If Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = "q" Then
            WashCount = WashCount + 1
            WearCount = 0
        End If
    Next i
    SinceLastWash = WearCount
End Function
Function testhis()
testhis = Application.ThisCell.Row
End Function

Gibt es eine Möglichkeit, konvertieren Sie diesen code, um es kompatibel mit libreoffice oder muss ich lernen eine ganz neue Sprache wie python? Learning python wäre kein problem, aber keine Lösung zu meinem problem, ich habe viel Arbeit Verwandte Dateien in excel, die eine Menge von vba-code und es ist mir nicht möglich, die Nutzung von open office/libreoffice bei der Arbeit...

Ich möchte nur hinzufügen, dass die Funktion SinceLastWash gibt den richtigen Wert in Zellen wo ich es verwenden und in andere einen Fehler, dann #NAME?

Dank

InformationsquelleAutor user3125707 | 2014-07-13
  1. 1

    Müssen Sie übersetzen die Teile zu manipulieren, dass das Dokument mit der UNO-API. Leider, dies kann schwierig sein, je nachdem, was dein makro macht. Basic-Anweisungen direkt. Ändern eines Dokumentes in der Regel nicht.

    Range(Cells(CurrentRow, i), Cells(CurrentRow, i)).Value = "a"

    Den Zellen den Befehl gibt eine bestimmte Zelle basiert auf einer Zeile und Spalte. So müssen Sie die aktuelle Zeile. Hier ist es etwas Verrücktheit, um die aktive Zelle:

    Sub RetrieveTheActiveCell()
  Dim oOldSelection 'The original selection of cell ranges
  Dim oRanges       'A blank range created by the document
  Dim oActiveCell   'The current active cell
  Dim oConv         'The cell address conversion service
  Dim oDoc
  oDoc = ThisComponent

  REM store the current selection
  oOldSelection = oDoc.CurrentSelection

  REM Create an empty SheetCellRanges service and then select it.
  REM This leaves ONLY the active cell selected.
  oRanges = oDoc.createInstance("com.sun.star.sheet.SheetCellRanges")
  oDoc.CurrentController.Select(oRanges)

  REM Get the active cell!
  oActiveCell = oDoc.CurrentSelection

  oConv = oDoc.createInstance("com.sun.star.table.CellAddressConversion")
  oConv.Address = oActiveCell.getCellAddress
  Print oConv.UserInterfaceRepresentation
  print oConv.PersistentRepresentation

  REM Restore the old selection, but lose the previously active cell
  oDoc.CurrentController.Select(oOldSelection)
End Sub

    Wenn Sie der aktiven Zelle erhalten Sie die Adresse der Zelle, und Sie haben die Zeile. Sie nicht brauchen, um verwenden Sie die Palette, denn Sie kümmert sich nur darum, eine einzelne Zelle, so bekommen Sie das aktive Blatt und dann get eine bestimmte Zelle aus dem Blatt.

    Etwas wie dieses:
    ThisComponent.getCurrentController().getActiveSheet().getCellByPosition(nCol, nRow).getString() = "a"

    Ich habe keine Lust, herauszufinden, was dieser tut,

    Selection.SpecialCells(xlBlanks).Delete shift:=xlToLeft
    InformationsquelleAutor Andrew
  2. 7

    Vom LibreOffice die online-Hilfe-Datei:

    Wenige Ausnahmen können Microsoft Office und LibreOffice nicht dieselben makro-Codes ausführen. Microsoft Office arbeitet mit VBA (Visual Basic for Applications) - code, und LibreOffice mit Basic-code, basierend auf der LibreOffice-API (Application Program Interface) - Umgebung. Die Programmiersprache ist hier zwar das gleiche, die kommen unterschiedliche Objekte und Methoden.

    Die aktuelle Version von LibreOffice kann einige Excel Visual Basic Skripte aktivieren Sie dies unter LibreOffice - EinstellungenExtras - Optionen - Laden/Speichern - VBA-Eigenschaften.

    In der Realität, würden Sie wahrscheinlich benötigen, setzen Sie sich mit die LibreOffice-API und schreiben Sie die Funktionalität.

    • Ein besonderes Merkmal von Libre Office, IBM fork von Open Office, die Sun-version von StarWriter, war, dass es hatte einige Unterstützung für VBA und lief "einige Excel Visual Basic Skripte". Die online-Hilfe-Datei zeigt die Diskontinuität der Geschichte für Menschen, die Verlagerung von Apache Open Office zu Libre Office.
    InformationsquelleAutor RubberDuck
  3. 2

    Nur die automatische Werkzeug, das ich bewusst bin, ist Business-Tabellen (beachten Sie, dass ich keine persönlichen oder beruflichen Erfahrungen noch in keiner Verbindung mit der Website).

    Es scheint spezifisch für OpenOffice, aber ich denke, es funktioniert mit LibreOffice auch.

    Im Allgemeinen jedoch, sind Sie besser dran, dies zu tun selbst, das tool ist weit von perfekt...

    InformationsquelleAutor djikay
  4. 2

    In LibreOffice 4.4, die erste Unterroutine wird überhaupt nicht funktionieren (ich vermute, wegen all der Variablen, beginnend mit 'xl'. Die beiden anderen perfekt funktionieren, wenn Sie ändern ThisCell zu ActiveCell.

    Eher als 

    Option VBASupport

    Ich bin mit 

    Option VBASupport 1
Option Compatible
    InformationsquelleAutor A. Harding
  5. 0

    Selection.SpecialCells(xlBlanks).Delete shift:=xlToLeft löscht leere Zellen, wenn ich mich nicht Irre

    InformationsquelleAutor coleman984
Schreibe einen Kommentar