Transfiriendo datos XML a Microsoft Excel 2002 ... - Willy .Net

Transfiriendo datos XML a Microsoft Excel2002 mediante Visual Basic .NetRESUMENExcel 2002 incluye funcionalidad para abrir archivos en el formato Lenguaje de marcadoextensible (XML). Un archivo XML que está bien formado se puede abrir directamente enExcel 2002 si usa el código o la interfaz de usuario.Con Visual Basic .NET, puede aprovechar las ventajas de la funcionalidad XML de Excelpara transferir fácilmente los datos a un libro de manera que pueda presentarlos con unformato adecuado y organizados como desee. Este artículo muestra cómo realizar estatarea.Generar XML desde un objeto DataSet para usarlo en Excel 2002En esta sección se muestra cómo crear un objeto DataSet y exportar los datos que contienea un archivo XML mediante el método WriteXML. El archivo XML que se genera se puedeabrir directamente en Excel. Con fines ilustrativos, el objeto DataSet se crea desde la basede datos Neptuno de Microsoft Access mediante el proveedor OLEDB de Jet. Sin embargo,el código funciona con cualquier objeto DataSet que cree con Visual Basic .NET.Inicie Microsoft Visual Studio .NET. En el menú Archivo, haga clic en Nuevo y, después, enProyecto. Seleccione Aplicación para Windows en los tipos de proyectos de Visual Basic.Se creará Form1 de manera predeterminada.En el menú Ver, seleccione Cuadro de herramientas para mostrar el cuadro deherramientas y agregue un botón a Form1.Haga doble clic en Button1. Aparecerá la ventana de código del formulario.Agregue la siguiente variable de miembro privada a la clase Form1:Private strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _"C:\Archivos de programa\MicrosoftOffice\Office10\Ejemplos\Neptuno.mdb;"NOTA: si no instaló Excel 2002 en la carpeta predeterminada, C:\Archivos deprograma\Microsoft Office, tiene que modificar la ruta de acceso a Nepturno.mdb en lasecuencia de conexión siguiente para que se ajuste a su instalación.

: si no instaló Excel 2002 en la carpeta predeterminada, C:\Archivos de programa\MicrosoftOffice, tiene que modificar la ruta de acceso a Nepturno.mdb en la secuencia de conexiónsiguiente para que se ajuste a su instalación. Agregue el código siguiente al controladorButton1_Click:'Conectar con el origen de datos.Dim objConn As New System.Data.OleDb.OleDbConnection(strConn)TryobjConn.Open()'Rellenar un objeto dataset con registros de la tabla Clientes.Dim strSQL As StringDim objDataset As New DataSet()Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter()_strSQL = "Seleccionar Id. de cliente, Nombre de la compañía, Nombre del contacto, " &"País, Teléfono de Clientes"objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand( _strSQL, objConn)objAdapter.Fill(objDataset)' Crear el objeto FileStream con el que escribir.Dim strFilename As StringstrFilename = "C:\Clientes.xml"Dim fs As New System.IO.FileStream(strFilename, _System.IO.FileMode.Create)'Crear un objeto XmlTextWriter para FileStream.Dim xtw As New System.Xml.XmlTextWriter(fs, _System.Text.Encoding.Unicode)

'Agregar instrucciones de procesamiento al inicio del archivo XML, una'de las cuales indica una hoja de estilos.xtw.WriteProcessingInstruction("xml", "version='1.0'")'xtw.WriteProcessingInstruction( _'"xml-stylesheet", "type='text/xsl' href='clientes.xsl'")'Escribir el código XML del objeto dataset en el archivo.objDataset.WriteXml(xtw)xtw.Close()MsgBox("Los datos del cliente se han exportado a C:\Clientes.xml.")Catch ex As ExceptionMsgBox(ex.Message)End Try: si no instaló Excel 2002 en la carpeta predeterminada, C:\Archivos de programa\MicrosoftOffice, tiene que modificar la ruta de acceso a Nepturno.mdb en la secuencia de conexiónsiguiente para que se ajuste a su instalación. Presione F5 para generar y ejecutar elprograma.: si no instaló Excel 2002 en la carpeta predeterminada, C:\Archivos de programa\MicrosoftOffice, tiene que modificar la ruta de acceso a Nepturno.mdb en la secuencia de conexiónsiguiente para que se ajuste a su instalación. Haga clic en Button1 para crear el archivoXML y, a continuación, cierre Form1 para finalizar el programa.: si no instaló Excel 2002 en la carpeta predeterminada, C:\Archivos de programa\MicrosoftOffice, tiene que modificar la ruta de acceso a Nepturno.mdb en la secuencia de conexiónsiguiente para que se ajuste a su instalación. Inicie Excel 2002 y abra el archivo resultanteC:\Clientes.xml.: si no instaló Excel 2002 en la carpeta predeterminada, C:\Archivos de programa\MicrosoftOffice, tiene que modificar la ruta de acceso a Nepturno.mdb en la secuencia de conexiónsiguiente para que se ajuste a su instalación. Tras observar cómo el código XML se haanalizado en filas y columnas en el nuevo libro de trabajo, cierre el archivo y salga de Excel.

