Como Abrir un .XLS

23/09/2004 - 14:13 por sigma182 | Informe spam

buenas tardes, me gustaria que me ayudaran con respecto a una duda que
tengo:

estoy disenando el codigo de unos Macros en excel, y me gustaria saber
como hago para crear (con Codigo) un archivo .XLS, es decir, estoy
vinculando 2 archivos, y el macro lo contiene el primer archivo. cuando yo
ejecute el macro, quiero que, si no tengo abierto el segundo archivo, se
cree solo y se abra automaticamente para que me guarde las respuestas.

si no se entiende, respondanme aqui y yo reformulo mejor la pregunta.
muchas gracias.

Siga el debate

1 respuesta

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Héctor Miguel

24/09/2004 - 07:10 | Informe spam

hola, Xavier !

... como hago para crear (con Codigo) un archivo .XLS
... estoy vinculando 2 archivos, y el macro lo contiene el primer archivo
... cuando yo ejecute el macro ... si no tengo abierto el segundo
... se cree solo y se abra automaticamente para que me guarde las respuestas.

-> por codigo, puedes crear un libro/archivo nuevo usando la instruccion... ->Workbooks.Add<-
[el nuevo libro 'se convierte' en el libro 'activo']
'aunque...' [todavia] no tiene 'apellido' [.xls] hasta que es grabado [ActiveWorkbook.SaveAs ...etc...]
-> [te sugiero que...] 'aprovecha' el evento '_open' del libro de las macros para verificar ''el otro libro' y...
- si existe... se abre
- si no existe... se crea [p.e. usando -de preferencia- el mismo directorio...]
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Dim Respuestas As String
Respuestas = ThisWorkbook.Path & "\Respuestas.xls"
If Dir(Respuestas) = "" Then
Workbooks.Add
ActiveWorkbook.SaveAs Respuestas
Else
Workbooks.Open Respuestas
End If
ThisWorkbook.Activate
End Sub

¿comentas?
saludos,
hector.

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :