Comment accéder à Visual Basic pour importer des données Excel

Démarrez un nouveau projet Visual Basic.NET et ajouter une touche "" pour votre formulaire. Sélectionnez le menu "Projet" et cliquez sur "Propriétés . " Sélectionnez "Références" et cliquez sur "Ajouter". Sélectionner "COM" et cliquez sur " Office 12.0 Object Library ". Sélectionnez "OK".
2

Créer une nouvelle feuille de calcul Excel et ajouter les données suivantes :

Rubrique1 FIELD2

données Données2

données Données2 Photos

Sauvegarde sur "C: \\ " as ". ExcelToImport.xls "
3

Double -cliquez sur " Button1" sur votre formulaire pour ouvrir " Form1.vb . " Tapez la commande suivante dans " Button1_Click " pour créer un sous appel :

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

MessageBox.Show (" l' importation est terminée " )
4

Tapez la suivante pour créer un nouveau sous appelé" importAllData " qui va créer un nouveau fichier de base de données pour l'importation :

Private Shared Sub importAllData ( ByVal file_path As String , ByVal db_path As String )

accessdb As Microsoft.Office.Interop.Access.Application

accessdb = New Microsoft.Office.Interop.Access.ApplicationClass () < br >

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Nothing

conn As OleDb.OleDbConnection = MakeExcelConnection ( file_path )

FillAccessDatabase (conn , db_path , file_path )

End Sub
5

Tapez la commande suivante pour créer un nouveau sous appelé " FillAccessDatabase ":

Private Shared Sub FillAccessDatabase ( ByVal conn, ByVal db_path , ByVal file_path )

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

connexion As OleDb.OleDbConnection = New OleDb.OleDbConnection ( conn)

Dim _command Comme OleDb.OleDbCommand = New OleDb.OleDbCommand ()

_command.Connection = connexion

_command.CommandText = " SELECT * INTO [ MS Access ; Database = " & db_path & " ] . [ Feuil1 ] FROM Sous
6

Tapez la commande suivante pour créer une nouvelle fonction appelée " MakeExcelConnection ":

privé MakeExcelConnection Shared Function ( fileName ByVal As String) As OleDb.OleDbConnection

Dim conn As String

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

Connexion As OleDb.OleDbConnection = New OleDb.OleDbConnection ( conn)

Retour connexion

End Function
7

exécuter votre programme et cliquez sur " Button1" à importer " Sheet1" de votre feuille de calcul Excel à la table " Sheet1" dans Access.