Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/02/2006, 13:44
Avatar de Skalitiko
Skalitiko
 
Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 20 años, 2 meses
Puntos: 0
Tienes que agragar la referencia Microsoft Excel X.X desde project->references
Dim Ex as new Excel.Application

Sub Command1_Click()
with ex
.visible=true
'Abro el archivo excel
.workbooks.open "C:\Donde_Tengas_El_Archivo_Excel\Archivo_Excel.xl s"
'Seleciono la hoja del libro con la que voy a trabajar
.workbooks(.workbooks.count).sheets("LA_Hoja_A_Tra bajar").select
'Agrego datos
.workbooks(.workbooks.count).activesheet.cells(1,1 ).value = "Un dato"
.workbooks(.workbooks.count).activesheet.cells(1,1 ).value = "Otro dato"

.workbooks(.workbooks.count).save
.workbooks(.workbooks.count).close
.quit
end with
set ex=nothing
End SUb

Te recominedo que grabes macros desde el mismo excel para que te quede más claro