Cómo transferir datos por VBA

Importación de datos en Microsoft Office Excel no tiene por qué significar la introducción manual de toda la hoja. Uso del acceso de Visual Basic (VBA) le ahorra mucho esfuerzo, la transferencia de sus archivos sin ningún problema. Le da las herramientas para abrir archivos en el Extensible Markup Language (XML), que se utiliza para codificar documentos con un formato que puede ser leído por cualquier aplicación compatible; Excel es una de estas aplicaciones. Basta con crear un objeto DataSet, exportarlo a un archivo XML y sus datos serán esperando en Excel.

Instrucciones

1 Puesta en marcha "MicrosoftVisualStudio.net"

2 Haga clic en "Archivo", luego "Nuevo". Seleccione "Proyecto". Seleccione la opción "Aplicación de Windows" de los tipos de proyectos para crear Form1.

3 Haga clic en "Herramientas", situado en el menú de la vista.

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

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

Sostenga la tecla "Ctrl" y pulse "C" en su teclado para copiar:

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

"C: \ Archivos de programa \ Microsoft Office \ Office10 \ Samples \ Neptuno.mdb";

6 Haga clic en "Form1 clase", y pulse la tecla "Ctrl" y "P" juntos para pegar el código.

7 Copiar todo el código siguiente:

'Connect to the data source.

Dim objConn Como Nueva System.Data.OleDb.OleDbConnection (strConn)

Tratar

objConn.Open ()

"Llenar un conjunto de datos con los registros de la tabla Clientes.

Dim como secuencia strSQL

Dim objDataset Como nuevo conjunto de datos ()

Dim objAdapter Como Nueva System.Data.OleDb.OleDbDataAdapter ()

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

"País, Teléfono de clientes"

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

strSQL, objConn)

objAdapter.Fill (objDataset)

"Crear el FileStream para escribir.

Dim como secuencia strFileName

strFileName = "C: \ Customers.xml"

fs Dim como nuevo System.IO.FileStream (strFileName, _

System.IO.FileMode.Create)

"Crear una XmlTextWriter para el FileStream.

Dim XTW Como Nueva System.Xml.XmlTextWriter (fs, _

System.Text.Encoding.Unicode)

"Añadir instrucciones de procesamiento al principio del archivo XML, uno

'De lo que indica una hoja de estilo.

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

'Xtw.WriteProcessingInstruction (_

' "Xml-stylesheet", "type =' text / XSL 'href =' Customers.xsl '")

'Escribir el código XML del conjunto de datos en el fichero.

objDataset.WriteXml (XTW)

xtw.Close ()

MsgBox ( "Los datos del cliente se ha exportado a C: \ Customers.xml.")

Catch ex As Exception

MsgBox (ex.Message)

Try End

8 Pegar el código en el controlador "Button1_Click".

9 Pulse la tecla "F5" en su teclado para crear y ejecutar el programa.

10 Haga clic en "Button1", y esto va a crear el archivo XML.

11 Salir "Form1" para cerrar el programa.

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

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