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

hi，大家好呀！

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

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

1、创建窗体

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

2、添加代码

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

vbnet 复制代码

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、运行测试

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

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