Sådan får du adgang Visual Basic til Import Excel Data

Visual Basic er en Microsoft programmeringssprog, der er forholdsvis let at bruge og Microsoft Access og Excel er applikationer, der tilbydes i Microsoft Office-pakken. Visuel Basic.NET kode er afgørende, når du arbejder med Excel regneark og har brug for at importere data til en Access-database. Dataene kan være behov for adgang til yderligere data manipulation ved hjælp databaseværktøjer.

Vejledning

• Start en ny visuel Basic.NET projekt og tilføje en "knap" til din formular. Vælg "Project" i menuen og klikke på "<Projektnavn> Egenskaber". Vælg "Referencer" og klik på "Tilføj". Vælg "COM" og klik på "Microsoft Office 12,0 Object Library". Vælg "OK".

• Opret en ny Excel-regneark og tilføje følgende data: Felt 1Field 2 DataData 2 DataData 2 Gem den til "C: \" som "ExcelToImport.xls."

• Dobbeltklik på "Button1" på din formular til at åbne "Form1.vb." Skriv følgende under "Button1_Click" for at oprette en sub opkald: importAllData ("C: \ ExcelToImport.xls", "C: \ AccessFile.mdb") MessageBox.Show ("The importen er færdig!")

• Skriv følgende for at oprette en ny sub kaldet "importAllData", som vil oprette en ny database-fil til import: Privat Delt Sub importAllData (ByVal FILE_PATH As String, ByVal DB_PATH As String) Dim accessDB Som Microsoft.Office.Interop.Access.Application accessDB = Ny 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 = Nothing Dim con Som OleDb.OleDbConnection = MakeExcelConnection (FILE_PATH) FillAccessDatabase (con, DB_PATH, FILE_PATH) End Sub

• Skriv følgende for at oprette en ny sub kaldet "FillAccessDatabase": Privat Delt Sub FillAccessDatabase (ByVal con, ByVal DB_PATH, ByVal FILE_PATH) conn = "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & FILE_PATH & ";" & "Extended Properties = Excel 12,0" Dim forbindelse Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection (con) Dim _command Som OleDb.OleDbCommand = Ny OleDb.OleDbCommand () _command.Connection = tilslutning _command.CommandText = "SELECT * INTO [MS Access, Database =" & DB_PATH & "]. [Ark1] fra [Ark1 $]" connection.Open () _command.ExecuteNonQuery () connection.close () End Sub

• Skriv følgende for at oprette en ny funktion kaldet "MakeExcelConnection": Privat Delt Funktion MakeExcelConnection (ByVal filnavn As String) Som OleDb.OleDbConnection Dim con As String conn = "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & filnavn & ";" & "Extended Properties = Excel 12,0" Dim forbindelse Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection (con) Return tilslutning End Function

• Kør dit program og klik på "Button1" for at importere "Ark1" af din Excel-regneark til "Ark1" tabel i Access.