Come accedere Visual Basic per l'importazione dei dati di Excel

November 10

Come accedere Visual Basic per l'importazione dei dati di Excel


Visual Basic è un linguaggio di programmazione di Microsoft che è relativamente facile da usare e Microsoft Access ed Excel sono applicazioni offerti 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 la manipolazione di ulteriori dati utilizzando strumenti di database.

istruzione

1 Avviare un nuovo progetto Visual Basic.NET e aggiungere un "pulsante" per il modulo. Selezionare il menu "Progetto" e fare clic su "<nomeprogetto> Proprietà". Seleziona "Riferimenti" e fare clic su "Aggiungi". Selezionare "COM" e fare clic su "Microsoft Office 12.0 Object Library". Selezionare "OK".

2 Creare un nuovo foglio di calcolo Excel e aggiungere i dati seguenti:

Field1 Campo2

Data2 dati

Data2 dati

Salva in "C: \" come "ExcelToImport.xls."

3 Fare doppio clic su "Button1" sul modulo per aprire "Form1.vb". Digitare il seguente sotto "Button1_Click" per creare una chiamata sub:

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

MessageBox.Show("The import is complete!")

4 Digitare la seguente per creare una nuova sotto chiamato "importAllData" che creerà un nuovo file di database per l'importazione:

In comune (percorso_file ByVal come stringa, ByVal db_path come stringa) Sub importAllData

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

AccessDB = Nuovo Microsoft.Office.Interop.Access.ApplicationClass ()

accessDB.Visible = False

accessDB.NewCurrentDatabase (db_path, Microsoft.Office.Interop.Access.AcNewDatabaseFormat.acNewDatabaseFormatAccess2007)

accessDB.CloseCurrentDatabase ()

accessDB.Quit (Microsoft.Office.Interop.Access.AcQuitOption.acQuitSaveAll)

AccessDB = Nothing

conn fioco come OleDb.OleDbConnection = MakeExcelConnection (file_path)

FillAccessDatabase (conn, db_path, percorso_file)

End Sub

5 Digitare la seguente per creare una nuova sotto denominata "FillAccessDatabase":

In comune Sub FillAccessDatabase (ByVal conn, ByVal db_path, ByVal percorso_file)

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

collegamento fioco come OleDb.OleDbConnection = Nuovo OleDb.OleDbConnection (conn)

Dim _command Come OleDb.OleDbCommand = Nuovo OleDb.OleDbCommand ()

_command.Connection = collegamento

_command.CommandText = "SELECT * INTO [MS Access; Database =" & db_path & "] [Foglio1] FROM [Sheet1 $]."

connection.Open ()

_command.ExecuteNonQuery ()

connection.Close ()

End Sub

6 Digitare la seguente per creare una nuova funzione chiamata "MakeExcelConnection":

In comune Funzione MakeExcelConnection (ByVal nome del file come stringa) come OleDb.OleDbConnection

Dim conn As String

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

collegamento fioco come OleDb.OleDbConnection = Nuovo OleDb.OleDbConnection (conn)

il collegamento di ritorno

End Function

7 Eseguire il programma e fare clic su "Button1" per importare "Sheet1" del foglio di calcolo di Excel a tavola "Sheet1" in Access.