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

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

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

相关推荐
xw5几秒前
免费的个人网站托管-Cloudflare
服务器·前端
网安Ruler4 分钟前
Web开发-PHP应用&Cookie脆弱&Session固定&Token唯一&身份验证&数据库通讯
前端·数据库·网络安全·php·渗透·红队
!win !9 分钟前
免费的个人网站托管-Cloudflare
服务器·前端·开发工具
饺子不放糖13 分钟前
基于BroadcastChannel的前端多标签页同步方案:让用户体验更一致
前端
饺子不放糖15 分钟前
前端性能优化实战:从页面加载到交互响应的全链路优化
前端
Jackson__15 分钟前
使用 ICE PKG 开发并发布支持多场景引用的 NPM 包
前端
饺子不放糖15 分钟前
前端错误监控与异常处理:构建健壮的Web应用
前端
cos20 分钟前
FE Bits 前端周周谈 Vol.1|Hello World、TanStack DB 首个 Beta 版发布
前端·javascript·css
饺子不放糖22 分钟前
CSS的float布局,让我怀疑人生
前端
阳光是sunny38 分钟前
走进AI(1):细说RAG、MCP、Agent、Function Call
前端·ai编程