Dosya Yolu

[vivident]

sub dosya ()
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub

[COLOR="Red"]Set s1 = dosya.Worksheets("ARŞİV")[/COLOR]
Set s2 = ThisWorkbook.Worksheets("AAA")

Hangi dosyanın olduğunu ben seçeceğim, o dosyanın "ARŞİV" sayfasına Set s1 kısmına getirmeye çalışıyorum

Kırmızı fontlu kısım nasıl olmalı

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir

dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
Workbooks.Open dosya
Set s1 = Workbooks(Dir(dosya)).Worksheets("ARŞİV")
Set s2 = ThisWorkbook.Worksheets("AAA")

 

[vivident]

Teşekkür ediyorum