Πώς να γράψει στο Excel από VB6

Visual Basic 6 είναι η γλώσσα προγραμματισμού και ολοκληρωμένο περιβάλλον ανάπτυξης αναπτυχθεί από τη Microsoft . Η γλώσσα είναι δημοφιλής για την ταχεία ανάπτυξη εφαρμογών της , καθώς και τις δυνατότητες αυτοματοποίησης . Προγραμματιστές VB6 είναι σε θέση να προγραμματίσει και να αυτοματοποιήσει μια σειρά από προγράμματα της Microsoft , συμπεριλαμβανομένου του Microsoft Office , και ιδίως το Microsoft Excel . Προγραμματιστές είναι σε θέση να αναφέρουν αντικείμενα που σχετίζονται με το Excel στον κώδικα VB6 τους , η οποία τους δίνει τη δυνατότητα να αυτοματοποιήσουν , να διαβάσει και να γράψει στο πρόγραμμα . Γράφοντας κώδικα VB6 παίρνει κάποια γνώση της σύνταξης του προγραμματισμού ? Μόλις αποκτήσει τη γνώση , γράφοντας στο Excel στον κώδικα VB6 σας διαρκεί μόλις λίγα βήματα και γραμμές κώδικα που θα ακολουθήσει. Οδηγίες
Η 1

Ανοίξτε Visual Basic 6 και επιλέξτε "Standard EXE " από τη νέα λίστα των έργων . 2

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

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα , σύμφωνα με τον Mike Rosenblum της Xtreme VB Talk .

Sub WriteToExcel ( )

Dim oExcel Όπως Excel.Application '<- *** Αναφορά στο αντικείμενο εφαρμογής του Excel ***

Dim OWB Όπως Excel.Workbook ' <- - *** Αναφορά στο βιβλίο εργασίας του Excel αντικείμενο ***

Dim OWS Όπως Excel.Worksheet '<- *** Αναφορά στο αντικείμενο φύλλου εργασίας του Excel ***

Set oExcel = Νέα Excel.Application

oExcel.Visible = True

Dim oRng1 Όπως Excel.Range

Dim oRng2 Όπως Excel.Range

Set OWB = oExcel.Workbooks . Προσθήκη

Set OWS = oWB.Worksheets ( " Φύλλο1 " )

Set oRng1 = oWS.Range ( " A1" )

Set oRng2 = oWS.Range ( " B2 : E5 " )

oRng1.Value = " Hello World "

Call oRng1.Copy ( Προορισμός : = oRng2 )

oWB.SaveAs ( " Hello World.xls » )« <- αποτελέσματα αποθηκεύονται εδώ

Εκκαθάριση :

Set OWS = Τίποτα

Αν δεν OWB δεν είναι τίποτα τότε oWB.Close

. Ορισμός OWB = Τίποτα

oExcel.Quit

Set oExcel = Τίποτα

End Sub

Ο κωδικός αναφοράς αντικειμένων του Microsoft Excel και , στη συνέχεια, ότι η σύνδεση χρησιμοποιεί για να ανοίξει Microsoft Excel , στη συνέχεια, να γράψετε τη λέξη " Hello World " στο κελί A1 και περιοχή B2 : E5 . Στη συνέχεια αποθηκεύει το έγγραφο ως " Hello World.xls " στον υπολογιστή σας και τα έσοδα σας για να κλείσετε το Microsoft Excel .
Η

4 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα .
Η

Η