Problemas con la automatizacions de Excel
vicente
01 de Febrero del 2006
Hola
Estoy realizando el proyecto final de carrera con VB6 y he desarrollado una aplicaci贸n bastante compleja, pero tengo problemas con la automatizaci贸n de Excel. Si abro un archivo lo modifico y lo cierro, perfecto. Los problemas vienen cuando intento abrir varios archivos a la vez y crear un tercero . He repasado el c贸digo, he mirado libros... y en teor铆a deber铆a funcionar pero... Utilice Windows Xp, Office Xp y VB6.
El problema es que una vez que ejecuto el c贸digo, Excel no responde, si vuelvo a ejecutar el c贸digo el programa se cuelga y no puedo ni siquiera abrir Excel. He observado en el Administrador de tareas que queda un proceso 聯Excel.es聰 abierto, al cerrarlo Excel vuelve a funcionar.
Por tal de aislar el problema, he creado una sencilla aplicaci贸n que abre un libro de Excel y copia la primera pagina en un nuevo libro, no soy capaz de hacerlo funcionar correctamente. Incluyo el c贸digo a ver si me pod茅is ayudar y gracias por intentarlo.
Private Sub Command1_Click()
Dim msexcel As Object
Set msexcel = New Excel.Application
CommonDialog1.DefaultExt = "xls"
CommonDialog1.Filter = ".xls | *.xls"
CommonDialog1.DialogTitle = "Abrir"
CommonDialog1.ShowOpen
With msexcel
msexcel.Workbooks.Open FileName:=CommonDialog1.FileName
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
CommonDialog1.DefaultExt = "xls"
CommonDialog1.Filter = ".xls | *.xls"
CommonDialog1.DialogTitle = "Guardar como"
CommonDialog1.ShowSave
ActiveWorkbook.SaveAs FileName:= _
CommonDialog1.FileName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End With
msexcel.Quit
Set msexcel = Nothing
End Sub
Estoy realizando el proyecto final de carrera con VB6 y he desarrollado una aplicaci贸n bastante compleja, pero tengo problemas con la automatizaci贸n de Excel. Si abro un archivo lo modifico y lo cierro, perfecto. Los problemas vienen cuando intento abrir varios archivos a la vez y crear un tercero . He repasado el c贸digo, he mirado libros... y en teor铆a deber铆a funcionar pero... Utilice Windows Xp, Office Xp y VB6.
El problema es que una vez que ejecuto el c贸digo, Excel no responde, si vuelvo a ejecutar el c贸digo el programa se cuelga y no puedo ni siquiera abrir Excel. He observado en el Administrador de tareas que queda un proceso 聯Excel.es聰 abierto, al cerrarlo Excel vuelve a funcionar.
Por tal de aislar el problema, he creado una sencilla aplicaci贸n que abre un libro de Excel y copia la primera pagina en un nuevo libro, no soy capaz de hacerlo funcionar correctamente. Incluyo el c贸digo a ver si me pod茅is ayudar y gracias por intentarlo.
Private Sub Command1_Click()
Dim msexcel As Object
Set msexcel = New Excel.Application
CommonDialog1.DefaultExt = "xls"
CommonDialog1.Filter = ".xls | *.xls"
CommonDialog1.DialogTitle = "Abrir"
CommonDialog1.ShowOpen
With msexcel
msexcel.Workbooks.Open FileName:=CommonDialog1.FileName
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
CommonDialog1.DefaultExt = "xls"
CommonDialog1.Filter = ".xls | *.xls"
CommonDialog1.DialogTitle = "Guardar como"
CommonDialog1.ShowSave
ActiveWorkbook.SaveAs FileName:= _
CommonDialog1.FileName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End With
msexcel.Quit
Set msexcel = Nothing
End Sub
vicente
01 de Febrero del 2006
Lo solucion茅, Gracias