Templates by BIGtheme NET
|
Willkommen,
Gast
|
|
THEMA:
Listenansicht_Spalten befüllen 18 Mär 2023 20:39 #1
|
Hallo lieber Stefan
In dem beigefügten Skript werden 3 Listen nacheinander erstellt, Liste 1: Alle verfügbaren Comobjekte einer Excel Applikation Liste 2: Die Typenliste (also ob Methode oder Eigenschaft) Liste3: Eine etwas umfangreichere Liste sog. Definitionen- So, nun würde ich gerne Liste1 in Spalte 1, Liste 2 in Spalte 2 sowie Liste 3 in Spalte 3 der Listenansicht darstellen. Mir gelingt dies mit dem Eintragslistenassistent leider nicht. Wenn nur ein Eintrag in 'weitere Spalten' drinnen steht läuft das Skript zwar aber alles steht in Spalte 1 . Ansonsten, wenn bei 'weitere Spalten' ein zweiter Eintrag vorhanden = Fehlermeldung. Oder übersehe ich da etwas.
1 *** Excel_Comobject_Methoden_Eigenschaften auslesen.¶¶Im ersten Schritt werden ab Zeile 2 bis 5 die verfügbaren OLE oder COM Objektnamen ausgelesen,¶dann durch einen Stapel geschickt und in einem Meldungsfenster dargestellt, wie die erste Liste aussieht.¶¶ 2 Starte Powershell.exe '-NoLogo', warten bis beendet, Konsole, sende '$ExcelObj = New-Object -comobject Excel.Application ¶$ExcelObj | Get-Member | Select -ExpandProperty Name ¶exit', Empfang in [Name], verborgen 3 Setze in [cX.Stapel(Name).Liste]: '[Name]' 4 Setze in [cX.Stapel(Name).Entfernen]: 'PS?C*' 5 Meldung '[cX.Stapel(Name).Liste]', Titel 'Comobjekte EXCEL Namen', Buttons 'Nur OK', Symbol 'Information' 6 *** Excel_Comobject_¶Hier werden nun die Objekttype(Methode oder Eigenschaft) pro Objektname ausgelesen und dann durch einen Stapel geschickt und in einem Meldungsfenster dargestellt.¶Liste 2 fertig.¶¶ 7 Starte Powershell.exe '-NoLogo', warten bis beendet, Konsole, sende '$ExcelObj = New-Object -comobject Excel.Application ¶$ExcelObj | Get-Member | Select -ExpandProperty Membertype¶exit', Empfang in [Membertype], verborgen 8 Setze in [cX.Stapel(Membertype).Liste]: '[Membertype]' 9 Setze in [cX.Stapel(Membertype).Entfernen]: 'PS?C*' 10 Meldung '[cX.Stapel(Membertype).Liste]', Titel 'Comobjekte EXCEL Typen', Buttons 'Nur OK', Symbol 'Information' 11 *** Excel_Comobject_¶Hier werden nun die Definitionen pro Objektname ausgelesen und dann durch einen Stapel geschickt und in einem Meldungsfenster dargestellt.¶Liste 3 fertig.¶¶ 12 Starte Powershell.exe '-NoLogo', warten bis beendet, Konsole, sende '$ExcelObj = New-Object -comobject Excel.Application ¶$ExcelObj | Get-Member | Select -ExpandProperty Definition¶exit', Empfang in [Definition], verborgen 13 Setze in [cX.Stapel(Definition).Liste]: '[Definition]' 14 Setze in [cX.Stapel(Definition).Entfernen]: 'PS?C*' 15 Meldung '[cX.Stapel(Definition).Liste]', Titel 'Comobjekte EXCEL Definitionen', Buttons 'Nur OK', Symbol 'Information' 16 Anzeige-Fenster 'Das Excel Combobjekt', ID='hauptfenster', Rahmen: veränderbar Werkzeugfenster 17 *** Hier in dieser Listenansicht sollen nun jede einzelne Liste in einer Spalte dargestellt werden.¶So der Plan. 18 Listenansicht Typ 'Details', Spalten 'Name¶Type¶Definition', Inhalt '[cX.Stapel(Name).Liste];;;;;[cX.Stapel(Membertype).Liste];[cX.Stapel(Definition).Liste]' (ID='Listenansicht_1', Zielfenster='hauptfenster', Docking: ausfüllen) 19 Setze in [.Listenansicht(Listenansicht_1).AutoSpaltenbreite]: '-1' 20 Warte Endlos (Warten auf zu behandelnde Ereignisse)
lg Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web CodeListenansicht_Spalten befüllen 19 Mär 2023 11:57 #2
|
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
Listenansicht_Spalten befüllen 19 Mär 2023 17:51 #3
|
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
Listenansicht_Spalten befüllen 19 Mär 2023 21:05 #4
|
Hallo lieber Stefan.
In dem Kontext habe ich noch versucht mit einer Spezialschleife die Spalte 1 einer Listenansicht zu befüllen. Zeile 11 (cX.Anzeige.Listenansicht.Eintrag.Text) und 12 (cX.Anzeige.Listenansicht.Zelle) zeitigen bei mir leider kein Ergebnis.
1 *** Listenansicht befüllen 2 Starte Powershell.exe '-NoLogo', warten bis beendet, Konsole, sende '$ExcelObj = New-Object -comobject Excel.Application ¶$ExcelObj | Get-Member | Select -ExpandProperty Name ¶exit', Empfang in [Name], verborgen 3 Setze in [cX.Stapel(Name).Liste]: '[Name]' 4 Setze in [cX.Stapel(Name).Entfernen]: 'PS?C*' 5 Anzeige-Fenster 'Das Excel Combobjekt', ID='hauptfenster', Rahmen: veränderbar Werkzeugfenster 6 *** Hier in dieser Listenansicht soll nun mit der untenstehenden Spezialschleife Spalte 1 befüllt werden. 7 Listenansicht Typ 'Details', Spalten 'Name¶Type¶Definition' (ID='Listenansicht_1', Zielfenster='hauptfenster', Docking: ausfüllen) 8 Schleife ab hier mit Variable [objnamen] über Liste: '[cX.Stapel(Name).Liste]' 9 Warte Pause, Dauer 200ms (10 Setze in [cX.Anzeige(hauptfenster).Titel]: '[objnamen] [i++]' (11 Setze in [cX.Anzeige(hauptfenster).Listenansicht(Listenansicht_1).Eintrag([i++];Name).Text]: '[objnamen]' 12 Setze in [cX.Anzeige(hauptfenster).Listenansicht(Listenansicht_1).Zelle([i++];Name)]: '[objnamen]' 13 Schleife bis hier 14 Setze in [.Listenansicht(Listenansicht_1).AutoSpaltenbreite]: '-1' 15 Warte Endlos (Warten auf zu behandelnde Ereignisse)
lg Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
Listenansicht_Spalten befüllen 20 Mär 2023 10:12 #5
|
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
Listenansicht_Spalten befüllen 20 Mär 2023 11:57 #6
|
Hallo, Christian!
Deine Versuche, in .Text oder .Zelle einer nicht existierenden Zeile zuzugreifen, schlagen natürlich fehl - diese Anweisungen sind nur für vorhandene Zeilen gedacht. Da wäre schon besser, eine Zeile hinzuzufügen...! Außerdem ist das mit dem i++ schon raffiniert gemacht, aber du musst i auch erstmal auf 1 setzen, sonst wird anfangs Zeile "" bzw. 0 versucht. Ansonsten: Bitte setze weitere Beiträge, die mit dem ursprünglichen Thema nix mehr zu tun haben (OLEObjekt), in ein eigenes Thema, damit das zuzuordnen ist (und sinnvoll beantwortet werden kann), ja? Ist ja nicht wirklich "in diesem Kontext". Sonst haben wir hier Äpfel und Birnen drin - Obstsalat... 
Deine Fragen zum OLEObjekt schaue ich mir aber mal an - ist ja zugegebenermaßen auch kniffelig... Liebe Grüße Stefan |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
|