Puede tener problemas cuando usted está tratando de escribir mediante programación a una hoja de Excel abierta , especialmente si usted está abriendo una segunda vez . Excel no permite abrir otro libro con el mismo nombre, incluso si se almacena en un camino diferente. Con Visual Basic para Aplicaciones o VBA , puede utilizar el objeto de interfaz de ventana para cambiar las ventanas activas en lugar de abrir la hoja de cálculo para la transferencia de datos. Con el objeto Window también puede mejorar la velocidad de transferencia de datos , ya que no tiene que abrir la hoja de cálculo varias veces para escribir en él. Instrucciones
1
lanzamiento de Excel , y el tipo " Esta es la hoja abierta " en " A1 ". Guarde el libro en "C: \\ Temp \\ " as ". Sheet1.xlsx "
2
Inicie una nueva sesión de Excel , y el tipo " de datos a" en " A1 ", " datos b" en "B1 " y " datos de c " en " C1 ". Haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar la ventana del editor de Visual Basic . Haga clic en el menú "Insertar" y haga clic en " módulos". Escriba el siguiente código para crear un nuevo procedimiento : . " Introduzca"
transferDataToSheet Sub Private ()
Press
3
Copia y pega el siguiente para crear tres variables para mantener datos de la celda :
clmnA dévil como secuencia
clmnB dévil como secuencia
clmnC dévil como secuencia
4
Copy y pegue el siguiente código para guardar los valores de las celdas A1, B1 y C1 en variables : . .
Worksheets ( " Sheet1" )
Range (" A1" ) Seleccione
clmnA = ActiveCell.Value
. Range (" B1" ) . Seleccione
clmnB = ActiveCell.Value
. Range (" C1" ) . Seleccione
clmnC = ActiveCell.Value
End con fotos de 5
Copia y pega el siguiente para activar la hoja abierta ( Sheet1.xlsx ) :
. ventanas ( " Sheet1" ) Activar
6
Copia y pega el siguiente para transferir los datos de la hoja de trabajo actual a la hoja de cálculo abierta :
Worksheets ( "Sheet1 ")
. Range (" A2" ) . Seleccione
Selection.Value = clmnA
. Range (" B2" ) . Seleccione
Selection.Value = clmnB
. Range (" C2" ) . Seleccione
Selection.Value = clmnC
End con fotos de 7
Press "F5 " para ejecutar el procedimiento para transferir los datos a la hoja de cálculo abierta .
