利用VBA 简单读取

Sub btnOpen_Click()



Dim crtSht As Worksheet
Set crtSht = ActiveSheet
Dim addressVal As String
addressVal = crtSht.Cells(3, 3)

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(addressVal)
Dim sheet As Excel.Worksheet
Set sheet = xlBook.Worksheets(2)
crtSht.Cells(5, 3).Value = sheet.Cells(1, 1)

End Sub