Visual Basic ist eine Programmiersprache, die Microsoft relativ einfach zu bedienen ist und Microsoft Access und Excel sind Anwendungen in der Microsoft Office-Suite angeboten . Visual Basic.NET -Code ist wichtig, wenn Sie mit Excel-Tabellen arbeiten und brauchen , um die Daten in eine Access -Datenbank importieren. Die Daten können in Access zur weiteren Datenmanipulation mit Datenbank- Werkzeuge benötigt werden. Anleitung
1

Starten Sie ein neues Visual Basic.NET -Projekt und fügen Sie ein "Button" auf das Formular. Wählen Sie das Menü "Projekt" und klicken Sie auf " Eigenschaften. " Wählen Sie " Referenzen " und klicken Sie auf "Hinzufügen". Wählen Sie " COM" und klicken Sie auf "Microsoft Office 12.0 Object Library . " Wählen Sie " OK".
2

Erstellen Sie eine neue Excel-Tabelle und fügen Sie die folgenden Daten:

Feld1 Feld2

Daten Data2

Daten Data2

Speichern Sie es auf "C: \\ " as " . ExcelToImport.xls "
3

Doppelklicken Sie auf " Button1 " auf dem Formular zu öffnen " Form1.vb . " Geben Sie den folgenden Abschnitt " Button1 ", um eine Sub Aufruf erstellen :

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

MessageBox.Show (" der Import ist abgeschlossen " )
4

Geben Sie den folgenden , um eine neue Sub genannt schaffen" importAllData " , die eine neue Datenbank-Datei für den Import schaffen :

Privat Gemeinschafts Sub importAllData ( ByVal file_path As String , ByVal db_path As String) Dim

AccessDB Wie Microsoft.Office.Interop.Access.Application

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

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Nothing

Dim conn Wie OleDb.OleDbConnection = MakeExcelConnection ( file_path )

FillAccessDatabase (conn , db_path , file_path )

End Sub
5

Geben Sie den folgenden , um eine neue Sub genannt " FillAccessDatabase " erstellen :

Privat Gemeinschafts Sub FillAccessDatabase (ByVal conn, ByVal db_path , ByVal file_path )

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

Dim Verbindung Wie OleDb.OleDbConnection = New OleDb.OleDbConnection (conn )
< p > Dim _command Wie OleDb.OleDbCommand = New OleDb.OleDbCommand ()

_command.Connection = Verbindung

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

Geben Sie den folgenden , um eine neue Funktion namens " MakeExcelConnection " erstellen :

Privat Gemeinschafts Funktion MakeExcelConnection (ByVal FileName As String ) As OleDb.OleDbConnection

Dim conn As String

conn = "Provider = Microsoft.ACE.OLEDB.12.0 ; " & " Data Source = " & Dateiname & ";" & "Extended Properties = Excel 12.0 ; "
< p > Dim Verbindung Wie OleDb.OleDbConnection = New OleDb.OleDbConnection (conn )

Rücklaufanschluss

End Function
7

Führen Sie das Programm und klicken Sie auf " Button1 " auf " Tabelle1 " Ihrer Excel-Tabelle auf " Tabelle1 " Tabelle in Access.

importieren