Τρόπος εξαγωγής δεδομένων σε Excel Μέσω VB6

Η Microsoft Visual Basic γλώσσα σας επιτρέπει να εργάζεστε με το Microsoft Excel χωρίς εγκατάσταση επιπλέον λογισμικού. Οι οδηγοί Excel έρχονται με το λογισμικό Excel , αλλά ο compiler VB6 έρχεται επίσης με τα απαραίτητα προγράμματα οδήγησης . Μπορείτε να χρησιμοποιήσετε αυτούς τους οδηγούς για την εξαγωγή δεδομένων στο XLS ή μορφή αρχείου XLSX που άλλοι χρήστες μπορούν να χρησιμοποιήσουν για να διαβάσει τα δεδομένα . Οδηγίες
Η

1 Ανοίξτε το λογισμικό VB6 compiler από το μενού του προγράμματος των Windows . Ανοίξτε έργο VB σας για να φορτώσει όλα τα αρχεία του έργου . 2

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

Set excel = CreateObject ( " Excel.Application " ) Set βιβλίο = excel.Workbooks.AddSet φύλλο = book.Worksheets ( 1 )
Η
3

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

Sheet.Range ( "A1" ) Value = " Joe " sheet.Range ( " B1 " ) Value = " Smith " ?
Η

4 Αποθηκεύστε το αρχείο και κλείστε το πρόγραμμα οδήγησης του Excel . Ο κώδικας που ακολουθεί αποθηκεύει το αρχείο ως " customers.xls » και κλείνει ο οδηγός Excel :

book.SaveAs " C : \\ customers.xls " excel.Quit
εικόνων