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

hi，大家好呀！

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

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

1、创建窗体

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

2、添加代码

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

Private Sub btnOK_Click()Me.txtPath.SetFocusIf IsNull(Me.txtTable) ThenMe.txtTable = "table"End IfIf Me.txtPath <> "" ThenDoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Me.txtTable, Me.txtPath, TrueEnd IfEnd SubPrivate Sub btnSelect_Click()With Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False.Filters.Clear.Filters.Add "Excel", "*.xls;*.xlsx".Filters.Add "All Files", "*.*"If .show = -1 ThenMe.txtPath.SetFocusMe.txtPath.Locked = FalseMe.txtPath.text = .SelectedItems(1)Me.txtPath.Locked = TrueEnd IfEnd WithEnd Sub

3、运行测试

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