Formatear el código XML con una hoja de estiloEste paso muestra cómo usar una hoja de estilo (XSL) para cambiar la manera en que losdatos XML se formatean y organizan en un libro de Excel.Use un editor HTML o un editor de texto (como el Bloc de notas) y guarde la hoja de estilosiguiente como C:\Clientes.xsl:.HDR { background-color:bisque;font-weight:bold }Id. de clienteCompañíaContactoPaísTeléfono

Elimine el comentario de esta línea de código en el controlador Button1_Click:xtw.WriteProcessingInstruction( _"xml-stylesheet", "type='text/xsl' href='clientes.xsl'")Esta línea de código escribe una instrucción de procesamiento en el archivo XML que Excelusa para localizar la hoja de estilos (Clientes.xsl).Esta línea de código escribe una instrucción de procesamiento en el archivo XML que Excelusa para localizar la hoja de estilos (Clientes.xsl). Presione F5 para generar y ejecutar elprograma.Esta línea de código escribe una instrucción de procesamiento en el archivo XML que Excelusa para localizar la hoja de estilos (Clientes.xsl). Haga clic en Button1 para crear el archivoXML y, a continuación, cierre Form1 para finalizar el programa.Esta línea de código escribe una instrucción de procesamiento en el archivo XML que Excelusa para localizar la hoja de estilos (Clientes.xsl). Inicie Excel 2002 y abra el archivoresultante C:\Clientes.xml.Esta línea de código escribe una instrucción de procesamiento en el archivo XML que Excelusa para localizar la hoja de estilos (Clientes.xsl). Dado que Excel ve la instrucción deprocesamiento para la hoja de estilos en el código XML, aparece un cuadro de diálogo alabrir el archivo. En el cuadro de diálogo Importar XML, seleccione Abrir el archivo con lasiguiente hoja de estilos aplicada. En la lista, seleccione Clientes.xsl y haga clic enAceptar. Tenga en cuenta que los datos XML se formatean y que las columnas se organizanen función de la hoja de estilos.Esta línea de código escribe una instrucción de procesamiento en el archivo XML que Excelusa para localizar la hoja de estilos (Clientes.xsl). Cierre el archivo y salga de Excel.

Usar código para abrir el XML transformadoHasta este momento, para abrir el archivo XML ha utilizado la interfaz de usuario de Excel.Esta sección muestra cómo automatizar Excel para abrir el libro mediante programación. Elsiguiente ejemplo muestra cómo abrir el XML transformado sin la intervención del usuario,para lo cual transforma primero el XML del objeto DataSet en HTML.En el proyecto de Visual Basic .NET, agregue otro botón a Form1.Haga doble clic en Button2. Cuando aparezca la ventana de código para el formulario,agregue el código siguiente al controlador Button2_Click:'Conectar con el origen de datos.Dim objConn As New System.Data.OleDb.OleDbConnection(strConn)objConn.Open()'Rellenar un objeto dataset con registros de la tabla Clientes.Dim strSQL As StringDim objDataset As New DataSet()Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter()_strSQL = "Seleccionar Id. de cliente, Nombre de la compañía, Nombre del contacto, " &"País, Teléfono de Clientes"objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand( _strSQL, objConn)objAdapter.Fill(objDataset)' Crear el objeto FileStream con el que escribir.Dim strFilename As StringstrFilename = "C:\Clientes.htm"Dim fs As New System.IO.FileStream(strFilename, _System.IO.FileMode.Create)'Crear un objeto XmlTextWriter para FileStream.

Dim xtw As New System.Xml.XmlTextWriter(fs, _System.Text.Encoding.Unicode)'Transformar el XML con la hoja de estilos.Dim xmlDoc As System.Xml.XmlDataDocument = _New System.Xml.XmlDataDocument(objDataset)Dim xslTran As System.Xml.xsl.XslTransform = _New System.Xml.Xsl.XslTransform()xslTran.Load("c:\clientes.xsl")xslTran.Transform(xmlDoc, Nothing, xtw)'Escribir el XML transformado en el archivo.objDataset.WriteXml(xtw)xtw.Close()'Iniciar Excel y abrir el archivo resultante.Dim oExcel As ObjectoExcel = CreateObject("Excel.Application")oExcel.Workbooks.Open("C:\Clientes.htm")'Hacer que Excel esté visible y dar al usuario el control de la aplicación.oExcel.Visible = TrueoExcel.UserControl = TruePresione F5 para generar y ejecutar el programa.Haga clic en Button2 para abrir el XML transformado en Microsoft Excel.NOTA: mientras que el Modelo de objetos de Excel 2002 expone un método OpenXML quele permite abrir mediante programación un archivo XML con hojas de estilos aplicadas, elejemplo anterior no llama a este método debido a un problema conocido acerca del uso deeste método desde un cliente de Automatización. El método OpenXML funciona según loesperado cuando se le llama desde una macro de Excel; sin embargo, cuando este método

se llama desde un cliente de Automatización, el parámetro StyleSheet no se tiene en cuenta.Para obtener información adicional, haga clic en el número de artículo siguiente para verloen Microsoft Knowledge Base:307230 ERROR: StyleSheets Parameter of the OpenXML Method Ignored When AutomatingExcel 2002Publicado Originalmente en Microsoft KB