Visual Basic - se ha producido el error '-2147024809 (80070057)' /excel2007

Life is soft - evento anual de software empresarial
   
Vista:

se ha producido el error '-2147024809 (80070057)' /excel2007

Publicado por juan j.zambrano1908@gmail.com (1 intervención) el 25/11/2014 17:24:18
Estimados, favor necesito de su ayuda!

Tengo el siguiente error al ejecutar una macro en excel 2007. Esta macro está creada en vb6 y que ejecuta bien en excel 2003.

El error me dice: se ha producido el error '-2147024809 (80070057)' en tiempo de ejecucion.
Al depurar la ejecucion me arroja al codigo donde se encuentra:

ActiveSheet.Shapes("Rectangle 7").Select
Selection.Delete

Por lo que veo este metodo esta exportando data a una hoja temporal la cual se desbloquea y bloquea automaticamente, y es por eso yo creo que el mensaje tambien dice "La seleccion de las formas solicitadas esta bloqueada".

La curiosidad es que al comentar las lineas;

ActiveSheet.Shapes("Rectangle 7").Select
Selection.Delete

toda la data se traspasa, pero luego la macro se pega.

1.- ¿sera que debo publicar el activesheet de otra forma en xl2007?
2.- ¿hay algun metodo que estoy ocupando mal?
3.- ¿ serán que las librerias en xl2007 no consideran este tipo de metodo?


Este es el cogido antes de llegar al punto de depuracion:

' DIVIDE ULTIMO PAPEL
TC(FILA) = TC(FILA) / Div
DURATION(FILA) = DURATION(FILA) / Div
TM(FILA) = TM(FILA) / Div
EXP1_ANEXAR CTL
'****************
WS.Range("A18") = "FAMILIA BCI"
WS.Range("B18") = "MONEDA"
WS.Range("C18") = "CANTIDAD"
WS.Range("D18") = "NOMINAL"
WS.Range("E18") = "VP T COMPRA"
WS.Range("F18") = "VP T MCDO"
WS.Range("G18") = "TASA COMPRA"
WS.Range("H18") = "TASA MCDO"
WS.Range("I18") = "DURATION"
WS.Range("J18") = "MTM"
'****************************************
' EDITA TITULOS

ActiveSheet.Shapes("Rectangle 7").Select
Selection.Delete
Columns("C:C").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 8.86
Columns("E:E").ColumnWidth = 14.14
Columns("G:G").ColumnWidth = 8.71
Range("G18").Select
Selection.Copy
Range("H18:J18").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("J18").Select
Columns("H:H").ColumnWidth = 8.86
ActiveWindow.LargeScroll ToRight:=-1
Range("A19").Select


Espero sus comentarios.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Juego Zenku
- Año bisiesto
- Códigos ASCII

se ha producido el error '-2147024809 (80070057)' /excel2007

Publicado por Juan (9 intervenciones) el 26/11/2014 16:09:35
Buenas tocayo

La verdad que tu duda me parece interesante. Yo diseñando y programando me he encontrado incompatibilidades entre Excel 2003 (y anteriores) con Excel 2007 (y superiores), así que es muy probable que tengas que reprogramar la macro para que vaya en Excel 2007, toda vez que han cambiado funciones tanto de VB como del propio Excel de la versión 2003 a la 2007 (y adelante).

Estoy atento a lo que te vaya diciendo la gente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar