Exportar de Excel a Access mediante formulario de vba

En esta ocasión presento un proyecto que puede dar pie a crear otros más elaborados, dependiendo de la necesidad.

El proyecto realiza la captura de datos mediante un formulario diseñado en vba, para así evitar que los usuarios puedan modificar celdas, además emula a una aplicación de escritorio, ya que oculta la aplicación de Excel, dejando a la vista sólo el formulario.

Identificación de usuario

Mediante un formulario con un ComboBox, se elige el usuario deseado, mismo que será guardado en la base de datos.

Imagen del formulario

Código del formulario

'Convierte a mayúsculas el texto ingresado
Private Sub cmbAsesores_Change()
    Combo1 = UCase(cmbAsesores)
    cmbAsesores = Combo1
End Sub
'::
'Guarda el nombre de usuario elegido y lanza el formulario
Private Sub CommandButton1_Click()
    If cmbAsesores.Value = "" Then
        MsgBox "Debes elegir tu nombre"
        Exit Sub
    Else
        Sheets("Hoja1").Range("Asesor") = cmbAsesores.Value
        frmCaptura.lblAsesor = ("Asesor: " & Sheets("Hoja1").Range("Asesor").Value)
        Unload Me
    End If
    frmCaptura.Show showmodal = True
End Sub
'::
Private Sub CommandButton2_Click()
    Unload Me
End Sub
'::
'Llena los Combos
Private Sub UserForm_Activate()
    Application.Visible = False
    Me.cmbAsesores.RowSource = "lstAsesores"
    cmbAsesores.SetFocus
End Sub
'
'Lanza un MsgBox cuando cierras el formulario.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "Por favor, elige tu nombre", vbInformation, "BOTON ANULADO"
    End If
End Sub

Ingreso de datos

El ingreso de los datos se realiza mediante un formulario diseñado en vba, el cual al recibir los datos, los mismo serán enviado a una base de datos de Access, alojada en la misma carpeta del archivo.

Imagen del formulario

El archivo adjunto contiene todo el código, por lo que lo podrás consultar al descargarlo.

También puedes consultar Conectar Excel a Access, MySql y SQL

:: Descargar el ejemplo