Πώς να μεταφέρετε τα δεδομένα σε ένα ανοικτό φύλλο στο Excel VBA

Μπορεί να τρέχει σε μπελάδες όταν προσπαθεί να γράψει προγραμματισμού σε ένα ανοιχτό φύλλο εργασίας του Excel , ειδικά εάν είστε το άνοιγμα αυτό για δεύτερη φορά . Το Excel δεν υποστηρίζει το άνοιγμα άλλο βιβλίο εργασίας με το ίδιο όνομα , ακόμα κι αν είναι αποθηκευμένο σε ένα διαφορετικό μονοπάτι . Με Visual Basic for Applications ή VBA , μπορείτε να χρησιμοποιήσετε το αντικείμενο Παράθυρο Interface για να μεταβείτε ενεργή άδεια Windows αντί να ανοίξετε το υπολογιστικό φύλλο για τη μεταφορά δεδομένων . Χρησιμοποιώντας το αντικείμενο Window μπορεί επίσης να βελτιώσει την ταχύτητα μεταφοράς δεδομένων, επειδή δεν έχετε να ανοίξετε το φύλλο πολλές φορές για να γράψει σε αυτό . Οδηγίες
Η 1

Launch Excel και πληκτρολογήστε "Αυτή είναι η ανοιχτή φύλλο " σε " A1 ". Αποθηκεύστε το βιβλίο εργασίας με το " C : \\ Temp \\ " " . Sheet1.xlsx ", όπως 2

ξεκινήσει μια νέα περίοδο λειτουργίας του Excel , και του τύπου " τα στοιχεία a " σε " A1 ", " δεδομένα b" σε " Β1 " και "C στοιχείων" σε " C1 ". Κάντε κλικ στην καρτέλα "Προγραμματιστής " , και κάντε κλικ στο " Visual Basic" για να ξεκινήσει η Επεξεργασία Visual Basic παράθυρο . Κάντε κλικ στο μενού "Εισαγωγή" , και κάντε κλικ στο "ενότητα ". Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα διαδικασία :

Private Sub transferDataToSheet ( )

Press " . Enter"
εικόνων 3

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

Dim clmnA Όπως String Dim

clmnB Όπως String Dim

clmnC Όπως String
Η 4

Αντιγραφή και επικόλληση του παρακάτω κώδικα για να αποθηκεύσετε τις τιμές στα κελιά A1 , B1 και Γ1 σε μεταβλητές : . .

με φύλλα εργασίας ( "Sheet1 " )

Range ( "A1" ) Επιλέξτε

clmnA = ActiveCell.Value

. Range ( " B1 " ) . Επιλέξτε

clmnB = ActiveCell.Value

. Range ( "C1" ) . Επιλέξτε

clmnC = ActiveCell.Value

End με τη
5

Αντιγράψτε και επικολλήστε τον παρακάτω, για να ενεργοποιήσετε το ανοιχτό φύλλο εργασίας ( Sheet1.xlsx ) :

. των Windows ( " Φύλλο1 " ) Ενεργοποίηση
Η 6

αντιγραφή και επικόλληση το παρακάτω για να μεταφέρετε τα δεδομένα από το τρέχον φύλλο εργασίας σας στο ανοιχτό φύλλο εργασίας :

με φύλλα εργασίας ( "Sheet1 " )

. Range ( " A2 " ) . Επιλέξτε

Selection.Value = clmnA

. Range ( " B2 " ) . Επιλέξτε

Selection.Value = clmnB

. Range ( "C2" ) . Επιλέξτε

Selection.Value = clmnC

End με τη
7

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας για να μεταφέρετε δεδομένα στην ανοικτή φύλλο εργασίας .
Η
εικόνων