在excel中用VBA编程取数,引用路径为D:\[明细.xls]Sheet1'!A1,怎么能将这个引用地址转换为cells(1,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)
'声明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)
温馨提示:答案为网友推荐,仅供参考