Ako získať prístup Visual Basic pre import údajov programu Excel

Visual Basic je programovací jazyk Microsoft , ktorý je relatívne jednoduché použitie a aplikácie Microsoft Access a Excel sú aplikácie ponúkané v balíku Microsoft Office . Visual Basic.NET kód je dôležité , keď pracujete s tabuľkami Excelu a potrebujete importovať dáta do databázy programu Access . Údaje môžu byť potrebné v programe Access pre ďalšiu manipuláciu s dátami pomocou databázových nástrojov . Pokyny dovolená 1

Spustenie nového Visual Basic.NET projekt a pridať tlačidlá " " formulára . Zvoľte menu " Project " a kliknite na " Vlastnosti . " Vyberte " Odkazy " a kliknite na " Pridať " . Vyberte " COM " a kliknite na " Microsoft Office 12.0 Object Library . " Zvoľte " OK " .
2

Vytvoriť novú tabuľku programu Excel a pridajte nasledujúce údaje :

pole1 pole2

dát Data2

dát údaje2

Uložte ho do " C : \\ " . " ExcelToImport.xls " ako
3

Double - kliknite na " Button1 " na formulári pre otvorenie " Form1.vb . " Zadajte nasledujúce pod " button1_Click " vytvoriť sub hovoru :

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

MessageBox.Show ( " dokončenie importu " )
4

Zadajte nasledujúci vytvoriť novú ponorku s názvom " importAllData " , ktorá vytvorí nový databázový súbor na import ! klipart

súkromný spoločný Sub importAllData ( byVal file_path As String , byVal DB_PATH As String )

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

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

accessDB.Visible = False

accessDB.NewCurrentDatabase ( DB_PATH , = Nothing

Dim conn Ako OleDb.OleDbConnection = MakeExcelConnection ( file_path )

FillAccessDatabase ( spoj , DB_PATH , file_path )

End Sub
5

Zadajte nasledujúci vytvoriť novú ponorku s názvom " FillAccessDatabase " :

Private Sub Spoločná FillAccessDatabase ( byval spoj , byval DB_PATH , byval file_path )

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

Dim pripojenie ako OleDb.OleDbConnection = New OleDb.OleDbConnection ( spoj )

Dim _Command Ako OleDb.OleDbCommand = Nové OleDb.OleDbCommand ( )

_command.Connection = pripojenie

_command.CommandText = " SELECT * INTO [ MS Access ; databázy = " & DB_PATH & " ] . [ Hárok1 ] FROM Sub
6

Zadajte nasledujúci vytvoriť novú funkciu s názvom " MakeExcelConnection " :

Súkromná Shared Function MakeExcelConnection ( ByVal filename As String ) Ako OleDb.OleDbConnection

Dim velenie As String

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

Dim pripojenia Ako OleDb.OleDbConnection = Nové OleDb.OleDbConnection ( conn )

Späť pripojenie klipart

End Function
7

spustite program a kliknite na " Button1 " import " Hárok1 " vášho Excelu do " Hárok1 " tabuľky v programe Access .

• Predchádzajúca strana: Ako zlúčiť dokumenty Word VBA 
• Ďalšia strana: Ako poslať HTML e - mail s VB.NET