【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

运行测试

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

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

#access##vba##excel##低代码##前端#