Hi，大家好呀！
又到了一周一分享的时间，上周繁忙的我都没有给大家直播，视频也没更新，那这周大家放心，都会给大家更新，今天我们来讲点啥呢？每周找优质的内容给大家更新是我最最痛苦的事情了，所以我这么费心，那大家还不给我一键三连！！！
那今天给大家分享点啥呢，先上图：
今天我们就来讲讲excel的导入功能,excel的导入功能我们讲过很多了，常规的导入无非就是导入数据，那我们今天来讲讲导入批注信息。
01、创建窗体
在创建窗体前，我们先要有一个可以导入的excel，同时你的excel第一条是标题行，且有批注，如下图：
准备好了有批注的excel，我们接着在access添加一个窗体，具体的如下图：
02、添加代码
接着，我们就来添加一下代码，具体的代码如下：
Private Sub btnSelect_Click()Dim objApp As Object 'Excel.ApplicationDim objBook As Object 'Excel.WorkbookWith FileDialog(msoFileDialogFilePicker) 'msoFileDialogFilePicker.AllowMultiSelect = False.Filters.Clear.Filters.Add "Excel", "*.xls;*.xlsx"If .Show ThenMe.txtPath = .SelectedItems(1)End IfEnd WithSet objApp = CreateObject("Excel.Application")Set objBook = objApp.Workbooks.Open(Me.txtPath, , True)objBook.Worksheets(1).SelectWith objAppMe.txtMsg = "[A1]" & .Range("A1").Comment.Text & vbCrLf & "[B1]" & .Range("B1").Comment.TextEnd WithIf Not objApp Is Nothing Then objApp.QuitSet objApp = NothingSet objBook = NothingEnd Sub注意：代码里我取是的A1、B1单元格的批注信息，大家在测试时不要弄错了。
03、测试
最后当然就是测试了，大家点击浏览按钮，选择导入的excel，导入后代码就会自动找到内容了，大家都快去试试吧，如果大家有问题，可以直接给我留言！
