Hvordan overføre data ved VBA

Importere data til Microsoft Office Excel trenger ikke å bety manuelt taste hele regnearket. Ved hjelp av Visual Basic Tilgang (VBA) sparer du mye arbeid, overføre filer uten problemer. Det gir deg verktøy for å åpne filene i Extensible Markup Language (XML), som brukes til å kode dokumenter med et format som kan leses av alle kompatible program; Excel er en slik anvendelse. Bare lage et datasett objekt, eksportere den til en XML-fil, og dataene vil bli venter på deg i Excel.

Bruksanvisning

1 Start "MicrosoftVisualStudio.net"

2 Klikk på "File" og deretter "Ny". Velg "Prosjekt". Velg "Windows Application" fra prosjekttyper for å skape Form1.

3 Klikk "Toolbox", som ligger på Vis-menyen.

4 Sett inn en knapp på "Form1", og dobbeltklikk deretter "Button 1."

5 Marker følgende kode ved å dra musen fra det første ordet til det siste.

Hold "Ctrl" og trykk "C" på tastaturet for å kopiere den:

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

"C: \ Programfiler \ Microsoft Office \ Office10 \ samples \ Northwind.mdb;"

6 Klikk på "Form1 Class", og trykk "Ctrl" og "P" sammen for å lime inn koden.

7 Kopier alt av følgende kode:

'Connect to the data source.

Dim objConn som ny System.Data.OleDb.OleDbConnection (strConn)

Prøve

objConn.Open ()

"Fyll et datasett med poster fra Kunder bordet.

Dim strSQL As String

Dim objDataset Som nytt datasett ()

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

strSQL = "Velg CustomerID, Ola Normann, Contact," & _

"Country, Telefon fra kunder"

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

strSQL, objConn)

objAdapter.Fill (objDataset)

'Opprett Filestream å skrive med.

Dim strFilename As String

strFilename = "C: \ Customers.xml"

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

System.IO.FileMode.Create)

Opprett en XmlTextWriter for Filestream.

Dim XTW som ny System.Xml.XmlTextWriter (fs, _

System.Text.Encoding.Unicode)

"Legg til behandlingsinstruksjoner til begynnelsen av XML-fil, en

'Av noe som indikerer en stil ark.

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

'Xtw.WriteProcessingInstruction (_

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

'Skriv XML fra datasettet til filen.

objDataset.WriteXml (XTW)

xtw.Close ()

MsgBox ( "Kunden data har blitt eksportert til C: \ Customers.xml.")

Catch ex As Exception

MsgBox (ex.Message)

End Try

8 Lim inn koden i "button1_click" handler.

9 Trykk "F5" på tastaturet for å opprette og deretter kjøre programmet.

10 Klikk "Button1", og dette vil skape XML-filen.

11 Exit "Form1" for å lukke programmet.

12 Start "Microsoft Office Excel." Klikk på "Microsoft Office" -knappen, deretter "Open".

1. 3 Finn og velg filen "C:. \ Customers.xml"