打开一个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
联系客服