No se cierra el excel.exe
Publicado por Bernardo Barrera (4 intervenciones) el 29/11/2006 01:32:50
Hola,
Estoy haciendo un procedimiento para cargar informacion a una grafica de excel, hace bien el procedimiento la primera vez bien, ya la segunda ves ya no jala, me manda un error "Error " '-2147023174(800706ba)' Error de Automatizacion" y me lo marca aqui: ApExcel.ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Dato), donde Dato es el rango de celdas que quiero la informacion.
hola = ApExcel.ActiveSheet.ChartObjects.Count
ApExcel.ActiveSheet.ChartObjects(hola).Activate
Dato = "A2:E" & j + 1 & ""
ApExcel.ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
ApExcel.ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Dato)
Ahora he visto que no cierra el excel.exe, porque esta en windows activo y supuestamente debe de cerrarse, estoy haciendo esto:
Work.SaveAs filename:="C:\Reporte" & Client & ".htm", FileFormat _
:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
Work.Save
ApExcel.Quit
Set ApExcel = Nothing
No se si que este activo el excel.exe, cause que este este problema
espero su ayuda, saludos
Estoy haciendo un procedimiento para cargar informacion a una grafica de excel, hace bien el procedimiento la primera vez bien, ya la segunda ves ya no jala, me manda un error "Error " '-2147023174(800706ba)' Error de Automatizacion" y me lo marca aqui: ApExcel.ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Dato), donde Dato es el rango de celdas que quiero la informacion.
hola = ApExcel.ActiveSheet.ChartObjects.Count
ApExcel.ActiveSheet.ChartObjects(hola).Activate
Dato = "A2:E" & j + 1 & ""
ApExcel.ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
ApExcel.ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Dato)
Ahora he visto que no cierra el excel.exe, porque esta en windows activo y supuestamente debe de cerrarse, estoy haciendo esto:
Work.SaveAs filename:="C:\Reporte" & Client & ".htm", FileFormat _
:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
Work.Save
ApExcel.Quit
Set ApExcel = Nothing
No se si que este activo el excel.exe, cause que este este problema
espero su ayuda, saludos
Valora esta pregunta
0