Cómo acceder 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 las aplicaciones que se ofrecen en la suite de Microsoft Office. Código Visual Basic.NET es esencial cuando se trabaja con hojas de cálculo Excel y la necesidad de importar los datos a una base de datos Access . Los datos pueden ser necesarios en Access para su posterior manipulación de datos usando herramientas de bases de datos . Instrucciones
1

Iniciar un nuevo proyecto de Visual Basic.NET y añadir un " botón " a tu formulario. Seleccione el menú "Proyecto" y haga clic en "Propiedades . " Seleccione "Referencias" y haga clic en "Agregar ". Seleccione " COM " y haga clic en " Office 12.0 Object Library Microsoft . " Seleccione " Aceptar".
2

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

Field1 Field2

datos Data2

Guardar en " C: \\ " como " . ExcelToImport.xls "
3

doble clic en " Button1 " en el formulario para abrir " Form1.vb . " Escriba lo siguiente en " Button1_Click " para crear un sub llamada :

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

MessageBox.Show ( " la importación se ha completado ")
4

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

Private Shared Sub importAllData ( vía_acceso_archivo ByVal As String , ByVal db_path As String )

aCCESSdb As Microsoft.Office.Interop.Access.Application

aCCESSdb = New Microsoft.Office.Interop.Access.ApplicationClass ()

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Nothing

conec As OleDb.OleDbConnection = MakeExcelConnection ( vía_acceso_archivo )

FillAccessDatabase (conn , db_path , vía_acceso_archivo )

End Sub
5

Escriba el siguiente para crear un nuevo sub llamado " FillAccessDatabase ":

Private Sub FillAccessDatabase ( ByVal conn, ByVal db_path , ByVal vía_acceso_archivo )

conn = " Provider = compartido Microsoft.ACE.OLEDB .12.0 ; " y " Data Source = "& vía_acceso_archivo &" , " &" Extended Properties = Excel 12.0 , "

conexión As OleDb.OleDbConnection = New OleDb.OleDbConnection (conn )
< p > Dim _command Como OleDb.OleDbCommand = New OleDb.OleDbCommand ()

_command.Connection = Connection