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. Ti dà gli strumenti per aprire i file nella Extensible Markup Language (XML), che viene utilizzato per codificare i documenti con un formato che può essere letto da qualsiasi applicazione compatibile; Excel è una tale applicazione. È sufficiente creare un oggetto DataSet, esportarla in un file XML ei dati saranno attesa per voi in Excel.

istruzione

1 Start up "MicrosoftVisualStudio.net"

2 Fare clic su "File", quindi "Nuovo". Selezionare "Progetto". Scegliere "Applicazione Windows" dai tipi di progetto per creare Form1.

3 Fai clic su "Strumenti", situata nel menu Visualizza.

4 Inserire un pulsante in "Form1", e quindi fare doppio clic su "Pulsante 1"

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

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

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

"C: \ Programmi \ Microsoft Office \ Office10 \ Samples \ Northwind.mdb;"

6 Clicca su "Form1 di classe," e premere "Ctrl" e "P" insieme per incollare il codice.

7 Copiare tutti il ​​seguente codice:

'Connect to the data source.

Dim objConn come nuovo System.Data.OleDb.OleDbConnection (strConn)

Provare

objConn.Open ()

'Riempire un insieme di dati con record della tabella Clienti.

Dim strSQL As String

Dim objDataset come nuovo DataSet ()

Dim objAdapter come nuovo System.Data.OleDb.OleDbDataAdapter ()

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

"Nazione, Telefono da clienti"

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

strSQL, objConn)

objAdapter.Fill (objDataset)

'Crea il FileStream per scrivere.

Dim strFilename As String

strFilename = "C: \ Customers.xml"

fs fioco come nuovo System.IO.FileStream (strFilename, _

System.IO.FileMode.Create)

'Creare un XmlTextWriter per il FileStream.

Dim XTW come nuovo System.Xml.XmlTextWriter (fs, _

System.Text.Encoding.Unicode)

'Aggiungere istruzioni di elaborazione all'inizio del file XML, uno

'Dei quali indica un foglio di stile.

xtw.WriteProcessingInstruction ( "xml" "version = '1.0'")

'Xtw.WriteProcessingInstruction (_

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

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

objDataset.WriteXml (XTW)

xtw.Close ()

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

Fermo ex come eccezione

MsgBox (ex.Message)

End Try

8 Incollare il codice nel gestore "Button1_Click".

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

10 Fai clic su "Button1", e questo creerà il file XML.

11 EXIT "Form1" per chiudere il programma.

12 Avviare "Microsoft Office Excel." Fare clic sul pulsante "Microsoft Office", poi "Apri".

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