xml标签可选与vba excel

我想在我的工作表中特定的条件下显示一个参数。 我有这些数据：

橙子1苹果2

我使用了开发人员function区中的“源”来创build一个与参数值关联的xml映射。

因此我生成了以下树：

<orange>1</orange> <apple>2</apple> 

但是，苹果的价值是可选的。 有时它不会出现在我的桌子上。 因此，我有以下问题：

 <orange>1</orange> <apple> 

这当然不是一个精确的XML文件。 我怎样才能克服呢？ 我使用下面的macros加载的值和生成的XML。

 Sub GenerateXML() Dim nameOfFile As String nameOfFile = ThisWorkbook.Path & "\" & "sample.xml" ActiveWorkbook.SaveAsXMLData Filename:=nameOfFile, _ Map:=ActiveWorkbook.XmlMaps("my_Map") End Sub 

这是我第一次实现这个，花了一段时间才弄清楚如何正确地生成xml树。 我应该以某种方式调整我的子程序，使这个可选？