Kapalı dosyaya veri gönderme ve alma

[omemo]

Merhaba,
Forumda yaptığım aramada birçok örnek buldum ama işin içinden çıkamadım.
Öğrenmeye çalıştığım konu şu:Aynı klasörde bulunan X ve Y isimli iki dosyam var. X dosyası açık.
-Açık olan X dosyasının A1:A10 aralığındaki verileri kapalı olan Y dosyasının A1:A10 aralığına göndermek(yazmak) istiyorum.
-Kapalı olan Y dosyasının B1:B10 aralığındaki verileri de açık olan X dosyasının B1:B10 aralığına yazdırmak istiyorum.
Bu işlem için en basit VBA kodu nasıl olmalıdır?

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.

[SIZE="2"]Sub yaz()
DOSYA = ThisWorkbook.Path & "\" & "[COLOR="Red"]kitap[/COLOR]" & ".xlsx"
Set Aç = New Excel.Application
Aç.Workbooks.Open DOSYA
Set hz = Aç.Workbooks(Dir(DOSYA))
Aç.Sheets("Sayfa1").Range("A1:A10").Value = ActiveSheet.Range("A1:A10").Value
ActiveSheet.Range("B1:B10").Value = Aç.Sheets("Sayfa1").Range("B1:B10").Value
hz.Close SaveChanges:=True
Aç.Quit
Set Aç = Nothing: Set hz = Nothing
End Sub[/SIZE]

 

[omemo]

Teşekkürler.
Kodları anlamaya çözmeye başladım yavaş yavaş ve sorun çözüldü.
Yukarıdaki koddan anladığım; Aslında kapalı dosyaya veri yazmıyoruz. Dosyayı açıp verileri yazdıktan sonra kapatıyoruz.
Eğer böyleyse, sadece öğrenmek adına soruyorum. Bu işlem dosyayı açmadan da yapılabilir mi?
Saygılar.

 

[Levent Menteşoğlu]

Teşekkürler.
Kodları anlamaya çözmeye başladım yavaş yavaş ve sorun çözüldü.
Yukarıdaki koddan anladığım; Aslında kapalı dosyaya veri yazmıyoruz. Dosyayı açıp verileri yazdıktan sonra kapatıyoruz.
Eğer böyleyse, sadece öğrenmek adına soruyorum. Bu işlem dosyayı açmadan da yapılabilir mi?
Saygılar.

Elbette yapılabilir. Her ne kadar bu başlangıç düzeyinin üzerinde bir konu olsa da alttaki başlıkta ilgili konuyu bulabilirsiniz.

http://www.excel.web.tr/f117/

 

[omemo]

Teşekkürler.
Linkteki örnekleri incelemek bir hayli zamanımı alacak ama buna değeceğini düşünüyorum.
Sağolun