Πώς να αποκτήσετε πρόσβαση Visual Basic για την εισαγωγή δεδομένων του Excel

Visual Basic είναι μια γλώσσα προγραμματισμού της Microsoft που είναι σχετικά εύκολο στη χρήση και Microsoft Access και το Excel είναι εφαρμογές που προσφέρονται στη σουίτα Microsoft Office . Κώδικα της Visual Basic.NET είναι πολύ σημαντικό όταν εργάζεστε με φύλλα του Excel και πρέπει να εισάγει τα δεδομένα σε μια βάση δεδομένων της Access . Μπορεί να χρειαστούν τα δεδομένα στην Access για περαιτέρω χειρισμό των δεδομένων , χρησιμοποιώντας εργαλεία βάσης δεδομένων . Οδηγίες
Η 1

Ξεκινήστε ένα νέο έργο της Visual Basic.NET και να προσθέσετε ένα " κουμπί" στη φόρμα σας . Επιλέξτε το μενού "Έργο" και κάντε κλικ στο " Ιδιότητες". Επιλέξτε " Αναφορές" και κάντε κλικ στο " Προσθήκη ". Επιλέξτε " COM " και κάντε κλικ στο " Microsoft Office 12.0 Object Library". Επιλέξτε το " OK". 2

Δημιουργήστε ένα νέο υπολογιστικό φύλλο Excel και προσθέστε τα ακόλουθα στοιχεία :

Πεδίο1 Field2

Data χαρακτήρα2

Data χαρακτήρα2

να " C : \\ " Αποθήκευση " . ExcelToImport.xls ", όπως
εικόνων 3

διπλό κλικ στο " Button1 " στη φόρμα σας για να ανοίξει " Form1.vb . " Πληκτρολογήστε τα ακόλουθα στο " Button1_Click " για να δημιουργήσετε ένα υπο κλήση :

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

MessageBox.Show ( " η εισαγωγή ολοκληρώθηκε " )
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο sub ονομάζεται " importAllData " που θα δημιουργήσει ένα νέο αρχείο βάσης δεδομένων για την εισαγωγή : !

Private Sub Κοινόχρηστο importAllData ( ByVal file_path As String , ByVal db_path Όπως String )

Dim accessDB Όπως Microsoft.Office.Interop.Access.Application

accessDB = Νέα Microsoft.Office.Interop.Access.ApplicationClass ( )

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Τίποτα

Dim conn Όπως OleDb.OleDbConnection = MakeExcelConnection ( file_path )

FillAccessDatabase ( conn , db_path , file_path )

End Sub
5

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο sub ονομάζεται " FillAccessDatabase " :

Private Sub Κοινόχρηστο FillAccessDatabase ( ByVal conn , ByVal db_path , ByVal file_path )

conn = " Provider = Microsoft.ACE.OLEDB .12.0 ? " & " Πηγή δεδομένων = " & file_path & " ? " & " Extended Properties = Excel 12.0 ? "

Dim σύνδεση Όπως OleDb.OleDbConnection = Νέα OleDb.OleDbConnection ( conn )

Dim _command Όπως OleDb.OleDbCommand = Νέα OleDb.OleDbCommand ( )

_command.Connection = σύνδεση

_command.CommandText = "SELECT * INTO [ MS Access ? Database = " & db_path & " ] FROM . [ Φύλλο1 ] Υπο
Η 6

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα λειτουργία που ονομάζεται " MakeExcelConnection " :

Private Shared MakeExcelConnection Λειτουργία ( ByVal fileName Όπως String ) Όπως OleDb.OleDbConnection

dim conn Όπως String

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

Dim σύνδεση Όπως OleDb.OleDbConnection = Νέα OleDb.OleDbConnection ( conn )

Επιστροφή σύνδεση

Function End
Η 7

Εκτελέστε το πρόγραμμά σας και κάντε κλικ στο " Button1 " για την εισαγωγή " Φύλλο1 " του Excel φύλλο σας στο τραπέζι " Φύλλο1 " στην Access .
Η
εικόνων