Visual Basic - error

Life is soft - evento anual de software empresarial
   
Vista:

error

Publicado por jose (3 intervenciones) el 12/03/2010 22:03:58
este código funciona si la cantidad de archivo es 1 (uno) no puedo repetir el proceso porque me da un error 1024 error range....

Dim objExcel As Excel.Application

'Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook
Dim Col As Integer, Fila As Integer

'creamos un nuevo objeto excel
Set objExcel = New Excel.Application

'Usamos el método open para abrir el archivo que está _
en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open(lblarchivo.Caption)

'Hacemos el Excel Visible
objExcel.Visible = True


With xLibro
'
' ' Hacemos referencia a la Hoja
With .Sheets(1)
ActiveSheet.Protection.AllowEditRanges.Add Title:="Rango1", Range:=Range("B1:B22")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True



End With
End With

'Eliminamos los objetos si ya no los usamos
Set objExcel = Nothing
Set xLibro = Nothing
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