Come copiare i dati da un lavoro a un’altra & Trasporre i dati utilizzazione del VBA in Microsoft Excel 2010
In questo articolo imparerai come copiare i dati da una cartella di lavoro a un’altra e trasporre i dati utilizzando il codice VBA.
[.underline] # Facci capire con un esempio: # Abbiamo 2 cartelle di lavoro: Book1 e Book2 Book2 contiene i dati inseriti in Book1. Fare riferimento sotto l’istantanea di Book1
I dati inseriti in Book1 devono essere copiati dopo aver trasposto i dati mentre si fa clic sul pulsante di comando (Invia) in Book2. Fare riferimento sotto l’istantanea di Book2
Mentre inseriamo i dati in Book1; i dati verranno copiati su Book2 con un solo clic sul pulsante di comando.
Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic
Fare clic sul pulsante di comando Questo aprirà l’oggetto Button1_Click di comando Immettere il codice seguente nell’oggetto CommandButton1
Private Sub CommandButton1_Click ()
Dim prodotto come stringa
Dim Price As Single
Dim Book2 come cartella di lavoro
===
Fogli di lavoro (“foglio1”). Seleziona
Prodotto = Gamma (“B1”)
Prezzo = Intervallo (“B2”)
===
Imposta Book2 = Workbooks.Open (“F: \ USER Account \ Desktop \ Excel \ Book2.xlsx”)
Fogli di lavoro (“foglio1”). Intervallo (“A1”). Seleziona
RowCount = Fogli di lavoro (“foglio1”). Intervallo (“A1”). CurrentRegion.Rows.Count
Con fogli di lavoro (“foglio1”). Intervallo (“A1”)
.Offset (RowCount, 0) = Prodotto
.Offset (RowCount, 1) = Prezzo
Termina con
Book2.Save
End Sub
Dopo aver fatto clic sul pulsante Invia su Book1, i dati verranno trasferiti a Book2.
Se inseriamo altre informazioni sui prodotti in Book1 e facendo clic sul pulsante Invia, Book2 si aprirà ei dati verranno copiati e quindi salvati.
Istantanea del libro1
Risultato in Book2
In questo modo, possiamo facilmente copiare i dati da una cartella di lavoro di Excel a un’altra.