Πώς να δημιουργήσετε ένα αρχείο του Excel χρησιμοποιώντας το Visual Basic 6.0

Visual Basic ( VB ) σας επιτρέπει να δημιουργήσετε desktop εφαρμογές για τα Windows , συμπεριλαμβανομένης της δημιουργίας των εγγράφων του Excel για τους χρήστες του λογισμικού σας . Αυτή η τεχνική προγραμματισμού χρησιμοποιείται συνήθως όταν θέλετε να προσφέρουν στους χρήστες έναν τρόπο για να εξάγει τα αρχεία σε ένα αρχείο σε μορφή εγγράφου CSV ή XLSX . Πρέπει να χρησιμοποιήσετε το "γραφείο" βιβλιοθήκη που περιλαμβάνεται με το λογισμικό Visual Studio που περιέχει τη γλώσσα VB . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί των Windows " Start" και επιλέξτε " Όλα τα προγράμματα ". Κάντε κλικ στο " Microsoft. NET Framework , " και στη συνέχεια κάντε κλικ στο κουμπί " Visual Studio " για να ανοίξει πλατφόρμα προγραμματισμού σας . Κάντε διπλό κλικ στο αρχείο του έργου σας για να φορτώσει τον κώδικα και τα έντυπα για την αίτηση . 2

δεξί κλικ στο αρχείο φόρμας που θέλετε να επεξεργαστείτε και κάντε κλικ στο " Προβολή κώδικα ". Αυτή η επιλογή μενού φορτώνει το αρχείο του κώδικα , το οποίο είναι όπου μπορείτε να τοποθετήσετε τον κώδικα του Excel . Κάντε διπλό κλικ στο κουμπί που θέλετε να χρησιμοποιήσετε για να δημιουργήσετε το αρχείο Excel . Αυτό ανοίγει τον κώδικα για το κουμπί , έτσι ώστε το αρχείο Excel δημιουργεί όταν ο χρήστης κάνει κλικ στο κουμπί .
Εικόνων 3

Δημιουργήστε το απαραίτητο Excel και το Office μεταβλητές αντικειμένου . Αυτές οι μεταβλητές προετοιμάσει τις βιβλιοθήκες του Office , ώστε να μπορείτε να χρησιμοποιήσετε τις εσωτερικές λειτουργίες των Windows και του Office για να δημιουργήσετε το αρχείο . Πληκτρολογήστε τον ακόλουθο κώδικα :

Dim excel As Object

Dim βιβλίο As Object

Dim φύλλο As Object
Η 4

Δημιουργήστε το αντικείμενο του αρχείου . Μπορείτε να δημιουργήσετε το αρχείο για πρώτη φορά πριν τη συμπλήρωση των κυττάρων του Excel στο βιβλίο εργασίας . Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε το αρχείο και να προσθέσετε το φύλλο :

Set excel = CreateObject ( " Excel.Application " )

Set βιβλίο = excel.Workbooks.Add
Η 5

συμπλήρωση των κυττάρων με data.You να συμπληρώσετε ένα ή περισσότερα κελιά στο φύλλο εργασίας . Ο κώδικας που ακολουθεί προσθέτει ένα όνομα και τη διεύθυνση για τα δύο πρώτα κελιά του υπολογιστικού φύλλου : . .

Set φύλλο = βιβλίο Φύλλα εργασίας ( 1 )

sheet.Range ( "A1" ) Value = " Όνομα "

sheet.Range ( " B1 " ) . Value = " Διεύθυνση "
Η

6 Πληκτρολογήστε τον κωδικό για να αποθηκεύσετε το αρχείο στο σκληρό δίσκο του χρήστη και να κλείσει τη μεταβλητή αντικειμένου . Πληκτρολογήστε τον ακόλουθο κώδικα για να ολοκληρώσετε τη διαδικασία δημιουργίας υπολογιστικών φύλλων :

book.SaveAs " C : \\ myExcelFile.xls "

excel.Quit
Η

7 Πατήστε το πλήκτρο ' Save " κουμπί , στη συνέχεια, κάντε κλικ στο" Run ". Κάντε κλικ στο κουμπί που δημιουργεί το φύλλο για να δοκιμάσετε τον κώδικα και να δημιουργήσει το φύλλο με τα δεδομένα .
Η
εικόνων