Πώς να Τοποθετήστε μια ημερομηνία στο Excel Visual Basic

Να είσαι σε θέση να εισάγετε δεδομένα σε ένα βιβλίο εργασίας του Microsoft Excel θα κάνει Visual Basic εφαρμογή σας πιο δυναμική . Συχνά, μπορείτε να αντιμετωπίσετε την ανάγκη να εισάγετε την ημερομηνία σε ένα βιβλίο εργασίας όταν κάνετε εξαγωγή δεδομένων από την εφαρμογή VB σας . Στη VB , μπορείτε να χρησιμοποιήσετε τη βιβλιοθήκη αντικειμένων του Microsoft Excel για να δημιουργήσετε ένα νέο βιβλίο εργασίας του Excel και να εισαγάγετε δεδομένα σε αυτό . Μπορείτε να χρησιμοποιήσετε το " Τώρα " για να πάρετε την ημερομηνία του συστήματος και τοποθετήστε την στο Excel , χρησιμοποιώντας το " Range" ιδιοκτησίας. Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Basic Express , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , στη συνέχεια, κάντε κλικ στο " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί . Κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν click για αυτό το κουμπί . Κάντε κλικ στο μενού "Έργο" , κάντε κλικ στο κουμπί " Add Reference , " και στη συνέχεια κάντε κλικ στην καρτέλα " COM " . Κάντε διπλό κλικ στο "Microsoft Excel βιβλιοθήκη αντικειμένων " για να το προσθέσετε ως σημείο αναφοράς .
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσει τις μεταβλητές αντικειμένου του Excel που θα χρησιμοποιήσετε για να δημιουργήσετε ένα νέο βιβλίο εργασίας του Excel :

Dim objXLS Όπως Εφαρμογή = νέα Αίτηση

Dim objXLXBks Όπως Τετράδια = Τίποτα

Dim objXLSBk Ως βιβλίο εργασίας = Τίποτα

Dim objXLSShts Όπως Φύλλα = Τίποτα

Dim objXLSSht Όπως Φύλλο = Τίποτα

Dim objXLSrng Όπως Εύρος = Τίποτα
4

Πληκτρολογήστε τον ακόλουθο κώδικα για να προσθέσετε ένα νέο βιβλίο εργασίας :

objXLS.Visible = False

objXLS.DisplayAlerts = False

objXLSBk = ctype ( objXLS.Workbooks.Add ( ) , Workbook )
5

Προσθέστε τον παρακάτω κώδικα για να προσθέσετε ένα νέο φύλλο εργασίας :

objXLXBks = objXLS.Workbooks

objXLSSht = ctype ( objXLXBks ( 1 ) Sheets.Item ( 1 ) , φύλλο εργασίας ).

objXLSShts = objXLSBk.Worksheets
Η 6

Τοποθετήστε την ημερομηνία σε " A1" στο Excel , προσθέτοντας την ακόλουθη γραμμή κώδικα :

objXLSSht.Cells ( 1 , 1 ) = τώρα ( )
Η

7 Αποθηκεύστε το βιβλίο εργασίας του Excel , πληκτρολογώντας τον ακόλουθο κώδικα :

objXLSSht.SaveAs ( " C : \\ ExcelDate.xlsx " )
8

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

MessageBox.Show («Ημερομηνία έχει προστεθεί στο Excel " )

Πατήστε F5 για να εκτελέσετε το πρόγραμμά σας , στη συνέχεια, κάντε κλικ στο κουμπί " Button1 ".
Η
εικόνων