Importar archivos dbf

hola, Luis !

... abrir un archivo dbf en Excel... genera un rango... llamado "Base de Datos"
... seleccionar ese nombre... error ya que... los nombres no deben tener espacios en blanco
... es un error del Excel... que deberia generar automaticamente un nombre "Base_de_Datos"
... la version en ingles... genera el nombre "Database"
... un... parche de Microsoft corregiria el problema.

[hasta donde se, y segun parece... 'efectivamente']... se trata de un 'error' en excel que...
-> sucede SOLO con las versiones 'NO-USA/ingles'... Y con la propiedad 'NameLocal'
[ya que 'el mismo' nombre tiene una propiedad 'Name' que 'devuelve'... 'Database']
-> 'se mantiene'... por 'cuestiones de compatibilidad' -???- [con dBase o...]
[con aplicaciones como 'lotus-123' que SI permitian la generacion y uso de nombres 'con espacios']
-> desde la interfase de usuario... es posible eliminar/modificar/... dicho nombre 'auto-generado' [localmente]
ya que por codigo NO se puede eliminar/modificar/... el nombre [NI Name NI NameLocal]... SOLO 'ocultarlo' :-(
[lo que se podria 'aprovechar' si por codigo quisieras 'crear' uno 'compatible' y ocultar el 'ofensivo'] ;)
-> te expongo un ejemplo al final <- :)) [o... trabajarlo desde la interfase del usuario] :-(
-> otra [posible] alternativa es utilizar/crear/... una consulta de datos externos y abrir el archivo .dbf [p.e.]
[menu] datos / obtener datos externos... / crear nueva consulta... -> y abrir el 'susodicho' archivo
lo que dejaria una consulta externa 'refrescable' y con un nombre 'auto-generado' del tipo: 'DatosExternos1'
-> por lo anterior... no se si este 'planeada' una correccion o parche para solucionar esta [quizas molesta} situacion :-(

comentas?
saludos,
hector.
en un modulo de codigo 'normal' y con el archivo .dbf recien abierto ==Sub Corrige_Nombre_de_Archivos_dBase()
Dim Nombre As String, Formula As String
With Names(1)
Nombre = Application.Substitute(.NameLocal, " ", "_")
Formula = .RefersTo: On Error Resume Next: .Delete
End With
If Names(1).Visible Then Names(1).Visible = False
With Names.Add( _
Name:=Nombre, _
RefersTo:=Formula)
End With
End Sub