Πώς να αντιγράψετε γραμμές στο Excel Χρησιμοποιώντας VBScript

σειρές Αντιγραφή στο Excel χρησιμοποιώντας τη VBScript μπορεί εύκολα να επιτευχθεί με τη χρήση Notepad , η οποία περιλαμβάνεται ήδη με το λειτουργικό σύστημα των Windows . VBScript είναι μια γλώσσα δέσμης ενεργειών που μπορεί να χρησιμοποιηθεί σε μια ποικιλία από περιβάλλοντα. Αν είστε ένα Visual Basic προγραμματιστής τότε VBScript θα πρέπει να είναι εύκολο να καταλάβει δεδομένου ότι η σύνταξη είναι πολύ παρόμοια . Στο VBScript , μπορείτε να χρησιμοποιήσετε το " Excel.Application " αντικείμενο για να ανοίξετε ένα φύλλο εργασίας του Excel και αντιγράψτε οποιεσδήποτε τιμές στο φύλλο . Οδηγίες
Η 1

Εκκίνηση του Microsoft Excel και πληκτρολογήστε " αντίγραφο" στην Α1 , "αυτό" στο Β1 , και το " κείμενο" στο C1 . Πατήστε το πλήκτρο " Ctrl " και "S " για να αποθηκεύσετε το υπολογιστικό φύλλο . Αποθήκευση ως . "C: . \\ Temp \\ myXLS.xls " Close Excel 2

Launch Notepad και αντιγράψτε και επικολλήστε τις παρακάτω γραμμές κώδικα για να ανοίξετε το φύλλο εργασίας που δημιουργήσατε στο Βήμα 1 :

Ορισμός objExcel = CreateObject ( " Excel.Application " ) Set objWorkbook = objExcel.Workbooks.Open _ ( " C : \\ Temp \\ myXLS.xls " )
εικόνων 3

Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή που θα χρησιμοποιήσετε για να αντιγράψετε το κείμενο από κάθε κελί σε μια συγκεκριμένη σειρά : Dim rowValues ​​
Η

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

sourceRow = 1targetRow = 2
5

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

rowValues ​​= objExcel.Cells ( sourceRow , 1 ) ValueobjExcel.Cells ( targetRow , 1 ) Value = rowValuesrowValues ​​= objExcel.Cells ( sourceRow , 2 ) ValueobjExcel.Cells ( targetRow , . . . 2 ) Value = rowValuesrowValues ​​= objExcel.Cells ( sourceRow , 3 ) ValueobjExcel.Cells ( targetRow , 3 ) Value = rowValues ​​

6

Κλείστε το αντικείμενο του Excel , προσθέτοντας τον παρακάτω κώδικα : objExcel . Κλείστε
Η

7 Πατήστε το πλήκτρο " Ctrl " και "S " για να αποθηκεύσετε το αρχείο VBScript ως " C : . \\ Temp \\ copyExcelData.vbs " Πλοήγηση σε " C : \\ Temp " και κάντε διπλό κλικ στο " copyExcelData . vbs "για να εκτελέσει τον κώδικα .
Η
εικόνων