Açık olmayan kitaba veri yollayıp almak

[ynmcan]

Merhaba arkadaşlar;
*Ben açık olmayan bir excel kitabına veri yollayıp almak istiyorum bu mümkünmüdür?
*mümkün değilse bu kapalı olan kitap, işlem yaptığım diğer kitapta veriyi girdiğimde ben hiç bir müdahalede bulunmadan birkaç saniyeliğine açılıp kapanabilirmi?
*Örnek dosyalarım ekte.

 

[Ömer]

Merhaba,

Dosya 1 F2 hücresine,

=B2+'[dosya 2.xls]Sayfa1'!$H$4 formülünü yazsanız olmazmı?

Eğer açılıp kapanmasını istiyorsanız. Dosya 1 de boş bir module

Sub Aç()
 
Workbooks.Open Filename:="[COLOR=red]C:\Documents and Settings\Administrator\Desktop\dosya 2.xls[/COLOR]"
ActiveWindow.Visible = True
 Windows("dosya 2.xls").Activate
    ActiveWorkbook.Save
    ActiveWindow.Close
 
End Sub

Dosya 1 Sayfa1 in kod sayfasına,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [B2]) Is Nothing Then Call Aç
End Sub

Kodlarını yazarak deneyiniz..

Dosya yolu masa üstünde olduğu düşünülerek yazılmıştır.

 

[ynmcan]

syn. espiyonajl ,
Açma kapama makrosu işimi görür. İlginize teşekkür ederim. Hayırlı akşamlar