Come trasferire dati da VBA

Importazione di dati in Microsoft Office Excel non deve significare inserendo manualmente l' intero foglio di lavoro . Utilizzo di Access Visual Basic ( VBA ) consente di risparmiare molto sforzo , il trasferimento dei file senza intoppi. Esso fornisce gli strumenti per aprire i file in formato Extensible Markup Language ( XML) , che viene utilizzato per codificare i documenti con un formato che può essere letto da qualsiasi applicazione compatibile ; Excel è una di queste applicazioni . È sufficiente creare un oggetto DataSet , esportarlo in un file XML e dati sarà in attesa per voi in Excel . Istruzioni
1

Avviare
2

Fare clic su " File ", " MicrosoftVisualStudio.net " poi " Nuovo ". Selezionare "Progetto ". Scegliere " Applicazione Windows " dai tipi di progetto per creare Form1 .
3

Fare clic su " Strumenti ", situata sul menu Visualizza.
4

Inserire un pulsante in " Form1 " e quindi fare doppio clic su "Button 1 ".
5

Evidenziare il codice seguente trascinando il mouse dalla prima parola all'ultima .

Hold " Ctrl "e premere" C " sulla tastiera per copiare :

strConn privato As String =" Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _

" C : \\ Program Files \\ Microsoft Office \\ Office10 \\ Samples \\ Northwind.mdb ; ».
6

Clicca su" Class Form1 ", e premere" Ctrl " e" P " insieme per incollare il codice
Pagina 7

Copia tutto il codice seguente :

' la connessione all'origine dati

Dim objConn As New System.Data.OleDb.OleDbConnection ( strConn ) < br . >

Prova

objConn.Open ( ) per

' riempire un DataSet con i record della tabella clienti .

Dim strSQL As String Dim

objDataset As New DataSet ( ) Dim

objAdapter As New System.Data.OleDb.OleDbDataAdapter ( ) per

strSQL = " Select CustomerID , CompanyName , ContactName , " & _

" Paese, Telefono da clienti "

objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand ( _

strSQL , objConn ) per

objAdapter.Fill ( objDataset )

'Crea il FileStream per scrivere con

Dim strFilename As String

strFilename = . "C : \\ Customers.xml "

Dim fs As New sistema . IO.FileStream ( strFilename , _

System.IO.FileMode.Create ) per

'Crea un XmlTextWriter per il FileStream .

Dim XTW As New System.Xml . XmlTextWriter ( fs , _

System.Text.Encoding.Unicode ) per

' Aggiungi istruzioni di elaborazione per l'inizio del file XML , uno

' di che indica uno stile di ( " version = '1 .0 ' " " xml" foglio .

xtw.WriteProcessingInstruction ) per

' xtw.WriteProcessingInstruction ( _

' "xml - stylesheet " , " type = 'text /xsl ' href = ' Customers.xsl ' " ) per

' Scrivi il codice XML dal set di dati al file .

objDataset.WriteXml ( XTW ) per

xtw.Close ( ) per

MsgBox ( " I dati dei clienti è stato esportato in C : \\. Customers.xml " ) per

Catch ex As Exception

MsgBox ( ex. Message ) per

End Try
8

Incollare il codice nel gestore " Button1_Click " .
9

Premere " F5 " sulla tastiera per creare e quindi eseguire il programma .
10

Fare clic su " Button1 ", e questo creerà il file XML .
11

Exit " Form1 " per chiudere il programma.
Pagina 12

Start up " di Microsoft Office Excel . " Fare clic sul pulsante " Microsoft Office " , poi "Apri".
13

Trovare e selezionare il file " C : \\. Customers.xml "

• Come ridurre al minimo di un oggetto in Access 2007 
• Che cosa è la lettera di unità di accesso ?