gegevens importeren in Microsoft Office Excel hoeft niet te betekenen het handmatig invoeren van het gehele werkblad . Met behulp van Visual Basic Access ( VBA ) bespaart u veel moeite , het overzetten van bestanden zonder een hapering . Het geeft je de tools om bestanden te openen in de Extensible Markup Language ( XML ) , die wordt gebruikt om documenten te coderen met een indeling die kan worden gelezen door elke compatibele applicatie, Excel is een dergelijke applicatie . Maak gewoon een DataSet-object , exporteren naar een XML-bestand en uw gegevens zullen worden voor u klaar in Excel . Instructies
1 Start up " MicrosoftVisualStudio.net " kopen van 2 Klik op " File " en vervolgens " Nieuw . " Selecteer " Project . " Kies " Windows Application " van het type project aan Form1 maken .
Klik op " Toolbox ", 3 op het menu view .
4 Plaats een button in " Form1 " en dubbelklik op " Button 1 . "
5 Markeer de volgende code door uw muis te slepen vanaf het eerste woord tot de laatste .
Hold " Ctrl " en druk op" C "op je toetsenbord om het te kopiëren : Prive strConn
As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; data Source = " & _
" C : \\ Program Files \\ Microsoft Office \\ Office10 \\ Samples \\ Northwind.mdb ; . "
Klik 6 op " Form1 klasse , " en druk op" Ctrl " en " P " samen om de code te plakken < br >
Copy 7 alle van de volgende code :
' verbinding met de gegevensbron Dim objConn
als Nieuwe System.Data.OleDb.OleDbConnection ( strConn ) < br . > Probeer objConn.Open ( )
' een dataset vullen met records uit de tabel Klanten . Dim strSQL
als Koord
Dim objDataset As New DataSet ( ) Dim objAdapter
als Nieuwe System.Data.OleDb.OleDbDataAdapter ( ) strSQL = " Select CustomerID , Bedrijfsnaam , Contactpersoon , " & _
" Land , telefoon van klanten "
objAdapter.SelectCommand = Nieuw System.Data.OleDb.OleDbCommand ( _ strSQL
, objConn ) objAdapter.Fill
( objDataset ) < br > ' de FileStream maken om te schrijven met Dim strFilename als Koord strFilename
=
. " C : \\ Customers.xml " Dim fs
als Nieuwe System . IO.FileStream ( strFilename , _ System.IO.FileMode.Create
) op ' een XmlTextWriter voor het FileStream creëren . Dim XTW
als Nieuwe System.Xml . XmlTextWriter ( fs , _ System.Text.Encoding.Unicode
) op Twitter 'Voeg verwerking instructies aan het begin van het XML-bestand , een
' van die duidt op een stijl sheet . xtw.WriteProcessingInstruction
( " xml " , " version = '1 .0 ' " ) op Twitter ' xtw.WriteProcessingInstruction ( _
' " xml - stylesheet " , " type = " text /xsl ' href = ' customers.xsl ' " ) op Twitter ' Schrijf de XML uit de dataset om het bestand .
objDataset.WriteXml ( XTW ) op xtw.Close ( ) MsgBox
( " data Klant is geëxporteerd naar C : . \\ Customers.xml " ) Catch ex
als Uitzondering MsgBox
( ex. bericht ) End of Probeer
8 Plak de code in de " Button1_Click " handler .
Druk " F5 " 9 op uw toetsenbord om te creëren en vervolgens voert u het programma .
Klik op " Button1 , " 10 en dit zal het XML- bestand te maken.
Exit " Form1 " 11 om het programma te sluiten .
12 Start up " Microsoft Office Excel . " Klik op de " Microsoft Office " -knop en vervolgens ' Open '.
13 Zoek en selecteer het bestand " C : . \\ Customers.xml "
|
