Sub Portfel_1()
Dim Conn As New ADODB.Connection
Dim open_file As String, this_wb As Workbook
Set this_wb = ThisWorkbook
open_file = Application.GetOpenFilename("Excel Files(*.xlsx),*.xlsx")
If open_file = "False" Then Exit Sub
Workbooks.Open open_file
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Extended Properties=""Excel 8.0; HDR=Yes;""; Data Source=" & this_wb.FullName
this_wb.Sheets("Dinamika").Range("C6").CopyFromRecordset _
Conn.Execute("SELECT SUM(Ostatok_dolga) FROM [1$]")
Conn.Close
ActiveWorkbook.Close
End Sub