打开一个Excel文件，选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor，打开VBA编辑器。
在Modules文件夹下的csMain文件中，写下如下VB格式的代码：
Public Sub Source做成()
'声明Excel相关
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
'获取指定excel文件
Set xlBook = xlApp.Workbooks.Open("C:\test.xls")
Dim sheet As Excel.Worksheet
'获取指定sheet
Set sheet = xlBook.Worksheets(2)
Dim ss As String
'获取指定单元格的内容
ss = sheet.Cells(2, 2)
'内容显示
MsgBox (ss)
End Sub
测试效果：弹出一个信息框，显示的内容是C盘下test.xls文件的第2个sheet的（2，2）单元格中的内容。
相关资源：使用VBA提取文件夹内所有word文档中的表格数据
