Komma åt Visual Basic för att importera Excel Data

Visual Basic är ett Microsoft programmeringsspråk som är relativt lätt att använda och Microsoft Access och Excel är program som erbjuds i Microsoft Office-paketet . Visual Basic.NET kod är viktigt när du arbetar med Excel och behöver importera data till en Access-databas . Uppgifterna kan behövas i Access för vidare uppgifter manipulation med databasverktyg . Instruktioner
1

Starta ett nytt Visual Basic.NET projekt och lägg en " knapp " på ditt formulär . Välj " Project " -menyn och klicka på " Egenskaper . " Välj " Referenser " och klicka på " Lägg till ". Välj " COM " och klicka på " Microsoft Office 12.0 Object Library . " Välj " OK ".
2

Skapa en ny Excel och lägga till följande uppgifter :

Fält1 fält2

Data Data2

Data Data2

Spara det till " C : \\ " som " . ExcelToImport.xls " Addera 3

Dubbelklicka på " Button1 " på formuläret för att öppna " Form1.vb . " Skriv följande under " Button1_Click " för att skapa en sub samtal :

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

MessageBox.Show ( " importen är klar " )
4

Skriv följande för att skapa en ny sub heter " importAllData " som kommer att skapa en ny databas fil för import :

Private Shared sub ​​importAllData ( ByVal file_path As String , ByVal db_path As String ) katalog

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

accessDB = Ny Microsoft.Office.Interop.Access.ApplicationClass ( )

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Nothing

Dim conn Som OleDb.OleDbConnection = MakeExcelConnection ( file_path ) katalog

FillAccessDatabase ( conn , db_path , file_path ) katalog

End Sub
5

Skriv följande för att skapa en ny sub heter " FillAccessDatabase " :

Private Shared sub ​​FillAccessDatabase ( ByVal conn , ByVal db_path , ByVal file_path ) katalog

conn = " Provider = Microsoft.ACE.OLEDB .12.0 , " & " Data Source = " & file_path & " , " & " Utökade Egenskaper = Excel 12,0 ; "

Dim anslutning Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection ( conn ) katalog

Dim _command Som OleDb.OleDbCommand = Ny OleDb.OleDbCommand ( ) katalog

_command.Connection = anslutning

_command.CommandText = " SELECT * INTO [ MS Access , databas = " & db_path & " ] . [ Blad1 ] FROM Sub
6

Skriv följande för att skapa en ny funktion som kallas " MakeExcelConnection " :

Private Shared Function MakeExcelConnection ( ByVal filnamnet som String ) Som OleDb.OleDbConnection

Dim conn As String

conn = " Provider = Microsoft.ACE.OLEDB.12.0 , " & " Data Source = " & filnamn & " , " & " Utökade Egenskaper = Excel 12,0 ; "

Dim anslutning Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection ( conn ) katalog

Retur

End Function
7

Kör programmet och klicka på " Button1 " att importera " Tabell1 " i ditt Excel-ark för att " Tabell1 " tabell i Access .