摘要：今天给大家分享点啥内容呢？之前我发了好多关于导出Excel的操作，那反之，导入的操作是不是也应该有，那今天我们就来讲讲Excel导入的操作。

hi，大家好呀！

今天是平安夜，那就祝大家圣诞节快乐！圣诞节过了，就要元旦了，新的一年又要来啦！很快就要过年了，那我就早点祝大家新年快乐，发大财！

今天给大家分享点啥内容呢？之前我发了好多关于导出Excel的操作，那反之，导入的操作是不是也应该有，那今天我们就来讲讲Excel导入的操作。

在开发前，我们先要有一个可以导入的Excel文件，那我们这里的话，就用之前我们导出的那个Excel文件，具体的如下图：

Excel准备好了，我们接着，再对Excel做一些简单的调整，我们在产品代码这里添加一个标注，如图：

接着，我们就可以来创建一个窗体了，在窗体上我们放两个文本框，一个按钮。一个文本框用来显示Excel 的路径，另一个用来显示批注的内容。

我把准备工作都做好了，接着就可以来添加代码了。

Private Sub btnOK_Click

On Error GoTo ErrorHandler

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 = .Range("B1").Comment.Text

End With

If Not objApp Is Nothing Then objApp.Quit

ExitHere:

Set objApp = Nothing

Set objBook = Nothing

Exit Sub

ErrorHandler:

MsgBox Err.Description, vbCritical

Resume ExitHere:

End Sub

最后就是运行测试了，运行的具体效果。

好了，大家快去试一下吧！哦，对了，大家觉得我写的还不要忘记给我点赞哦！你的支持才我持续的动力哦！大家快乐哦！#access#

来源：博羽教育