WorkbookBase.CustomXMLParts Vlastnost
Definice
Důležité
Některé informace platí pro předběžně vydaný produkt, který se může zásadně změnit, než ho výrobce nebo autor vydá. Microsoft neposkytuje žádné záruky, výslovné ani předpokládané, týkající se zde uváděných informací.
Získá kolekci vlastních částí XML v sešitu.
public:
property Microsoft::Office::Core::CustomXMLParts ^ CustomXMLParts { Microsoft::Office::Core::CustomXMLParts ^ get(); };
public Microsoft.Office.Core.CustomXMLParts CustomXMLParts { get; }
member this.CustomXMLParts : Microsoft.Office.Core.CustomXMLParts
Public ReadOnly Property CustomXMLParts As CustomXMLParts
Hodnota vlastnosti
Kolekce Microsoft.Office.Core.CustomXMLParts, která obsahuje vlastní části XML v sešitu.
Příklady
Následující příklad kódu přidá data zaměstnanců do dokumentu vložením nového Microsoft.Office.Core.CustomXMLPart
do Microsoft.Office.Core.CustomXMLParts
kolekce. Příklad pak načte data zaměstnanců z části XML a zobrazí jméno zaměstnance a datum přijetí na Sheet1
.
Tento příklad je pro přizpůsobení na úrovni dokumentu.
private void AddCustomXMLPart()
{
string xmlString =
"<?xml version=\"1.0\" encoding=\"utf-8\" ?>"
+ "<employees>"
+ "<employee>"
+ "<name>Karina Leal</name>"
+ "<hireDate>1999-04-01</hireDate>"
+ "</employee>"
+ "</employees>";
Office.CustomXMLPart employeeXMLPart =
this.CustomXMLParts.Add(xmlString);
Globals.Sheet1.Range["A1"].Value2 = employeeXMLPart.SelectSingleNode(
"/employees[1]/employee[1]/name[1]").Text;
Globals.Sheet1.Range["A2"].Value2 = employeeXMLPart.SelectSingleNode(
"/employees[1]/employee[1]/hireDate[1]").Text;
}
Private Sub AddCustomXMLPart()
Dim xmlString As String = _
"<?xml version=""1.0"" encoding=""utf-8"" ?>" _
+ "<employees>" _
+ "<employee>" _
+ "<name>Karina Leal</name>" _
+ "<hireDate>1999-04-01</hireDate>" _
+ "</employee>" _
+ "</employees>"
Dim employeeXMLPart As Office.CustomXMLPart = _
Me.CustomXMLParts.Add(xmlString)
Globals.Sheet1.Range("A1").Value2 = employeeXMLPart.SelectSingleNode( _
"/employees[1]/employee[1]/name[1]").Text
Globals.Sheet1.Range("A2").Value2 = employeeXMLPart.SelectSingleNode( _
"/employees[1]/employee[1]/hireDate[1]").Text
End Sub
Poznámky
Další informace o vlastních částech XML najdete v tématu Přehled vlastních částí XML.