Diger excel dosyasi acip deger girmek

[etobus]

Merhaba,

Mesela ben baska bir excel dosyasindan baska birine bilgi girecegim.

Birinci Excel Sayfasi girileri yapacagim sayfa ve A1 hucresinde diger excel sayfasinin adi yaziyor

A3 ve A4 hucrelerinde ise diger excel sayfasina gecirmek istedigim degerler yaziyor. Bu durumda bunu nasil yapabilirim?

Yani sanirim once diger workbookuda aktif hale getirecegim.

1.dosya ismi : Giris
2.dosya ismi : Data

Giris dosyasinin """ Ana """ sayfasinin A1 hucresinde Data yaziyor, okuma buradan yapilacak.
A3 ve A4 hucrelerindeki degerlerde Datanin B3 ve B4 hucrelerine kopyalanacak.

Excel olarak hazirlamaya zahmet etmeyin sadece kodu buraya yazsaniz yeter. Once aktif hale getirmeyi sonra bu data kopyalamayi.

Tesekkurler.

 

[alpi]

dosya açmak (aktif yapmak)
workbooks.open("dosyanın tam yolu ve adı")

Veri Kopyalamak
workbook("Giris.xls").sheets("Ana").range("A3:A4").copy

Veri Yapıştırmak
workbook("Data.xls").sheets("Ana").range("B3").paste

 

[mnz]

Klasör içindeki dosyaların tek tek açılıp kapanması ile ilgili bir kod varmı?
Aşağıdaki kodların çalışması gerek diye düşünüyorum ama çalışmıyor.

dim sayfa as variant
yol = "belgelerin/excel/"
for each sayfa in yol
workbook.open sayfa
next
activeworkbook.close false

 

[alpi]

Aşağıdaki kodu deneyin

Sub DosyaAçKapa()
    Dim fs, f, f1, fc, folderspec
    folderspec = "C:\Documents and Settings\Yahya\Desktop\Yeni Klasör"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        
        Workbooks.Open f1 'Dosya açıyoruz
        Workbooks(f1.Name).Close 'dosya kapatıyoruz
    Next
End Sub

 

[mnz]

teşekkürler alpi