Visual Basic para Aplicaciones - VBA: Error en el metodo Select de clase Worksheet

Life is soft - evento anual de software empresarial
 
Vista:

VBA: Error en el metodo Select de clase Worksheet

Publicado por Ivan (1 intervención) el 22/05/2007 13:30:36
Necesitaría saber porque al ejecutar el siguiente código me aparece el error "1004: Error metodo Select de clase Worksheet". El error aparece en la sentencia "Sheets(1).Select". En otro equipo este código funciona correctamente sin cambiar nada, así que mi impresión es que el problema se debe a la versión del VBA (VB 6.3;Versión 9969; Versión VBA: 6.4.8869) o bien a la versión WinXP Pro Versión 2002 SP2 o bien a que falte alguna propiedad por activar. Los directorios y ficheros que se especifican en el código existen en la ruta que se especifica, totalmente revisado, por lo que ese no sería el error.

Muchas gracias de antemano por sus aportaciones.
Iván.

CÓDIGO:

' El procedimiento abre el fichero y lo guarda en el fichero destino
Public Sub Abre_Fichero(sFichDestino As String, sFichOrigen() As String, bError As Boolean, sDsError As String)
Dim oLibro As Workbook
Dim i As Integer
Dim oCampos As Range
Dim oCell As Range

On Error GoTo ErrorAbrir
' Creamos el fichero destino si no existe
Application.SheetsInNewWorkbook = 1
Set oLibro = Workbooks.Add
With oLibro
.Title = "Datos Atlante"
End With

' Abrimos los ficheros origen
For i = 0 To UBound(sFichOrigen())
Workbooks.Open FileName:= _
"C:\DSI\Atlante\" & sFichOrigen(i)
Sheets(1).Select
ActiveSheet.Copy After:=oLibro.Sheets(1)
oLibro.ActiveSheet.Name = UCase(Mid(sFichOrigen(i), 1, 8))
Workbooks(sFichOrigen(i)).Close SaveChanges:=False
Next i

' Guardamos el fichero destino en la localización exigida
Application.DisplayAlerts = False
oLibro.Sheets(1).Delete
'ChDir "C:\DSI"
'oLibro.SaveAs FileName:=sFichDestino
oLibro.SaveAs FileName:="C:\DSI\" & sFichDestino
Application.DisplayAlerts = True
Exit Sub

ErrorAbrir:
'Damos el error
bError = True
sDsError = "Error al abrir un fichero de Origen." & Chr(13) & Chr(13) & _
Err.Number & "-" & Err.Description
Exit Sub
End Sub
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

Error en el metodo Select de clase Worksheet

Publicado por mauricio (3 intervenciones) el 02/01/2008 12:56:03
Sorri, no soy muy diestro e esto, pero si es una versión de excel en español, posiblemente te servirá esto:

Sheets("Hoja1").Select

Sólo es una opción.
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

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por Monica (1 intervención) el 14/03/2008 18:47:37
hola!,

Que pensa que nadie te contesto =( ... porque yo tengo el mismo error.
Si es que ya lo solucionaste...porque ya vi quee fue hace uff...porfa dime como.
Gracias

Monica.
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

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por Linus (1 intervención) el 01/12/2010 00:24:21
No pq es el error, pero reemplazar
Sheets(i).select
por
Sheets(i).activate

solucionó mi problema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por Jose (1 intervención) el 19/06/2011 01:24:30
excelente gracias tenia el mismo error y se soluciono
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

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por Francesco (1 intervención) el 17/08/2015 00:57:51
A mi salia este error en: ActiveSheet.Next.Select
He cambiado en: ActiveSheet.Next.Activate y ha funcionado.
Gracias por la ayuda.
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

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por milton (1 intervención) el 13/05/2017 20:16:52
esa era la solucion , muchaaasss gracias
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

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por fabio rincon (1 intervención) el 11/01/2018 15:18:32
tambien funciono con este pequeño cambio, inexplicable pero funciono
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

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por Incognito (1 intervención) el 15/03/2019 16:46:45
Gracias Excelente Respuesta
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

RE:VBA: Error en el metodo Select de clase Workshe

Publicado por Magda (1 intervención) el 09/09/2020 23:25:09
Gracias a mi también me funcionó
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