Gewusst wie: übertragen von Daten von VBA

Importieren von Daten in Microsoft Office Excel muss nicht bedeuten, das gesamte Arbeitsblatt manuell eingeben. Mit Visual Basic Access (VBA) erspart Ihnen viel Mühe, übertragen von Dateien ohne eine Anhängevorrichtung. Es gibt Ihnen die Werkzeuge zum Öffnen von Dateien in der Extensible Markup Language (XML), die Dokumente in einem Format codiert, das von jeder kompatiblen Anwendung gelesen werden kann; Excel ist eine solche Anwendung. Erstellen Sie einfach ein DataSet-Objekt in eine XML-Datei exportieren und Ihre Daten wartet auf Sie in Excel.

Anweisungen

1 Starten Sie "MicrosoftVisualStudio.net"

2 Klicken Sie "Datei", dann "Neuen." Wählen Sie "Projekt". Wählen Sie "Windows-Anwendung" aus den Projekttypen Form1 erstellt.

3 Klicken Sie auf "Toolbox", befindet sich im Menü Ansicht.

4 Fügen Sie eine Schaltfläche in "Form1", und doppelklicken Sie auf "Button 1."

5 Markieren Sie den folgenden Code durch Ziehen der Maus vom ersten Wort bis zum letzten.

Halten Sie "Strg gedrückt" und drücken Sie "C" auf Ihrer Tastatur, um ihn zu kopieren:

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

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

Klicken Sie auf "Form1-Klasse", und drücken Sie "Strg" und "P" um den Code einzufügen.

7 Kopieren Sie den folgenden Code:

'Connect to the data source.

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

Try

objConn.Open()

'Fill a dataset with records from the Customers table.

Dim strSQL As String

Dim objDataset As New DataSet()

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

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

"Country, Phone from Customers"

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

strSQL, objConn)

objAdapter.Fill(objDataset)

' Create the FileStream to write with.

Dim strFilename As String

strFilename = "C:\Customers.xml"

Dim fs As New System.IO.FileStream(strFilename, _

System.IO.FileMode.Create)

'Create an XmlTextWriter for the FileStream.

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

System.Text.Encoding.Unicode)

'Add processing instructions to the beginning of the XML file, one

'of which indicates a style sheet.

xtw.WriteProcessingInstruction("xml", "version='1.0'")

'xtw.WriteProcessingInstruction( _

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

'Write the XML from the dataset to the file.

objDataset.WriteXml(xtw)

xtw.Close()

MsgBox("Customer data has been exported to C:\Customers.xml.")

Catch ex As Exception

MsgBox(ex.Message)

End Try8

Fügen Sie den Code im Ereignishandler "Button1_Click".

9 Drücken Sie "F5" auf Ihrer Tastatur zu erstellen und dann das Programm ausführen.

10 Klicken Sie auf "Button1", und dies wird die XML-Datei erstellen.

11 Ausfahrt "Form1", um das Programm zu schließen.

12 Starten Sie "Microsoft Office Excel." Klicken Sie auf die Schaltfläche "Microsoft Office", dann "Öffnen Sie".

13 Suchen Sie und wählen Sie die Datei "C:\Customers.xml."