【vba源码】导入excel批注信息

Hi,大家好呀!

又到了一周一分享的时间,上周繁忙的我都没有给大家直播,视频也没更新,那这周大家放心,都会给大家更新,今天我们来讲点啥呢?每周找优质的内容给大家更新是我最最痛苦的事情了,所以我这么费心,那大家还不给我一键三连!!!

那今天给大家分享点啥呢,先上图:

今天我们就来讲讲excel的导入功能,excel的导入功能我们讲过很多了,常规的导入无非就是导入数据,那我们今天来讲讲导入批注信息。

0 1、创建窗体

在创建窗体前,我们先要有一个可以导入的excel,同时你的excel第一条是标题行,且有批注,如下图:

准备好了有批注的excel,我们接着在access添加一个窗体,具体的如下图:

0 2、添加代码

接着,我们就来添加一下代码,具体的代码如下:

vbscript 复制代码
Private Sub btnSelect_Click()

    Dim objApp As Object    'Excel.Application

    Dim objBook As Object    'Excel.Workbook

    

    With FileDialog(msoFileDialogFilePicker) 'msoFileDialogFilePicker

        .AllowMultiSelect = False

        .Filters.Clear

        .Filters.Add "Excel", "*.xls;*.xlsx"

        If .Show Then

            Me.txtPath = .SelectedItems(1)

        End If

    End With

    Set objApp = CreateObject("Excel.Application")

    Set objBook = objApp.Workbooks.Open(Me.txtPath, , True)

    objBook.Worksheets(1).Select

    With objApp

        Me.txtMsg = "[A1]" & .Range("A1").Comment.Text & vbCrLf & "[B1]" & .Range("B1").Comment.Text

    End With

    If Not objApp Is Nothing Then objApp.Quit

    Set objApp = Nothing

    Set objBook = Nothing

End Sub

注意:代码里我取是的A1、B1单元格的批注信息,大家在测试时不要弄错了。

0 3、测试

最后当然就是测试了,大家点击浏览按钮,选择导入的excel,导入后代码就会自动找到内容了,大家都快去试试吧,如果大家有问题,可以直接给我留言!

相关推荐
葡萄城技术团队3 小时前
从100秒到10秒的性能优化,你真的掌握 Excel 的使用技巧了吗?
excel
DemonAvenger6 小时前
NoSQL与MySQL混合架构设计:从入门到实战的最佳实践
数据库·mysql·性能优化
AAA修煤气灶刘哥17 小时前
后端人速藏!数据库PD建模避坑指南
数据库·后端·mysql
RestCloud21 小时前
揭秘 CDC 技术:让数据库同步快人一步
数据库·api
得物技术1 天前
MySQL单表为何别超2000万行?揭秘B+树与16KB页的生死博弈|得物技术
数据库·后端·mysql
可涵不会debug1 天前
【IoTDB】时序数据库选型指南:工业大数据场景下的技术突围
数据库·时序数据库
ByteBlossom1 天前
MySQL 面试场景题之如何处理 BLOB 和CLOB 数据类型?
数据库·mysql·面试
麦兜*1 天前
MongoDB Atlas 云数据库实战:从零搭建全球多节点集群
java·数据库·spring boot·mongodb·spring·spring cloud
Slaughter信仰1 天前
深入理解Java虚拟机:JVM高级特性与最佳实践(第3版)第十章知识点问答(10题)
java·jvm·数据库
麦兜*1 天前
MongoDB 在物联网(IoT)中的应用:海量时序数据处理方案
java·数据库·spring boot·物联网·mongodb·spring