Jaume
09 de Junio del 2003

Al ejecutar un procedimiento VBA en Excell me
da el siguiente error :
"Se ha producido el error '1004' en tiempo de ejecución.
Fallo en el método Copy de la clase Worksheet."
Se ejecuta Crea8302 y sólo adjunta 17 hojas, en la hoja 18 aparece el error.



Public Const DirBondia = "H:PCAT5G34Bondiaprobes"
Dim Zona()
Dim Terri1()
Dim Terri2()
Dim Terri3()
Dim Terri4()
Dim Dege()
Sub Omplevaria()
Zona = Array("4191", "8121", "8123", "8124", "8125", "8126", "8127", "8130", "8131", "8303", "8304", "8306", "8307", "8309", "8310", "8311", "8312", "8313", "8314", "8322", "8327", _
"8129", "8132", "8133", "8135", "8316", "8317", "8318", "8319", "8320", "8321", "8323", "8324", "8325", "8326")
Terri1 = Array("8327", "8322", "8314", "8313", "8312", "8311", "8310", "8309", "8307", "8306", "8304", "8303", "8131", "8130", "8127", "8126")
Terri2 = Array("8125", "8124", "8123", "8121", "4191", "8302")
Terri3 = Array("8326", "8325", "8324", "8323", "8321", "8320", "8319", "8318", "8317", "8316", "8135", "8133", "8132", "8129", "4179")
Terri4 = Array("8327", "8322", "8314", "8313", "8312", "8311", "8310", "8309", "8307", "8306", "8304", "8303", "8131", "8130", "8127", "8126", "8125", "8124", "8123", "8121", "4191", "8302")
Dege = Array("8302", "4179", "6053")
End Sub
Sub Crea8302()
Call Creallibre("8302", Terri4)
End Sub
Sub Creallibre(Detes As String, Orden As Variant)
Omplevaria
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Calculate
Base = ThisWorkbook.Windows.Application.ActiveWindow.Caption
Workbooks.Add (xlWBATWorksheet)
ActiveWorkbook.SaveAs Filename:=DirBondia & Detes & "AIM.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

For Each Value In Orden
Windows(Base).Activate
Sheets(Value & "AIM").Copy Before:=Workbooks(Detes & "AIM.xls").Sheets(1)
Calculate
Windows(Detes & "AIM").Activate
Application.Goto Reference:="R1C1"
Cells.Select
Cells.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.Zoom = 75
ActiveWorkbook.SaveLinkValues = False
Application.Goto Reference:="R1C1"
Range("A1:F1").Select
Application.CutCopyMode = False
Selection.EntireColumn.Delete
Range("U11").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Delete
Range("A80").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Application.Goto Reference:="R1C1"
Next Value
Windows(Detes & "AIM").Activate
Sheets("Hoja1").Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(Base).Activate
Application.DisplayAlerts = False
Application.Calculation = xlCalculationAutomatic
Application.Goto Reference:="princi"
End Sub