Sub trade_balances2()  
  
Set cn = CreateObject("ADODB.Connection")  
  
With cn  
  
    .Provider = "Microsoft.Jet.OLEDB.4.0"  
    .ConnectionString = "Data Source=" & ThisWorkbook.Sheets("База").Cells(2, 2) & ";Extended Properties=dBase IV"  
    .Open  
      
    Set rs = .Execute("CREATE VIEW terp AS " & _  
    "SELECT D_VAGON.NP_VAGD as hred FROM D_VAGON")  
  
    ThisWorkbook.Sheets("Процесс2").Cells.ClearContents  
      
    ThisWorkbook.Sheets("Процесс2").Cells(1, 1).CopyFromRecordset rs  
      
    .Close  
      
End With  
  
End Sub