Importera data till Microsoft Office Excel inte behöver betyda att manuellt ange hela kalkylbladet . Använda Visual Basic Åtkomst ( VBA ) sparar mycket arbete , överföra dina filer utan problem . Det ger dig verktyg för att öppna filer i Extensible Markup Language ( XML ) , som används för att koda dokument med ett format som kan läsas av alla kompatibla program , Excel är en sådan ansökan . Helt enkelt skapa en DataSet objekt , exportera den till en XML-fil och dina uppgifter kommer att vänta på dig i Excel . Instruktioner
1
Starta " MicrosoftVisualStudio.net "
2
Klicka på " File" och sedan " Nytt . " Välj " Project . " Välj " Windows Application " från projekttyper för att skapa Form1 .
3
Klicka på " Toolbox ", belägen på Visa-menyn .
4
Infoga en knapp in " Form1 " och dubbelklicka sedan på " Button 1 . "
5
Markera följande kod genom att dra musen från första ordet till det sista .
Hold " Ctrl " och tryck på " C " på tangentbordet för att kopiera det :
Privat strConn As String = " Provider = Microsoft.Jet.OLEDB.4.0 , Data Source = " & _
" C : \\ Program \\ Microsoft Office \\ Office10 \\ Samples \\ Northwind.mdb , . "
6
Klicka på " Form1 klass , " och tryck på " Ctrl " och " P " tillsammans för att klistra in koden
7
Kopiera alla följande kod :
'Anslut till datakällan
Dim objConn som New System.Data.OleDb.OleDbConnection ( strConn )
Prova
objConn.Open ( ) katalog
"fyll en datamängd med poster från tabellen Kunder .
Dim strSQL As String
Dim objDataset Som New DataSet ( ) katalog
Dim objAdapter Som Nytt System.Data.OleDb.OleDbDataAdapter ( ) katalog
strSQL = " Select CustomerID , Företagsnamn , ContactName , " & _
" Land , telefon från kunder "
objAdapter.SelectCommand = Ny System.Data.OleDb.OleDbCommand ( _
strSQL , objConn ) katalog
objAdapter.Fill ( objDataset )
'Skapa FileStream att skriva med
Dim strFilename As String
strFilename = . " C : \\ Customers.xml "
Dim fs som Nytt System . IO.FileStream ( strFilename , _
System.IO.FileMode.Create ) katalog
"Skapa ett XmlTextWriter för FileStream .
Dim xtw Som Ny System.Xml . XmlTextWriter ( fs , _
System.Text.Encoding.Unicode ) katalog
' Lägg behandlingsinstruktioner till början av XML -fil , en
" som indikerar en stil ark .
xtw.WriteProcessingInstruction ( " xml " , " version = '1 .0 ' " ) katalog
" xtw.WriteProcessingInstruction ( _
' " xml - stilmall " , " type = ' text /xsl ' href = ' customers.xsl ' " ) katalog
' Skriv XML från datamängden till filen .
objDataset.WriteXml ( xtw ) katalog
xtw.Close ( ) katalog
MsgBox ( " Kundens data har exporterats till C : . \\ Customers.xml " ) katalog
Catch ex som Exception
MsgBox ( ex. Message ) katalog
End Försök
8
Klistra in koden i " Button1_Click " handler .
9
Tryck " F5 " på ditt tangentbord för att skapa och sedan kör programmet .
10
Klicka på " Button1 , " och detta kommer att skapa XML-filen .
11
Exit " Form1 " för att stänga programmet .
12
Starta upp " Microsoft Office Excel . " Klicka på " Microsoft Office " -knappen och sedan " Öppna ".
13
Hitta och markera filen " C : . \\ Customers.xml "
