Cómo tener acceso a Visual Basic para importar datos de Excel

Visual Basic es un lenguaje de programación de Microsoft que es relativamente fácil de usar y Microsoft Access y Excel son aplicaciones que se ofrecen en la suite de Microsoft Office. código de Visual Basic.NET es esencial cuando se trabaja con hojas de cálculo de Excel y la necesidad de importar los datos a una base de datos Access. Se pueden necesitar los datos de acceso para la manipulación de datos adicionales utilizando herramientas de bases de datos.

Instrucciones

1 Iniciar un nuevo proyecto de Visual Basic.NET y añadir un "botón" a su formulario. Seleccione el menú "Proyecto" y haga clic en "<proyecto> Propiedades". Seleccione "Referencias" y haga clic en "Añadir". Seleccione "COM" y haga clic en "Microsoft Office 12.0 Object Library". Seleccione "OK".

2 Crear una nueva hoja de cálculo de Excel y agregue los siguientes datos:

campo1 Campo2

Dato2 datos

Dato2 datos

Guardarlo en "C: \" como "ExcelToImport.xls."

3 Haga doble clic en "Button1" en el formulario para abrir "Form1.vb". Escriba lo siguiente en "Button1" para crear una llamada substitución:

importAllData ( "C: \ ExcelToImport.xls", "C: \ AccessFile.mdb")

MessageBox.Show("The import is complete!")

4 Escribe lo siguiente para crear un nuevo sub llamado "importAllData" que va a crear un nuevo archivo de base de datos para la importación de:

Privada compartida (vía_acceso_archivo ByVal como secuencia, db_path ByVal como secuencia) Sub importAllData

Dim accessDB As Microsoft.Office.Interop.Access.Application

ACCESSdb = Nueva Microsoft.Office.Interop.Access.ApplicationClass ()

accessDB.Visible = False

accessDB.NewCurrentDatabase (db_path, Microsoft.Office.Interop.Access.AcNewDatabaseFormat.acNewDatabaseFormatAccess2007)

accessDB.CloseCurrentDatabase ()

accessDB.Quit (Microsoft.Office.Interop.Access.AcQuitOption.acQuitSaveAll)

ACCESSdb = nada

Como Dim conn = OleDb.OleDbConnection MakeExcelConnection (vía_acceso_archivo)

FillAccessDatabase (conn, db_path, vía_acceso_archivo)

End Sub

5 Escribe lo siguiente para crear un nuevo sub llamado "FillAccessDatabase":

Privada compartida Sub FillAccessDatabase (ByVal conec, ByVal db_path, ByVal vía_acceso_archivo)

conn = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & file_path & ";" & "Extended Properties=Excel 12.0;"

Como conexión Dim OleDb.OleDbConnection = Nueva OleDb.OleDbConnection (conn)

Dim _command Como OleDb.OleDbCommand = Nueva OleDb.OleDbCommand ()

_command.Connection = Conexión

_command.CommandText = "SELECT * EN [MS Access; Database =" & db_path & "] [Hoja1] de [Sheet1 $]."

connection.Open ()

_command.ExecuteNonQuery ()

Connection.close ()

End Sub

6 Escribe lo siguiente para crear una nueva función llamada "MakeExcelConnection":

Función privada compartida MakeExcelConnection (ByVal nombre de archivo como secuencia) como OleDb.OleDbConnection

Dim conn As String

conn = "Provider = Microsoft.ACE.OLEDB.12.0;" Y "Data Source =" & Archivo & ";" Y "Extended Properties = Excel 12.0;"

Como conexión Dim OleDb.OleDbConnection = Nueva OleDb.OleDbConnection (conn)

conexión de retorno

End Function

7 Ejecutar el programa y haga clic en "Button1" para importar "Sheet1" de la hoja de cálculo de Excel a la mesa "Sheet1" en Access.