importere data inn i Microsoft Office Excel ikke å bety manuelt taste hele regnearket. Ved hjelp av Visual Basic -tilgang ( VBA ) sparer du mye arbeid , overføring av filene uten problemer . Det gir deg verktøy til å åpne filer i Extensible Markup Language ( XML) , som brukes til å kode dokumenter med et format som kan leses av alle kompatible program, Excel er et slikt program . Bare lage et datasett objekt , eksportere det til en XML-fil og dataene vil bli venter på deg i Excel . Instruksjoner
en

Start " MicrosoftVisualStudio.net "
2

Klikk på "File " og deretter " Ny". Velg " Prosjekt ". Velg "Windows Application " fra prosjektet typer å skape Form1 .
3

Klikk på " Toolbox ", som ligger på Vis-menyen.
4

Sett inn en knapp inn i " Form1 ", og deretter dobbeltklikk på " knapp 1 ".
5

Marker følgende kode ved å dra musen fra det første ordet til det siste.

Hold " Ctrl "og trykk" C " på tastaturet for å kopiere det : en

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

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

Klikk på" Form1 Class ", og trykk" Ctrl " og" P " sammen for å lime inn koden

7

Kopier alt av følgende kode :

'Koble til datakilden

Dim objConn som ny System.Data.OleDb.OleDbConnection ( strConn )

Prøv

objConn.Open ( )

"fylle et datasett med poster fra tabellen Kunder .

Dim strSQL As String

Dim objDataset Som nytt datasett ( )

Dim objAdapter Som New System.Data.OleDb.OleDbDataAdapter ( )

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

" Land , Telefon fra kunder"

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

strSQL , objConn )

objAdapter.Fill ( objDataset )

' Opprett FileStream å skrive med

Dim strFileName As String

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

Dim fs som ny System . IO.FileStream ( strFileName , _

System.IO.FileMode.Create )

Opprett en XmlTextWriter for FileStream .

Dim XTW som ny System.Xml . XmlTextWriter ( fs , _

System.Text.Encoding.Unicode )

' Legg prosessering instruksjoner til begynnelsen av XML- fil, en

"av noe som indikerer en stil ark .

xtw.WriteProcessingInstruction ( " xml ", " version = '1 0,0 ' ")

' xtw.WriteProcessingInstruction (_

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

' Skriv XML fra datasettet til filen .

objDataset.WriteXml ( XTW )
< p > xtw.Close ( )

MsgBox ( " Kunden data har blitt eksportert til C: . \\ Customers.xml ")

Catch ex As Exception

MsgBox ( ex. melding)

End Prøv
8

Lim koden inn i " button1_click " handler .
9

Trykk " F5" på tastaturet for å opprette og deretter kjøre programmet .
10

Klikk " Button1 ", og dette vil skape XML-filen.
11

Exit " Form1 " for å lukke programmet .

12

Start " Microsoft Office Excel . " Klikk på " Microsoft Office "-knappen, deretter " Åpne ".
13

Finn og velg filen "C : . \\ Customers.xml "