ubiquitour.com

Cómo transferir datos por VBA

Importar datos en Microsoft Office Excel no tiene que significar que introducir manualmente la hoja de cálculo entera. Usando Visual Basic Access (VBA) usted ahorra mucho esfuerzo, transferir tus archivos sin problemas. Te da las herramientas para abrir los archivos en el lenguaje de marcado Extensible (XML), que se utiliza para codificar documentos con un formato que puede ser leído por cualquier aplicación compatible con; Excel es una aplicación de tal. Crear un objeto de conjunto de datos, exportar a un archivo XML y sus datos estará esperando por usted en Excel.

Instrucciones

1 Puesta en marcha "MicrosoftVisualStudio.net"

2 Haga clic en "Archivo", luego "Nuevo". Seleccione "Proyecto". Elegir "Windows Application" de los tipos de proyectos crear Form1.

3 Haga clic en "Herramientas", ubicado en el menú Ver.

4 Inserte un botón de "Form1" y haga doble clic en "Botón 1".

5 Resalte el código siguiente arrastrando el mouse desde la primera palabra hasta la última.

Mantenga el "Ctrl" y pulse "C" en tu teclado para copiar:

Private strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

"C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb;"6

Haga clic en "Clase Form1" y presione "Ctrl" y "P" para pegar el código.

7 Copiar todo el código siguiente:

'Connect to the data source.

Dim objConn As New System.Data.OleDb.OleDbConnection(strConn)

Try

objConn.Open()

'Fill a dataset with records from the Customers table.

Dim strSQL As String

Dim objDataset As New DataSet()

Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter()

strSQL = "Select CustomerID, CompanyName, ContactName, " & _

"Country, Phone from Customers"

objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand( _

strSQL, objConn)

objAdapter.Fill(objDataset)

' Create the FileStream to write with.

Dim strFilename As String

strFilename = "C:\Customers.xml"

Dim fs As New System.IO.FileStream(strFilename, _

System.IO.FileMode.Create)

'Create an XmlTextWriter for the FileStream.

Dim xtw As New System.Xml.XmlTextWriter(fs, _

System.Text.Encoding.Unicode)

'Add processing instructions to the beginning of the XML file, one

'of which indicates a style sheet.

xtw.WriteProcessingInstruction("xml", "version='1.0'")

'xtw.WriteProcessingInstruction( _

' "xml-stylesheet", "type='text/xsl' href='customers.xsl'")

'Write the XML from the dataset to the file.

objDataset.WriteXml(xtw)

xtw.Close()

MsgBox("Customer data has been exported to C:\Customers.xml.")

Catch ex As Exception

MsgBox(ex.Message)

End Try8

Pegue el código en el controlador de "Button1_Click".

9 Presione "F5" de su teclado para crear y ejecutar el programa.

10 Haga clic en "Button1" y esto creará el archivo XML.

11 Salida "Form1" cerrar el programa.

12 Puesta en marcha "Microsoft Office Excel." Haga clic en el botón de "Microsoft Office", luego "Abrir".

13 Buscar y seleccionar el archivo "C:\Customers.xml."