Si può incorrere in problemi quando si sta cercando di scrivere codice in un foglio di lavoro di Excel aperto , soprattutto se si sta aprendo una seconda volta . Excel non supporta l'apertura di un'altra cartella di lavoro con lo stesso nome , anche se è memorizzato in un percorso diverso. Con Visual Basic, Applications Edition , o VBA , è possibile utilizzare l'oggetto di interfaccia della finestra per passare finestre attive invece di aprire il foglio di calcolo per trasferire i dati . Utilizzando l' oggetto Window può anche migliorare la velocità di trasferimento dei dati, in quanto non si dispone di aprire il foglio di calcolo più volte per scrivere. Istruzioni
1

lancio Excel e di tipo "Questo è il foglio aperto " a " A1 ". Salvare la cartella di lavoro in "C: \\ Temp \\ " come " . Sheet1.xlsx "
2

avviare una nuova sessione di Excel , e di tipo "data una " a " A1 ", " dati b" in " B1 " e " dati c" in " C1 ". Fare clic sulla scheda "Sviluppatore " , e fare clic su " Visual Basic " per avviare la finestra di Visual Basic Editor. Fai clic sul menu "Inserisci" e fare clic su "Modulo ". Digitare il seguente codice per creare una nuova procedura : . " Enter"

transferDataToSheet Private Sub ( ) per

Press
3

Copia e incolla il seguente per creare tre variabili per contenere i dati delle celle :

Dim clmnA As String Dim

clmnB As String Dim

clmnC As String
4

Copia e incollare il seguente codice per salvare i valori nelle celle A1 , B1 e C1 in variabili : . .

Con Worksheets ( " Foglio1 " ) per

Range ("A1 " ) Selezionare

clmnA = ActiveCell.Value

. Range (" B1 " ) . Seleziona

clmnB = ActiveCell.Value

. Range (" C1" ) . Selezionare

clmnC = ActiveCell.Value

End With
5

Copia e incolla il seguente per attivare il foglio di lavoro aperto ( Sheet1.xlsx ) :

. finestre ( " Foglio1 " ) Attivare
6

Copia e incolla il seguente per trasferire i dati dal foglio di lavoro corrente per il foglio di lavoro aperto :

Con Worksheets ( " Foglio1 " )

. Range (" A2" ) . Seleziona

Selection.Value = clmnA

. Range (" B2" ) . Selezionare

Selection.Value = clmnB

. Range (" C2" ) . Seleziona

Selection.Value = clmnC

End With
7

Premere " F5 " per eseguire la procedura per trasferire i dati al foglio di lavoro aperto .