. " Seleziona "Riferimenti" e fare clic su "Aggiungi ". Selezionare " COM " e clicca su " 12.0 Libreria di oggetti di Microsoft Office. " Selezionare "OK ".
2 Creare un nuovo foglio di calcolo Excel e aggiungere i seguenti dati :
Campo1 Campo2
dati Dati2
dati Dati2
Salva in " C : \\ " come " . ExcelToImport.xls "
3
doppio clic su " Button1 " sul modulo per aprire " Form1.vb . " Digitare quanto segue in " Button1_Click " per creare un sub chiamata :
importAllData ( "C : \\ ExcelToImport.xls ", " C : \\ AccessFile.mdb " ) per
MessageBox.Show ( " l'importazione è completa " ) economici 4
Digitare quanto segue per creare un nuovo sub chiamato" importAllData " che creerà un nuovo file di database per l'importazione :
privata condivisa sub importAllData ( ByVal percorso_file As String , ByVal db_path As String ) per
Dim accessdb Come Microsoft.Office.Interop.Access.Application
accessdb = New Microsoft.Office.Interop.Access.ApplicationClass ( ) < br >
accessDB.Visible = False
accessDB.NewCurrentDatabase ( db_path , = Nothing
Dim conn Come OleDb.OleDbConnection = MakeExcelConnection ( percorso_file ) per
FillAccessDatabase ( conn , db_path , percorso_file ) per
End Sub
5 < p > Digitare il comando seguente per creare un nuovo sub denominata " FillAccessDatabase " :
privata condivisa sub FillAccessDatabase ( ByVal conn , ByVal db_path , ByVal percorso_file ) per
conn = "Provider = Microsoft.ACE.OLEDB .12.0 ; " &" Data Source = " & percorso_file &" , " &" Extended Properties = Excel 12.0 ; "
Dim connessione come OleDb.OleDbConnection = New OleDb.OleDbConnection ( conn ) per < p > Dim _command Come OleDb.OleDbCommand = New OleDb.OleDbCommand ( ) per
_command.Connection = collegamento
_command.CommandText = "SELECT * INTO [ MS Access ; Database = " & db_path & " ] . [ Foglio1 ] FROM Sub
6
digitare quanto segue per creare una nuova funzione chiamata " MakeExcelConnection " :
privata condivisa MakeExcelConnection Function ( fileName ByVal come stringa) come OleDb.OleDbConnection
dim conn As String
conn = "Provider = Microsoft.ACE.OLEDB.12.0 ; " & "Data Source = " & nomefile & " , " & " Extended Properties = Excel 12.0 ; "
< p > connessione Dim Come OleDb.OleDbConnection = New OleDb.OleDbConnection ( conn ) per
Torna connessione
End Function
7
eseguire il programma e fare clic su " Button1 " da importare " Foglio1 " del foglio di calcolo Excel per la tabella " Foglio1 " in Access .