1 Κάντε κλικ στο κουμπί των Windows " Start" και επιλέξτε " Όλα τα προγράμματα ". Κάντε κλικ στο " Microsoft -πλαίσιο " και στη συνέχεια κάντε κλικ στο " Visual Studio " για να ανοίξετε το πρόγραμμα επεξεργασίας . Κάντε διπλό κλικ στο όνομα του αρχείου Basic Visual να φορτώσει τον κώδικα στο πρόγραμμα επεξεργασίας . 2
Δημιουργήστε τις μεταβλητές Excel και ανοίξτε το αρχείο . Ο κώδικας που ακολουθεί σας δείχνει τις απαιτούμενες μεταβλητές και τον κωδικό που απαιτείται για να ανοίξετε το αρχείο :
Dim app As Object
Dim wb As Object
Set app = CreateObject ( " Excel . Εφαρμογή » )
app.Visible = True
Set wb = app.Workbooks.Open ( " c : \\ filename.xls " )
Ορισμός ws = wb . Φύλλα εργασίας ( "Sheet1 " )
Αλλαγή "c : \\ filename.xls " με το όνομα και τη θέση του δικού σας αρχείου Excel
εικόνων 3
Εκτυπώστε το πρώτο κελί του Excel . . Τώρα που ανοίγει το αρχείο , μπορείτε να αναφέρετε το περιεχόμενο των κυττάρων και εμφανίζει στο χρήστη . Ο παρακάτω κώδικας εμφανίζει το κελί " A1 " για τους χρήστες :
MsgBox w.cells ( 0 , 0 ) Αξία
4
Κάντε κλικ στο κουμπί "Αποθήκευση" στο πρόγραμμα επεξεργασίας VB . . Κάντε κλικ στο " Run" για να εκτελέσει τον κώδικα και να δείτε τις αλλαγές στον κώδικα VB στην εφαρμογή σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα