Dim aworkbook As Excel.Workbook
Dim strpath As String
Dim ss As String
strpath = Excel.ActiveWorkbook.Path
Set aworkbook = GetObject(strpath & "\\test.xls")
ss = aworkbook.Sheets(1).Range("A1").Value
Dim strpath As String
Dim ss As String
strpath = Excel.ActiveWorkbook.Path
Set aworkbook = GetObject(strpath & "\\test.xls")
ss = aworkbook.Sheets(1).Range("A1").Value