OpenOffice.info

balu hat geschrieben: ...Workbook, auch wenn Du 10 Jahre oder wie auch immer mit VBA gearbeitet hast. Das führt hier nur zur Verwirrung.

Weil Du dir wahrscheinlich einen abquälst Daten aus der *.Lis-Datei einzulesen. Denn so habe ich das aus deinen vorigen Beiträgen herausgelesen. Und nach dem einlesen brichst Du dir dann auch noch einen ab, um die Daten irgendwie sortiert (oder wie auch immer) in eine Calc-Datei einzupflegen.

Ferner wollen wir endlich mal deinen Makrocode sehen um endlich voran zu kommen.

... und Du müsstest vielleicht auf Python umsteigen.

Schon mal was von der richtigen Variablendeklaration (Öffentlich, Privat) gehört, und wie man sie wo richtig einsetzt?

Das aller letzte mal das Du darauf hingwiesen wirst dir entweder XRAY oder MRI zu installieren, kannst auch beide nehmen.

balu hat geschrieben:WO IST DAS MAKRO?

WO IST DIE *.Lis?


gruß
balu

Daran hatte ich auch erst gedacht - Das ginge, wenn in der Sub klar wäre, in welchem TC sich das CellObject befindet - da ist die Übergabe deutlich einfacher.

In der Grundebene sind natürlich die WorkbookObjecte (bei dir TC, Tc2, Tc3) bekannt - nur halt nicht in der Sub verfügbar. Ich werde die Sub so aufbohren, dass sie das betreffende Workbook (wie heißt das eigentlich im StarBasic?)

Gesucht war aber die letzte Zelle in einem geschlossenen DatenBlock - wie ich diese Spalte mit dieser Methode finde ??

Außerdem habe ich leider (noch) nicht verstanden, was an einem CursorObject ungünstiger als an einem Cell-/RangeObject sein soll.

ThisComponent.LockControllers
ThisComponent.UnLockControllers

Das stimmt so nicht, Stephan hat nur geschrieben das du idR. kein Cursorobjekt benötigst.

...eine Riesendiskussion die nur darauf beruht das Du meinst StarBasic-Programmierung müsse sein wie VBA-Programmierung bzw. Dir das wünscht.

... denn die Rede war immer nur von STRG+<Pfeiltaste>....
...es könnte mehrere Bereiche geben

...sondern eine Selektion und die ist deswegen ungünstig weil Du nicht willst das die Bildschirmanzeige flackert wenn mehrfach die Selektion wechselt...

...das Kopieren eines Tabellenblattes mit Inhalt...

7.3.6 Wie kann man Zellbereiche kopieren?
und
7.4.4 Wie kann man Arbeitsblätter löschen, erzeugen,kopieren und verschieben?

Wenn ich Dannenhöfer richtig gelesen habe

Stephan hat geschrieben: Was wir hier im Moment machen ist eine Riesendiskussion die nur darauf beruht das Du meinst StarBasic-Programmierung müsse sein wie VBA-Programmierung bzw. Dir das wünscht.

StePfl hat geschrieben:

... denn die Rede war immer nur von STRG+<Pfeiltaste>....
...es könnte mehrere Bereiche geben

Dann habe ich mich nicht genau genug ausgedrückt.
Ich würde gerne mit Basic den Vorgang nachbilden, den ich bisher manuell mit "Strg+>Pfeiltaste> und inzwischen mit angepassten Dispatcher-Routinen ausführe.
...und - JA - es gibt mehrere Bereiche, deren Anzahl und Größe jedesmal variieren. Genau deshalb suche ich ja nach einer Methode, diese a) zu finden, b) deren Umfang zu ermitteln um diesen Bereichen dann c) eineindeutige Namen zuzuweisen um sie in den Auswerteformeln (als Range) addressieren/ ansprechen zu können.

Stephan hat geschrieben: ... es geht richtigerweise um:

'_Ein_ Beispiel für einen solchen Ausnahmefall ist das Kopieren eines Tabellenblattes mit Inhalt zwischen verschiedenen Calc-Dokumenten [...]'

Mit Inhalt und Zellformat Vorlagen und Bedingte Formatierung, aber ohne Spaltenbreite und Zeilenhöhe geht via "Übertragbarer Inhalt", nachzulesen in Andrew Pitonyak. Und ja, zwischen zwei Calc-Dokumenten. Eben in OOo 3.3.0 getestet, nachdem ich den Code von Andrew leicht angepasst hatte (weil oDoc1 und oDoc2 nicht definiert sind).

ich höre das Stöhnen von Balu schon jetzt ...

function oStrgDownStarBasic_2(optional oCell as object) as object
    dim oDoc, oSheet, oRange, oCurs
    dim hlp, hlp1, hlp2, hlp3, hlp4, hlp5

    oDoc = thisComponent
    if isMissing(oCell) then 
        dim oCell
        oSheet=ThisComponent.CurrentController.ActiveSheet
        oCell = ThisComponent.CurrentSelection
    else 
        redim preserve oCell
        oSheet = oCell.getSpreadSheet  ' FEHLERMELDUNG:  BASIC-Laufzeitfehler. Variable nicht definiert.    
[...]

    dim oDoc, oSheet, oRange, oCurs
    dim hlp, hlp1, hlp2, hlp3, hlp4, hlp5

    dim oDoc, oSheet, oRange, oCurs

    dim oDoc as Object, oSheet as Object, oRange as Object, oCurs as Object

    dim hlp, hlp1, hlp2, hlp3, hlp4, hlp5

Ich habe nur Probleme, wenn das übergebene Object "optional" übergeben wird - da bekomme ich Fehlermeldungen, die ich nicht verstehe.
z.B. in "oStrgDownStarBasic_2(optional oCell as Object)" stört sich das Prg an "oSheet = oCell.getSpreadSheet"
und meldet:BASIC-Laufzeitfehler. Variable nicht definiert, obwohl die Datei "oCell" im Beobachter vorhanden und mit Inhalten eingesehen werden kann.

function oStrgDownStarBasic_2(optional oCell as object) as object
[...]
    if isMissing(oCell) then 
        dim oCell
    else 
        redim preserve oCell
[...]
 

    oDoc = thisComponent
    if isMissing(oCell) then 
        dim oCell
        oSheet=ThisComponent.CurrentController.ActiveSheet
        oCell = ThisComponent.CurrentSelection

in "Dateianhänge" wird die Datei "Muster.lis" mit dem Hinweis auf "Ungültige Dateierweiterung: Muster.LIS" verweigert.

... Wie war das noch mal? Du kennst Dannenhöfer und Pitonyak, deine Aussage. ...

Aus diesem Codeausschnitt interessiert uns jetzt erstmal nur folgender Teil.

Code: Alles auswählen

    dim oDoc, oSheet, oRange, oCurs
    dim hlp, hlp1, hlp2, hlp3, hlp4, hlp5

Frage: wieviele Variablen sind dort richtig deklariert? .... KEINE...

Tja, was machst Du denn auch hier, weißt Du das ganz genau?

Code: Alles auswählen

function oStrgDownStarBasic_2(optional oCell as object) as object
[...]
    if isMissing(oCell) then 
        dim oCell
    else 
        redim preserve oCell   
[...]

Nimm ne andere Dateiendung, wie z.B. .txt oder .zip (aber mit dem Vermerk nur die Endung zu tauschen).