Foro Excel

Hola expert@s, me han pillado con lo del cambio de procedimiento para hacer preguntas, jajaja, voy al grano, resulta que quiero abrir un fichero el cuyo nombre tiene una parte fija y otra varia: Sistema Estadístico ver 1.0.12, pero en otro momento podría ser Sistema Estadístico ver 2.5.12.

mi pregunta es como utilizar un comodin en:

Workbooks.Open ThisWorkbook.Path & "\Sistema Estadístico ver " & * & ".xls*

Workbooks.Open ThisWorkbook.Path & "\Sistema Estadístico ver " * ".xls*

Workbooks.Open ThisWorkbook.Path & "\Sistema Estadístico ver " * .xls

Workbooks.Open ThisWorkbook.Path & "\Sistema Estadístico ver " * .xls*

me da error de todas estas maneras, alguien tiene alguna idea, es que no quiero ponerme a leer ficheros, bueno si no queda otra si, pero si puedo utilizar esta opción, seria ideal, gracias de antemano.

Hola, siguiendo un sentido común, te peude decir que esa instrucción es para un archivo en particular, y vos querés indicarle varios archivos y por eso el error, te dejo varias alternativas:

Código: Seleccionar todo

Sub AbrirArch()
Dim Arch As FileDialog, Aux As Integer
ChDir ThisWorkbook.Path 'tomo el directorio donde se encuentra el libro
Set Arch = Application.FileDialog(msoFileDialogOpen)
Arch.AllowMultiSelect = True 'para selecionar varios archivos
Arch.InitialFileName = "Sistema Estadístico ver" & "*" & ".xls*" ' Tu libro
If Arch.Show = 0 Then Exit Sub
End Sub
Sub Abrir_1_Arch()
Dim Aux
Aux = Application.GetOpenFilename(FileFilter:="Archivos Excel (*.xls), *.xls", Title:="Seleccione Archivo")
If Aux = False Then
' Presionó Cancelar
MsgBox "Canceló", 64, ""
Exit Sub
Else
Workbooks.Open Filename:=Aux
End If
End Sub
 Sub AbrirVariosArchivosExcel()
   Dim NombreArchivo As Variant, Contador As Integer
   ' permite seleccionar Varios Archivos en el cuadro de dialogo
   NombreArchivo = Application.GetOpenFilename(, , , , True)
   Contador = 1
   ' ubound nos indica cuantos archivos hay seleccionado
      While Contador <= UBound(NombreArchivo)
         'Abre el archivo seleccionado
         Workbooks.Open NombreArchivo(Contador)
         ' Muestra el archivo seleccionado
         MsgBox NombreArchivo(Contador)
         'incrementa el Contador
         Contador = Contador + 1
      Wend
End Sub


Otra Forma:
Sub AbrirArchivosExcel()
Dim Arch As FileDialog, Aux As Integer
ChDir ThisWorkbook.Path 'tomo el directorio donde se encuentra el libro
Set Arch = Application.FileDialog(msoFileDialogOpen)
Arch.AllowMultiSelect = True 'para selecionar varios archivos
Arch.InitialFileName = "Sistema Estadístico ver" & "*" & ".xls*" ' Tu libro
If Arch.Show = 0 Then Exit Sub
For Aux = 1 To Arch.SelectedItems.Count
Workbooks.Open Arch.SelectedItems(Aux)
Next
End Sub

Hola Adrian, muchas gracias, las dos surgerencias, que ambas son validas, pero no especifique que yo tengo el sistema trabajando sin problemas, con un metodo parecido a los que me indicas, mi primer libro abre automaticamente a Sistema Estadístico ver (la que sea), sin problemas, pero claro hago lo que comentas muy bien en los dos ejemplos, como me queria ahorrar unas lineas, por eso pense en utilizar el comodin con workbooks.open asi iba directo al fichero en cuestion sin tener que leer los ficheros del directorio, ya que siempre voy abrir el mismo fichero, pero con numero de versiones diferentes, segun se le vayan haciendo mejoras, los ejemplos que puse fueron de las formas que trate de dar con la sintaxis correcta, pero siempre me salia mal.