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

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

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

相关推荐
奋斗的小羊羊5 小时前
HTML5关键知识点之多种视频编码工具的使用方法
前端·音视频·html5
前端呆猿5 小时前
深入解析HTML5中的object-fit属性
前端·css·html5
再学一点就睡5 小时前
实现大文件上传全流程详解(补偿版本)
前端·javascript·面试
你的人类朋友7 小时前
【Node&Vue】什么是ECMAScript?
前端·javascript·后端
路灯下的光7 小时前
用scss设计一下系统主题有什么方案吗
前端·css·scss
l_tian_tian_7 小时前
SpringClound——网关、服务保护和分布式事务
linux·服务器·前端
一只小风华~8 小时前
CSS @media 媒体查询
前端·css·媒体
shix .8 小时前
最近 | 黄淮教务 | 小工具合集
前端·javascript
John_ToDebug8 小时前
Chrome 内置扩展 vs WebUI:浏览器内核开发中的选择与实践
前端·c++·chrome
烛阴9 小时前
解锁动态键:TypeScript 索引签名完全指南
前端·javascript·typescript