tabla de excel a access, sin access instalado

 

Quiero crear una tabla en Access a partir de una tabla en Excel y no lo he logrado. la idea es que me reconozca los campos automáticamente.

 

He logrado lo siguiente: (Crea una base Access con una tabla)

 

Private Sub Crear_BD()
On Error Resume Next
Dim bd As Database
Dim td As TableDef
Dim fldID As Field

ruta = ThisWorkbook.Path & "\BD"
Set bd = CreateDatabase(ruta & "\BD.mdb", dbLangGeneral)

Set td = bd.CreateTableDef("Mi_Tabla")
Set fldID = td.CreateField("ID", dbLong, 6)

td.Fields.Append fldID
bd.TableDefs.Append td
End Sub

 

Como le hago para que me reconozca los datos de mi tabla en Excel y me los cree en Access?

 

Sí manejo medianamente Access y es super fácil importar los datos, el problema es que trabajo en algunos pc que no tienen instalado Access, entonces estoy buscando esta opción de crear la base acces y la tabla desde vba Excel.

 

 

 

En relación al enlace dado:

He modificado el código para crear una tabla,

 

Public Sub Cretabla()
Dim miconexcade As String
Dim miconex As Object
Dim miCrea As Object
Dim crea As String
Set miconex = CreateObject("adodb.connection")
Set miCrea = CreateObject("adodb.command")
If Val(Application.Version) < 12 Then
 miconexcade = "Provider=Microsoft.jet.oledb.4.0;Data source="
  Else
  miconexcade = "Provider=Microsoft.ACE.OLEDB.12.0;Data source="
End If
miconexcade = miconexcade & ThisWorkbook.Path & "\BD\BD.mdb;"
miconex.ConnectionString = miconexcade
miconex.Open
With miCrea
     .ActiveConnection = miconex
     .CommandText = "CREATE TABLE dos (NOMBRE char(50))"
     .CommandType = 1
     .Execute
End With
miconex.Close
Set miconex = Nothing
End Sub

 

Aún no lo logro pero estoy cerca:

 

Idea 1: concatenar los campos y tipos de campo en una celda, para hacer referencia a ésta desde el .CommandText

 

Idea 2: Buscar alguna manera iterativa para agregar campos y tipo de campo.

 

 

 

Escenario, No siempre se cuenta con Access (instalado) y dado los volúmenes de información en Excel es una buena alternativa crear una base de datos Access con la tabla que tenemos en Excel (todo desde Excel)

 

El gran problema es con la estructura de la tabla a crear:

Les dejo mi resumen por si les sirve.

 

Todo desde Excel:

 

Creo Carpeta

Creo Base de Datos dentro de la carpeta creada.

Creo tabla con solo un campo (debe tener uno como mínimo)

Adiciono Campos de acuerdo a la información en Excel

Eliminamos campo inicial

Mandamos la información

Listo > Consultas > modificaciones >Formularios etc.

 

la parte de adicionar campos lo pretendo realizar así:

 

Private Sub Agregar2()
Dim bd As Database
Dim Campo As String
Dim TipoCampo As String
Dim nCaracter As String

Campo = [d10]
TipoCampo = [e10]
nCaracter = [f10]

ruta = ThisWorkbook.Path & "\BD\BD.mdb"
Set bd = dao.OpenDatabase(ruta)

bd.Execute ("ALTER TABLE Mi_Tabla ADD COLUMN " & Campo & " " & TipoCampo & " (" & nCaracter & ")")
bd.Close
End Sub

 

Muchas Gracias Ibauluz y prga, espero terminarla pronto.

Favor cerrar tema.