Merhaba;
1 dosyasında boş bir modüle;
Sub kapalıdan_başlıkları_al()
Application.ScreenUpdating = False
On Error Resume Next
Range("A1:ıv1").ClearContents
With Application
yoll = ThisWorkbook.Path & "\BAŞLIK\" 'başlık dosyasının yolu
'yoll = "c:\deneme\" 'başlık dosyasının yolu bu şekilde de olabilir
dosyaa = Dir(yoll & "*.xls?") 'klasördeki excel dosyaları
Do While dosyaa <> ""
If dosyaa = "başlıklar.xls" Then 'eğer dosya başlık dosyası ise
Cells(1, "a") = .ExecuteExcel4Macro("'" & yoll & "[" & dosyaa & "]Sayfa1'!R1C1") 'Sayfa1'!R1C1=Sayfa1 sayfasının 1. satır 1.sütun değeri
Cells(1, "b") = .ExecuteExcel4Macro("'" & yoll & "[" & dosyaa & "]Sayfa1'!R1C2") 'Sayfa1'!R1C2=Sayfa1 sayfasının 1. satır 2.sütun değeri
Cells(1, "c") = .ExecuteExcel4Macro("'" & yoll & "[" & dosyaa & "]Sayfa1'!R1C3")
Cells(1, "d") = .ExecuteExcel4Macro("'" & yoll & "[" & dosyaa & "]Sayfa1'!R1C7") 'Sayfa1'!R1C7=Sayfa1 sayfasının 1. satır 7.sütun değeri
End If: dosyaa = Dir
Loop
Application.ScreenUpdating = True
End With
End Sub
kodlarını yerleştirin ve bir butona bağlayarak deneyin. (2 dosyası içinde aynı işlemi yapın)
İyi çalışmalar.
NOT: 1 ve 2 dosyalarının bulunduğu yerde BAŞLIK adlı bir klasör açın ve 3 dosyasını başlıklar.xls olarak buraya yerleştirin. (yada kodlarda başlıklar.xls adını 3.xls olarak değiştirin)