Question

在excel中用VBA编程取数,引用路径为D:\[明细.xls]Sheet1'!A1，怎么能将这个引用地址转换为cells(1,1)的形

在excel中用VBA编程取数,引用路径为D:\[明细.xls]Sheet1'!A1，怎么能将这个引用地址转换为cells(1,1)的形式

Answer 1

'使用workbook对象来引用单元格。如下：

'声明Excel相关
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlApp = New Excel.Application
'获取指定excel文件
Set xlBook = xlApp.Workbooks.Open(文件路径)

Dim obSheet As Excel.Worksheet
'获取指定sheet
Set obSheet = xlBook.Worksheets(1)

Dim ss As String
'获取指定单元格的内容
ss = obSheet.Cells(1, 1)
'内容显示
MsgBox (ss)