Office: Custom UI Editor XML Excel

Hallo,

ich möchte in Excel eine CustomUI hinzufügen, mit dem Custom UI Editor funktioniert das auch problemlos, jedoch möchte ich das später in VBA mit Visual Studio machen, nun wollte ich das nun erst einmal manuell versuchen, nun stoße ich auf 2 Probleme, mit der Komprimierung stimmt etwas nicht, wenn ich die Dateien entpacke dann modifiziere (die customUI einfüge) und wieder verpacke gibt es da einen Größenunterschied, wenn ich die zip dann in eine xlsm umwandle bekomme ich die Meldung das es nicht gestartet werden kann, da sie scheinbar beschädigt sei.

Meine weitere Frage ist, wie verhält sich das mit der ID im Relationship ordner?

Vielen dank schonmal

:)

 

Okay das Problem mit der Komprimierung hat sich erledigt, habe die Dateien immer in einem Ordner in eine zip umgewandelt, so konnte Excel nicht ausgeführt werden.

Jedoch bekomme ich die CustomUI nicht zum laufen in meine relationship Datei hab ich das so stehen



wenn ich nun alle Ordner in eine zip rein tue und diese zip dann in xlsm umschreibe, startet zwar Excel, aber ich sehe die Menüleiste nicht *frown.gif*

 

Hallo Krautner,

so darfst Du das auch nicht machen; per Maus geht das so:
- zip-Datei per Doppelklick öffnen (Winzip oder Winrar öffnet sich)
- gewünschte xml-Datei aus der Zip-Datei per Doppelklick öffnen
- hier: CustomUI/customUI.xml bzw. CustomUI14/customUI.xml
- Winzip bzw. WinRar NICHT schließen
- customUI.xml bearbeiten / speichern
- jetzt Zip-Programm schließen und Meldungsfenster mit Ja/OK bestätigen
- damit wurde die xml-Datei inhaltlich geändert & in der Zip-Datei neu eingeordnet

Man muß/darf also nicht die gesamte xlsm/xlam-Datei entpacken. Und genau für dieses Verfahren gibt es in VB.Net/C# eine eigene Zip-Package-Klasse.
Damit kann man einzelne Dateien aus der Zip-Datei entpacken, als Text-Stream einlesen, verändern, speichern und wieder zurückschreiben in die Zip-Datei. Hier mal der Anfang für VB.Net: Code:

Gruß von Luschi
aus klein-Paris

 

Ich muss die CustomUI ja aber erst einmal einfügen - wenn ich das ohne den customUI Editor machen möchte, muss ich ja die Zipdatei auspacken, ansonsten kann ich ja keinen Ordner einfügen.

Momentan versuche ich das so

Ich wandle die xlsm Datei in eine Zip Datei um, entpacke diese, erhalte einen Ordner mit _rels, docProps, xl und eine [Content_Types].xml

Erstelle nun einen neuen Ordner und benenne ihn customUI
füge dort die .txt Datei welche so aussieht

PHP:

         <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="pfdTAB" label="ProGo" insertBeforeMso="TabHome">
<group id="pfdDraw" label="Format">
<button id="pfdFormatFB" label="Format FB" imageMso="FormatCellsMenu" size="large" onAction="fktFormatFxUI" />
<button id="pfdFormatColor" label="Colorize cycles" imageMso="BlogCategories" size="large" onAction="fktFormatColor" />
<button id="pfdFormatBlack" label="Cycles black" imageMso="BlackAndWhite" size="large" onAction="fktFormatBlack" />
</group>
<group id="pfdTools" label="Tools">
<button id="pfdRename" label="Rename" imageMso="Rename" size="large" onAction="fktRenameNameUI" />
<button id="pfdExportText" label="Export Text" imageMso="Export" size="large" onAction="fktExportTextUI" />
<button id="pfdImportText" label="Import Text" imageMso="Import" size="large" onAction="fktImportTextUI" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>


 

