Açık olan Excel kitaplarına ulaşmak

[merakli_72]

mrb,
Dim i As Byte

For i = 1 To Workbooks.Count
MsgBox Workbooks(i).Name
Next

şeklinde normal yolla açılan/oluşturulan excel kitaplarına ulaşabiliyorum
fakat diyelim Access'te CreateObject("Excel.Application") komutu ile bir excel kitabı oluşturuluyor ve bunun içine rapor atılıyor
ozaman yukardaki komutlar ile ona ulaşamıyorum
Benim asıl ulaşmak istediğim bu şekilde oluşturulan kitaplar (Diske kaydetmeden) bu nasıl yapılabilir

Teşekkürler

 

[Orion1]

Açık olan dosyaların 1nci sayfaya a2 hcücrelerine EVREN yazar.
Ama bu tüm açık olan uyglamaları maalesef kapsamıyor.
Sadece bir uygulamya ait.Yani kodu yazdığınız dosyada çalıştırdığınız excel uygulamasına ait olan excel dosyalarına aittir.

Sub dosyalar()
Dim i As Integer
For i = 1 To Workbooks.Count
    Workbooks(i).Sheets(1).Range("A2").Value = "EVREN"
Next
End Sub

 

[merakli_72]

Evren bey öncelikle cevabınız için teşekkürler
Dediğim gibi normal yollardan açılan excel kitaplarına ulaşabiliyorum zaten
ama diyelim acceste CreateObject("Excel.Application") ile bir excel kitabı oluşturuldu,
buna ulaşamıyorum ve benimde asıl ulaşmam gereken bunlar içerilerindeki bilgileri kopyalamam lazım Workbooks.Count onları saymıyor