Public Sub ReadSource()
'声明Excel相关
Dim xlApp As Application
Dim xlBook As Workbook
Set xlApp = New Application
'获取指定excel文件
FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
Set xlBook = xlApp.Workbooks.Open(FileName)
Dim sheet As Excel.Worksheet
'获取指定sheet
Set sheet = xlBook.Worksheets("sheet1")
Dim ss As String
'获取指定单元格的内容
ss = sheet.Cells(2, 2)
'内容显示
MsgBox (ss)
End Sub