Okay, ein Fehler wurde behoben, ich habe es nun mit dem Editor abgespeichert und als Codierung UTF-8 verwendet, wenn ich es nun starte gibt es einen unterschied zum CustomUI Editor, wenn ich die xlsm nun ausführe bekomme ich die Meldung "Von Excel wurde unlesbarer Inhalt in 'Test.xlsm' gefunden. Möchten Sie den Inhalt dieser Arbeitsmappe wiederherstellen? Wenn Sie der Quelle dieser Arbeitsmappe vertrauen, klicken Sie auf 'Ja'., getan erhalte ich meine Menüleiste, ebenso ist das Modul vorhanden, die frage ist nur woran das liegt.

Versuche nun erst einmal mit Windiff die 2 Rels zu vergleichen, die von Excel veränderte und die wo ich erstellt habe..

im Editor sehe ich schon mal das sich die ID von ID="rId5" in Id="rE5985363-01A7-4B03-9B88-55253360FC97" verändert hat

 

Hallo!

Du musst die Datei nicht komplett entpacken. Du musst nur die customUI-Datei erstellen und in einen passenden Ordner im Dateikontainer ablegen. Welcher Ordner ist egal solange in der ".rels" sauber referenziert wird. Die .rels" musst Du nur einmal anpassen, dann nie wieder (es genügt dann das Anpassen des Costum-UI-Parts). Probleme entstehen wenn für die CustomUI zwei Zeilen in der ".rels" stehen.

Gruß, René

 

Nachtrag:
Mit Deiner Methode zerstörst Du die Datei. Unter RibbonX-Workshop - Ablageort der XML-Dateien anpassen kannst Du nachlesen wie ich das mache. Damit zerstörst Du in der Regel die Datei nicht.

 

Danke, nun hat es aber auch funktioniert, ohne das sich die Id verändert hat, die Relationship Datei ist auch gleich geblieben nach dem ausführen und hat die Id nicht verändert.

Ich möchte ja mit Microsoft Visual Studio ein Update Programm erstellen, das in den ganzen alten Excel Daten diese CustomUI mit dem Menüband erstellt wird. Dazu habe ich erst einmal versucht das manuell zu erzeugen ohne irgendwelche Fehlermeldungen, da es doch einige hunderte Excel Dateien sind.

 

Das kann man auch mit VBA machen. Hans W. Herber hat das vor vielen Jahren mal gemacht. Leider ist die Datei nicht mehr verfügbar, sonst hätte man mal reinschauen können wie er das gemacht hat.

 

Hoffe ich finde da was ähnliches woran ich mich orientieren kann

 

Also, das mit dem einfügen der customUI funktioniert schon einigermaßen gut, nun ist das Problem mit dem Relationship ändern.

hab an so was gedacht

PHP:

         Private Function GetUI_Element() As XElement
Dim UIElement As New XElement(<Relationship Id="rId5" Type="http://schemas.microsoft.com/office/2007/relationships/ui/extensibility" Target="customUI/customUI14.xml"/>)

Return UIElement
End Function

Private Sub AddReference(ByRef archive As ZipArchive, ByRef rels As ZipArchiveEntry)
Dim strTarget = "customUI/customUI14.xml"
Dim bUIFound As Boolean = False
'Element hinten anfügen
Using readRels As StreamReader = New StreamReader(rels.Open())
Dim reader As XmlTextReader = New XmlTextReader(readRels)
Dim dDoc = XDocument.ReadFrom(reader)
Dim nNode As XElement
'dDoc.AddAfterSelf(GetUI_Element)
'dDoc.Document.ToString()
Dim nodes() As XmlNode = dDoc.NodesAfterSelf
'Web.deim rRelationship = From Relationship In <Relationships>.<Relationship>  Where Relationship.<Target>.Value = strTarget
While reader.MoveToAttribute("Target")
If reader.GetAttribute("Target") = strTarget Then bUIFound = True
End While
'If bUIFound = False Then
'    dDoc.AddAfterSelf(GetUI_Element)
'End If
readRels.Close()
'Target = "/customUI/customUI14.xml"
End Using
End Sub


 

Dafür ist das hier das falsche Forum. Hier beschäftigt sich keiner mit VB-Sprachen außerhalb von VBA. Da müsstest Du direkt mal in der MS-Community nachfragen (http://answers.microsoft.com/de-de/o...hreads&auth=1), oder bei MSDN.