Importação de dados para o Microsoft Office Excel não tem de significar inserir manualmente a planilha inteira . Usando o Access Visual Basic (VBA) poupa muito esforço, a transferência de seus arquivos sem problemas. Dá-lhe as ferramentas para abrir arquivos na Extensible Markup Language ( XML ), que é usado para codificar os documentos com um formato que pode ser lido por qualquer aplicação compatível ; Excel é um aplicativo . Basta criar um objeto DataSet, exportá-lo para um arquivo XML e os seus dados serão esperando por você no Excel. Instruções
1
Início " MicrosoftVisualStudio.net "
2
Clique em "Arquivo " e depois " New ". Selecione "Projeto ". Escolha " Windows Application " dos tipos de projetos para criar Form1.
3
Clique em " Ferramentas ", localizado no menu de exibição.
4
Inserir um botão em " Form1 ", e , em seguida, clique duas vezes em "Button 1 ".
5
Realce o código seguinte , arrastando o mouse desde a primeira palavra até o fim.
Segure "Ctrl "e pressione" C "no seu teclado para copiar :
privada strConn As String =" Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& _
" C: \\ Program Files \\ Microsoft Office \\ Office10 \\ Samples \\ Northwind.mdb ";
6
Clique em" Form1 classe ", e pressione" Ctrl " e " P " juntos para colar o código < br. >
7
Copie todos o seguinte código: .
" Conectar-se à fonte de dados
Dim objConn as New System.Data.OleDb.OleDbConnection ( strConn ) < br >
Experimente em
objConn.Open ()
'Preencher um conjunto de dados com os registros da tabela Customers .
Dim strSQL as String Dim
objDataset As New DataSet ()
Dim objAdapter As New System.Data.OleDb.OledbDataAdapter ()
strSQL = " Selecione CustomerID , CompanyName , ContactName , " & _
" País, Telefone de Clientes "
objAdapter.SelectCommand = Novo System.Data.OleDb.OleDbCommand (_
strSQL , objConn )
objAdapter.Fill ( objDataset )
'Criar o FileStream para escrever com
Dim strFilename as String
strFilename = . "C: \\ Customers.xml "
Dim fs as New Sistema . IO.FileStream ( strFilename , _
System.IO.FileMode.Create )
'Criar um XmlTextWriter para o FileStream.
Dim XTW as New System.Xml . XmlTextWriter (fs , _
System.Text.Encoding.Unicode )
"Adicionar instruções de processamento para o início do arquivo XML, um
' de que indica um estilo folha.
xtw.WriteProcessingInstruction ( "xml ", " version = '1 .0 '")
' xtw.WriteProcessingInstruction (_
' "xml -stylesheet ", " type = 'text /xsl ' href = ' Customers.xsl ' ")
' Escreva o XML a partir do conjunto de dados para o arquivo .
objDataset.WriteXml ( XTW )
xtw.Close ()
MsgBox (" Os dados dos clientes tem sido exportado para C: . \\ Customers.xml " )
Pegar ex As Exception
MsgBox ( ex. Tente Mensagem )
Fim
8
cole o código para o " Button1_Click " manipulador .
9
Pressione " F5 " no seu teclado para criar e em seguida, executar o programa.
10
Clique em " Button1 ", e isso irá criar o arquivo XML.
11
Exit " Form1 " para fechar o programa.
12
Início " Microsoft Office Excel. " Clique no botão "Microsoft Office" , depois em " Abrir".
13
Localize e selecione o arquivo " C: . \\ Customers.xml "
