Ako preniesť dáta pomocou VBA

Import dát do aplikácie Microsoft Office Excel nemusí znamenať ručne zadaním celý hárok . Pomocou jazyka Visual Basic Access ( VBA ) vám ušetrí veľa úsilia , prenos súborov bez problémov . To vám dáva nástroje na otvorenie súborov v Extensible Markup Language ( XML ) , ktorý sa používa na zakódovanie dokumenty vo formáte , ktorý je čitateľný akéhokoľvek kompatibilného aplikácie, aplikácie Excel je jedným z takýchto aplikácií . Jednoducho vytvoriť objekt DataSet , exportovať ich do súboru XML a vaše dáta budú na vás čaká v programe Excel . Pokyny dovolená 1

Uvedenie do prevádzky " MicrosoftVisualStudio.net "
2

Kliknite na " Súbor " a potom " Nový . " Vyberte " projekt . " Zvoľte " Aplikácia Windows " z typov projektov , ktoré majú vytvoriť Form1 .
3

Kliknite na " Nástroje " , sa nachádza v ponuke zobrazenia.
4

Vloženie tlačidla do " Form1 " a potom dvakrát kliknite na " tlačidlo 1 " .
5

Zvýraznite nasledujúci kód ťahaním myši od prvého do posledného slova .

Hold " Ctrl " a stlačte tlačidlo " C " na vašej klávesnici kopírovať : klipart

Súkromná strConn As String = " Provider = microsoft.jet.oledb.4.0 ; Data Source = " & _

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

Kliknite na " Form1 triedy , " a stlačte tlačidlo " Ctrl " a " P " spolu so vložiť kód < br . >
7

skopírujte všetky nasledujúci kód : .

" Pripojenie k zdroju dát

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

Skúste klipart

objConn.Open ( )

" Naplňte dátový súbor sa záznamy z tabuľky Zákazníci .

Dim strSQL As String Dim

objDataset ako New DataSet ( )

Dim objAdapter ako nový System.Data.OleDb.OleDbDataAdapter ( )

strSQL = " Vyberte KódZákazníka , NázevSpolečnosti , ContactName , " & _

" Krajina , telefón od zákazníkov "

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

strSQL , objConn )

objAdapter.Fill ( objDataset )

" Vytvorenie FileStream na písanie

Dim strFileName As String

strFileName . = " C : \\ Customers.xml "

Dim fs ako nového systému . IO.FileStream ( strFileName , _

System.IO.FileMode.Create )

" Vytvoriť XmlTextWriter pre FileStream .

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

System.Text.Encoding.Unicode )

" Pridať pokyny pre spracovanie na začiatku súboru XML , jeden

" , ktoré označuje štýl list .

xtw.WriteProcessingInstruction ( " xml " , " version = '1 .0 ' " )

" xtw.WriteProcessingInstruction ( _

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

" Napíšte XML z dátového súboru do súboru .

objDataset.WriteXml ( xtw )

xtw.Close ( )

MsgBox ( " Údaje o zákazníkoch bol exportovaný do C : . \\ Customers.xml " )

Chytiť ex ako výnimka

MsgBox ( ex. správa )

End Try
8

Vložte kód do obslužnej rutiny " Button1_Click " .
9

Stlačte " F5 " na vašej klávesnici vytvoriť a spustite program .
10

Kliknite na " Button1 " a tým vytvorí súbor XML .
11

Exit " Form1 " pre zatvorenie programu .

12

Uvedenie do prevádzky " Microsoft Office Excel . " Kliknite na tlačidlo " Microsoft Office " , potom " Otvoriť " .
13

Vyhľadajte a vyberte súbor " C : . \\ Customers.xml "

• Predchádzajúca strana: Ako minimalizovať Object Access 2007 
• Ďalšia strana: Čo je Drive Letter Access ?