Uncomment the following lines to activate the XSL stylesheet reference (the XSL must exist in the specified folder) Set xmlVersion = xmlDom.createProcessingInstruction("xml", "version=" & Chr(QUOTE_MARK) & "1.0" & Chr(QUOTE_MARK)) ' Create the processing instruction header at the top of the file. ' Constant values for XML namespace code and valueĬonst XML_NAMESPACE_ATTR As String = "xmlns:wow"Ĭonst QUOTE_MARK As Integer = 34 ' ASCII code for double quote markĭim xmlDom As MSXML2.DOMDocument60 ' Represents the DOM documentĭim xmlRootNode As MSXML2.IXMLDOMElement ' Represents the XML root nodeĭim xmlVersion As MSXML2.IXMLDOMProcessingInstruction ' This will become the processing instructionĭim xslStylesheet As MSXML2.IXMLDOMProcessingInstruction ' Optional XSL Stylesheet processing instruction CODE -> VBA Public Function GenerateXML(strPath As String) As Integer
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |