Desde ya Muchas Gracias.

|
|
#1 (permalink) |
![]() Fecha de Ingreso: enero-2006
Mensajes: 8
|
Desde ya Muchas Gracias. ![]() |
|
|
|
|
|
#2 (permalink) |
![]() Fecha de Ingreso: febrero-2005
Mensajes: 81
|
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 |
|
|
|
|
|
#3 (permalink) |
![]() Fecha de Ingreso: enero-2006
Mensajes: 8
|
MUCHAS GRACIASS!!!!!! la verdad es que me salvaste la vida!!!, el codigo me sirvio muchicimo, es mas logre mi objetivo en menos de 15 min, sos un capo, te agradesco de corazon loco, sos lo +
Muchas Gracias!! PD: especialmente te agradesco la rapidez con la que respondiste |
|
|
|
![]() |
| Herramientas | |
| Desplegado | |
|
|