Import af data til Microsoft Office Excel behøver ikke at betyde manuelt at indtaste hele regnearket. Ved hjælp af Visual Basic Access (VBA ) sparer dig en stor indsats , overføre dine filer uden problemer . Det giver dig værktøjer til at åbne filer i Extensible Markup Language ( XML) , som bruges til at indkode dokumenter med et format, der kan læses af enhver kompatibel ansøgning Excel er en sådan ansøgning. Du skal blot oprette en DataSet objekt , eksportere den til en XML-fil , og dine data vil blive venter på dig i Excel. Instruktioner
1

Start op " MicrosoftVisualStudio.net "
2

Klik på "File " og derefter " Ny". Vælg "Projekt ". Vælg "Windows Application " fra projekttyper at oprette Form1 .
3

Klik på " Toolbox ", placeret på menuen Vis.
4

Indsæt en knap til " Form1 " og derefter dobbeltklikke på " knap 1 ".
5

Fremhæv følgende kode ved at trække musen fra det første ord til det sidste .

Hold " Ctrl "og tryk " C " på tastaturet for at kopiere det : Hej

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

" C: \\ Programmer \\ Microsoft Office \\ Office10 \\ Samples \\ Northwind.mdb , . "
6

Klik på " Form1 Class ", og tryk på" Ctrl " og " P " sammen for at indsætte koden < br >
7

Kopier alle følgende kode : Hej

'Opret forbindelse til datakilden

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

Prøv

via driveroplysninger mv objConn.Open ()

' Fyld et datasæt med poster fra tabellen Kunder .

Dim strSQL As String

Dim objDataset Som New DataSet ()

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

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

" Country, Telefon fra kunder"

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

strSQL , objConn )

objAdapter.Fill ( objDataset ) < br >

' Opret FileStream at skrive med

Dim strFileName As String

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

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

System.IO.FileMode.Create )

'Opret en XmlTextWriter for FileStream .

Dim xtw Som New System.Xml . XmlTextWriter ( fs , _

System.Text.Encoding.Unicode )

'Føj behandlingsinstruktioner til begyndelsen af ​​den XML-fil , en

»heraf angiver en stil ark.

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

' xtw.WriteProcessingInstruction (_

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

' Skriv XML fra datasættet til filen.

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

MsgBox ( " Kundedata er blevet eksporteret til C: . \\ Customers.xml " )

Fang ex Som Exception

MsgBox ( ex. Message )

End Prøv
8

Indsæt koden i " Button1_Click " handleren .
9

Tryk på " F5 " på dit tastatur til at skabe og derefter køre programmet.
10

Klik på " Button1 ", og dette vil skabe XML-filen.
11

Exit " Form1 " for at lukke programmet.

12

Start "Microsoft Office Excel ". Klik på " Microsoft Office"-knappen og derefter på " Åbn ".
13

Find og vælg filen "C: . \\ Customers.xml "