Visual Basic é uma linguagem de programação Microsoft que é relativamente fácil de usar e Microsoft Access e Excel são aplicativos oferecidos na suíte Microsoft Office. Código Visual Basic.NET é essencial quando você está trabalhando com planilhas do Excel e precisa importar os dados para um banco de dados Access. Os dados podem ser necessários no Access para posterior manipulação de dados usando as ferramentas de banco de dados . Instruções
1

Inicie um novo projeto Visual Basic.NET e adicionar um "botão" para sua forma. Selecione o menu " Project" e clique em "Propriedades ". Selecione "Referências" e clique em "Adicionar ". Selecione "COM" e clique em " Microsoft Office 12.0 Object Library. " Selecione "OK".
2

Crie uma nova planilha do Excel e adicionar os seguintes dados:

Campo1 Campo2

Dados Dados2

Dados Dados2

salvar no "C: \\". " ExcelToImport.xls " como
3

clique duas vezes em "Button1 " no seu formulário para abrir " Form1.vb. " Digite o seguinte em " Button1_Click " para criar uma sub chamada:

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

MessageBox.Show (" a importação é completo ")
4

Digite o seguinte para criar um novo sub chamado " importAllData ", que irá criar um novo arquivo de banco de dados para a importação :

privada Shared Sub importAllData ( ByVal file_path As String , ByVal db_path As String)

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

accessDB = Novo Microsoft.Office.Interop.Access.ApplicationClass () < br >

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Nada

Dim conn Como OleDb.OleDbConnection = MakeExcelConnection ( file_path )

FillAccessDatabase (conn , db_path , file_path )

End Sub
5

Digite o seguinte para criar um novo sub chamado " FillAccessDatabase " :

privada Shared Sub FillAccessDatabase (ByVal conexão, ByVal db_path , ByVal file_path )

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

Dim conexão Como OleDb.OleDbConnection = Novo OleDb.OleDbConnection ( conn)

Dim _command Como OleDb.OleDbCommand = Novo OleDb.OleDbCommand ()

_command.Connection = conexão

_command.CommandText = "SELECT * INTO [MS Access; banco de dados = " & db_path & " ] FROM . [ Sheet1 ] Sub
6

Digite o seguinte para criar uma nova função chamada " MakeExcelConnection " :

Privada MakeExcelConnection Shared Function (ByVal fileName As String) Como OleDb.OleDbConnection

Dim conn As String

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

conexão Dim OleDb.OleDbConnection = Novo OleDb.OleDbConnection ( conn)

Retornar conexão

End Function
7

Execute o programa e clique em " Button1 " para importar "Sheet1" da planilha Excel para a mesa "Sheet1" no Access.