vba怎样读取选定单元格内容_使用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

测试效果：弹出一个信息框，显示的内容是C盘下test.xls文件的第2个sheet的(2，2)单元格中的内容。

分享到：

2009-08-24 16:57

浏览 18952

评论