Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Function ReadA2() As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("c:\12.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
你想要的 = xlSheet.cells(2, 1) '或者加上.Value
End Function
提问者：匿名
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024