Come accedere Visual Basic per Excel Importa dati

Visual Basic è un linguaggio di programmazione di Microsoft , che è relativamente facile da usare e Microsoft Access ed Excel sono le applicazioni offerte nella suite Microsoft Office . Codice Visual Basic.NET è essenziale quando si lavora con fogli di calcolo Excel e la necessità di importare i dati da un database di Access . I dati possono essere necessari in Access per l'ulteriore manipolazione dei dati con strumenti di database . Istruzioni
1

Avviare un nuovo progetto Visual Basic.NET e aggiungere un " pulsante " per il vostro modulo . Selezionare il menu "Progetto" e fare clic su "Proprietà . " 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 ( )

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

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

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 ; "

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 .

• Come unire documenti di Word in VBA 
• Come inviare e-mail HTML con VB.NET