TraspasarDatosExcel

'*****************************************************************************************
'* ejemplo de traspaso de datos entre hojas de calculo mediante Visual Script
'* abre las hojas "C:\Prueba1.xls" y "C:\Prueba2.xls", lee la celda "A1" de la primera y
'* escribe su valor en la celda "B3" de la segunda, guarda los cambios y cierra ambas
'* hojas de calculo.
'* ESH 20/08/04 17:24
'*****************************************************************************************

Sub TraspasarDatosExcel
   Dim xls1, xls2, strLibro

' abro las hojas de calculo
Set xls1 = CreateObject("Excel.Application")
strLibro = "C:\Prueba1.xls"
xls1.Workbooks.Open strLibro

Set xls2 = CreateObject("Excel.Application")
strLibro = "C:\Prueba2.xls"
xls2.Workbooks.Open strLibro

' activo las correspondientes hojas
xls1.Worksheets("Hoja1").Activate
xls2.Worksheets("Hoja1").Activate

' traspaso los datos
xls2.Activesheet.Range("B3") = xls1.Activesheet.Range("A1")

' guardo los cambios y cierro las hojas de calculo
xls2.ActiveWorkbook.Save
xls1.Application.Quit
xls2.Application.Quit

' cierro las hojas
Set xls1 = Nothing
Set xls2 = Nothing
End Sub			' TraspasarDatosExcel