копирование из файла

[Hodor]

люди, помогите пожалуйста! Есть 2 файла, путь к ним например
c:\temp\file1.xlsx и c:\temp\file2.xlsx.
Как скопировать из file1.xlsx, не открывая его, столбец С3 в file2.xlsx, например в столбец D4?

[аналитика]

    [D4].Formula = "='C:\temp\[file1.xlsx]Лист1'!$C$3"

слова столбец перевел как ячейка

[Hodor]

Блин настолько запарился,что неправильно формулировку написал(((
А столбец C как скопировать из file1, не открывая его, в file2 на место столбца D?

[doober]

 Sub BLIN()
Application.ScreenUpdating = False
Dim sh As Worksheet
Set sh = GetObject("C:\temp\file1.xlsx").Sheets(1)
sh.Columns(3).Copy ThisWorkbook.Sheets(1).Range("D1")
 sh.Parent.Close (False)
 Application.ScreenUpdating = True
End Sub