Index: TECH/File/impl/ExcelXml2003Writer.cls.xml
===================================================================
diff -u -r1072 -r1275
--- TECH/File/impl/ExcelXml2003Writer.cls.xml	(.../ExcelXml2003Writer.cls.xml)	(revision 1072)
+++ TECH/File/impl/ExcelXml2003Writer.cls.xml	(.../ExcelXml2003Writer.cls.xml)	(revision 1275)
@@ -11,26 +11,43 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BestandNaam:%String</FormalSpec>
+<FormalSpec>BestandNaam:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		// TODO: assert BestandNama kan geschreven worden (hangt indien folder niet bestaat!).
+	If ("" '= BestandNaam) {
+		Do ..ZetBestandNaam(BestandNaam)
+	}
 		
-		Set ..XmlWriter = ##class(%XML.Writer).%New()
-		Set ..XmlWriter.Charset="UTF-8"
-		Do ..Try( ..XmlWriter.OutputToFile( BestandNaam ) )
-		
-		// Door een bug in Excel MOET er een namespace-prefix "ss" gebruikt worden bij de attributen van de elementen.
-		// En Excel kijkt blijkbaar niet na op welke namespace de prefix mapt.....
-		Do ..Try( ..XmlWriter.AddNamespace( "urn:schemas-microsoft-com:office:spreadsheet ", "ss" ) )
-		
-		Do ..Try( ..XmlWriter.RootElement( "Workbook", "urn:schemas-microsoft-com:office:spreadsheet" ) )
-		
-		
-		Quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="StartWerkboek">
+<Implementation><![CDATA[
+	// Door een bug in Excel MOET er een namespace-prefix "ss" gebruikt worden bij de attributen van de elementen.
+	// En Excel kijkt blijkbaar niet na op welke namespace de prefix mapt.....
+	Do ..Try( ..XmlWriter.AddNamespace( "urn:schemas-microsoft-com:office:spreadsheet ", "ss" ) )
+	
+	Do ..Try( ..XmlWriter.RootElement( "Workbook", "urn:schemas-microsoft-com:office:spreadsheet" ) )
+]]></Implementation>
+</Method>
+
+<Method name="ZetWriter">
+<FormalSpec>XmlWriter:%XML.Writer</FormalSpec>
+<Implementation><![CDATA[	Set ..XmlWriter = XmlWriter
+]]></Implementation>
+</Method>
+
+<Method name="ZetBestandNaam">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	// TODO: assert BestandNaam kan geschreven worden (hangt indien folder niet bestaat!).
+	Set ..XmlWriter = ##class(%XML.Writer).%New()
+	Set ..XmlWriter.Charset="UTF-8"
+	Do ..Try( ..XmlWriter.OutputToFile( BestandNaam ) )
+]]></Implementation>
+</Method>
+
 <Method name="EindigWerkboek">
 <Implementation><![CDATA[		Do ..Try( ..XmlWriter.EndRootElement() )
 ]]></Implementation>