Importieren von Daten in Microsoft Office Excel muss nicht bedeuten, die manuelle Eingabe der gesamte Arbeitsblatt . Mit Visual Basic Access (VBA) erspart Ihnen viel Mühe , die Übertragung Ihrer Dateien ohne Zwischenfälle. Es gibt Ihnen die Werkzeuge, um Dateien in der Extensible Markup Language (XML) , die verwendet werden, um Dokumente mit einem Format, das von jedem kompatiblen Anwendung gelesen werden kann kodieren öffnen ; Excel ist eine solche Anwendung . Erstellen Sie einfach ein DataSet-Objekt , exportieren Sie es in einer XML-Datei und Ihre Daten werden auf Sie warten in Excel. Anleitung
1
Start up " MicrosoftVisualStudio.net "
2
Klicken Sie auf " Datei", dann "Neu." Wählen Sie " Projekt". Wählen Sie "Windows Application" aus den Projekt- Typen zu Form1 zu erstellen.
3
Klicken Sie auf " Werkzeuge " im Ansicht-Menü entfernt.
4
Einfügen einer Schaltfläche in " Form1 " und dann doppelt auf " Button 1 ".
5
Markieren Sie den folgenden Code , indem Sie mit der Maus vom ersten bis zum letzten Wort .
Hold " Ctrl "und drücken Sie " C "auf Ihrer Tastatur, um sie zu kopieren :
Privat strConn As String = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& _
" C: \\ Program Files \\ Microsoft Office \\ Office10 \\ Samples \\ Nordwind.mdb ; . "
6
Klicke auf " Form1 Klasse ", und drücken Sie " Strg "und " P " zusammen, um den Code einzufügen
Seite 7
Kopieren Sie alle folgenden Code:
' zur Datenquelle Verbinden
Dim As New objConn System.Data.OleDb.OleDbConnection ( strConn )
Versuchen
objConn.Open ()
' eine Datenmenge mit Datensätzen aus der Tabelle Customers füllen .
Dim strSQL As String Dim
objDataset As New DataSet () Dim
objAdapter As New System.Data.OleDb.OleDbDataAdapter ()
strSQL = "Select CustomerID , CompanyName , ContactName , " & _
" Land, Telefon von Kunden"
objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand (_
strSQL , objConn )
objAdapter.Fill ( objDataset )
'Erstellen des FileStream zum Schreiben
Dim strFilename As String
strFilename = . "C: \\ Customers.xml "
Dim fs As New Systems . IO.FileStream ( strFilename , _
System.IO.FileMode.Create )
' Neues XmlTextWriter für den FileStream .
Dim As New XTW System.Xml . XmlTextWriter (fs , _
System.Text.Encoding.Unicode )
' hinzufügen Verarbeitungshinweise zum Anfang der XML-Datei , einer
' davon zeigt einen Stil Blatt .
xtw.WriteProcessingInstruction ( "xml ", " version = '1 .0 ' " )
' xtw.WriteProcessingInstruction (_
' "xml -stylesheet ", " type = " text /xsl 'href =' Customers.xsl ' " )
' das XML aus dem Datensatz in die Datei schreiben .
objDataset.WriteXml ( XTW )
< p > xtw.Close ()
MsgBox ( "Customer Daten auf C exportiert worden : . \\ Customers.xml " )
Fang ex As Exception MsgBox
(ex. Message)
End Try
8
Fügen Sie den Code in das " Button1 " Handler .
9
Presse "F5 " auf Ihrer Tastatur zu erstellen und dann starten Sie das Programm .
10
Klicken Sie auf " Button1 ", und dies wird die XML-Datei zu erstellen.
11
Exit " Form1 ", um das Programm zu schließen.
12
starten Sie "Microsoft Office Excel . " Klicken Sie auf " Microsoft Office "-Button und dann auf " Öffnen ".
13
Suchen und wählen Sie die Datei "C: . \\ Customers.xml "
