使用VBA读取指定Excel文件指定Sheet指定单元格的内容

打开一个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