【access开发】导入excel 并生成表

hi，大家好呀！最近天气越来越暖了，在这个春暖花开的季节了，每天心情应该都是美美的，正所谓一年之计在于春，在这个美好的季节，大家一起努力学习学习吧！那我们来看看今天学点啥呢？

大家在刚接触access时，很多都是excel的高手，学习的过程中，总会想着，怎么把现在的excel数据导入到access，那这个时候该怎么来操作呢？如果是新手，那肯定是导入excel就可以了，那如果你是一个爱show技术的e人，那是不是就想会着，用vba来实现导入功能呢？OK，那还是老规矩，废话不多说，让我们动手做吧！

1创建窗体

第一步，还是老规矩，我们先搭一个窗体界面，在窗体上放两个文本框，名称分别为txtPath、txtTable，再添加两个按钮，名称分别为：btnSelect、btnOK，具体设计如下：

2添加代码

窗体建好了，那就可以来添加代码了，具体的代码如下：

Private Sub btnOK_Click()
    Me.txtPath.SetFocus
    If IsNull(Me.txtTable) Then
        Me.txtTable = "table"
    End If
    If Me.txtPath <> "" Then
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Me.txtTable, Me.txtPath, True
    End If
End Sub

Private Sub btnSelect_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel", "*.xls;*.xlsx"
        .Filters.Add "All Files", "*.*"
        If .show = -1 Then
            Me.txtPath.SetFocus
            Me.txtPath.Locked = False
            Me.txtPath.text = .SelectedItems(1)
            Me.txtPath.Locked = True
        End If
    End With
End Sub

3运行测试

最后，肯定是运行测试了，我们来看看效果。

我们用最少的代码，写出了高逼格的功能，所以大家快去试一下吧！嘿嘿！