Πώς να μεταφέρετε τα δεδομένα από το VBA

Εισαγωγή δεδομένων στο Microsoft Office Excel , δεν πρέπει να σημαίνει εισάγοντας χειροκίνητα ολόκληρο το φύλλο εργασίας . Χρήση της Visual Basic Access ( VBA ) σας εξοικονομεί πολλή προσπάθεια , μεταφέρετε τα αρχεία σας χωρίς κανένα πρόβλημα . Αυτό σας δίνει τα εργαλεία για να ανοίξετε τα αρχεία του Extensible Markup Language ( XML ) , το οποίο χρησιμοποιείται για να κωδικοποιήσει τα έγγραφα, με μια μορφή που μπορεί να διαβαστεί από οποιαδήποτε συμβατή εφαρμογή ? ​​Excel είναι μια τέτοια εφαρμογή . Απλά να δημιουργήσετε ένα αντικείμενο DataSet , να εξάγει σε ένα αρχείο XML και τα δεδομένα σας θα σας περιμένει στο Excel . Οδηγίες
Η 1

Εκκίνηση " MicrosoftVisualStudio.net " 2

Κάντε κλικ στο " Αρχείο , " τότε " Νέα ". Επιλέξτε το "Project ". Επιλέξτε " εφαρμογών των Windows " από τους τύπους έργων για τη δημιουργία Φόρμα1 .
Εικόνων 3

Κάντε κλικ στο " Toolbox ", που βρίσκεται στο μενού προβολή .
Η

4 Τοποθετήστε ένα κουμπί σε " Form1 " και στη συνέχεια κάντε διπλό κλικ στο " Κουμπί 1 . "
5

Επισημάνετε τον παρακάτω κώδικα σύροντας το ποντίκι σας από την πρώτη λέξη μέχρι την τελευταία .

Hold " Ctrl " και πατήστε το πλήκτρο " C " στο πληκτρολόγιο για να αντιγράψετε :

Private strConn As String = " Provider = Microsoft.Jet.OLEDB.4.0 ? προέλευσης δεδομένων = " & _

" C : \\ Program Files \\ Microsoft Office \\ Office10 \\ Samples \\ Northwind.mdb ? "
Η

6 Κάντε κλικ στο" Form1 Class ", και πατήστε το πλήκτρο " Ctrl "και" Ρ "μαζί για να επικολλήσετε τον κώδικα
Σελίδα 7

Αντιγράψτε όλα τον ακόλουθο κώδικα : .

'Σύνδεση με την πηγή δεδομένων

Dim objConn Όπως New System.Data.OleDb.OleDbConnection ( strConn )

Δοκιμάστε

objConn.Open ( )

« Γεμίστε ένα σύνολο δεδομένων με εγγραφές από τον πίνακα Πελάτες .

Δημ. strSQL Όπως String Dim

objDataset Όπως New DataSet ( )

Dim objAdapter Όπως New System.Data.OleDb.OleDbDataAdapter ( )

strSQL = " Επιλέξτε CustomerID , CompanyName , ΌνομαΕπαφής , " & _

" Χώρα , Τηλέφωνο από πελάτες»

objAdapter.SelectCommand = Νέα System.Data.OleDb.OleDbCommand ( _

strSQL , objConn )

objAdapter.Fill ( objDataset )

» Δημιουργήστε το FileStream να γράψει με

Dim strFilename Όπως String

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

Dim fs Όπως Νέο Σύστημα . IO.FileStream ( strFilename , _

System.IO.FileMode.Create )

« Δημιουργία XmlTextWriter για την FileStream .

Δημ. XTW As New System.Xml . XmlTextWriter ( fs , _

System.Text.Encoding.Unicode )

« Προσθήκη οδηγίες επεξεργασίας στην αρχή του αρχείου XML , ένα

« εκ των οποίων δείχνει ένα στυλ φύλλο .

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

« xtw.WriteProcessingInstruction ( _

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

« Γράψτε το XML από το σύνολο δεδομένων στο αρχείο .

objDataset.WriteXml ( XTW )

xtw.Close ( )

MsgBox ( " Τα δεδομένα των πελατών έχει εξαχθεί σε C : \\. Customers.xml " )

Catch ex Όπως Εξαίρεση

MsgBox ( π.χ. μήνυμα )

End Δοκιμάστε
8

Επικολλήστε τον κώδικα στην " Button1_Click " χειριστή .
Η

9 Πατήστε το πλήκτρο " F5 " στο πληκτρολόγιό σας για να δημιουργήσετε και να στη συνέχεια, εκτελέστε το πρόγραμμα .
Η 10

Κάντε κλικ στο " Button1 ", και αυτό θα δημιουργήσει το αρχείο XML .
Η 11

Exit " Form1 " για να κλείσει το πρόγραμμα .
Τετάρτη 12

Εκκίνηση "Microsoft Office Excel . " Κάντε κλικ στο κουμπί " Microsoft Office " , στη συνέχεια "Άνοιγμα ".

13

Βρείτε και επιλέξτε το αρχείο " C : \\. Customers.xml "

Η