Εκκίνηση της Visual Basic και να ανοίξει ένα νέο έργο με τη χρήση της " Φόρμας των Windows εφαρμογή ". 2
Χρησιμοποιώντας το " Add Reference "επιλογή , περιλαμβάνουν " Microsoft Excel 9.0 Object Library ".
εικόνων 3
Δημιουργήστε ένα " κουμπί " για την μορφή
Η
4 κάντε διπλό κλικ στο κουμπί και εισάγετε τον ακόλουθο κώδικα :
Dim AppXls Όπως Excel.ApplicationDim ObjWb Όπως Excel.Workbook
AppXls = CreateObject ( " Excel.Application " ) ObjWb = AppXls.Workbooks.Add « Ορίστε την τιμή στο κελί Α1 έως 1ObjWb.Worksheets.Item ( " Φύλλο1 " ) . Range ( " A1 " ) . value = " 1 "
ObjWb . SaveAs ( "C: \\ Test.xls " )
ObjWb.Close ( )
5
Αποθηκεύστε τη λύση και πατήστε το πλήκτρο "F5 " για να εκτελέσει το πρόγραμμα
<. br > 6
Κάντε κλικ στο κουμπί που βρίσκεται στη φόρμα και ένα υπολογιστικό φύλλο του Excel θα δημιουργηθεί στο " C : \\ Test.xls " .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα