Makro ile kapalı çalışma sahifesinin açılması

[kemal turan]

Merhaba uzmanlarımız,
Makro ile köprü işlemini yapıyorum.Fakat kapalı dosyayı açmak için makro yaptığımızda dosya yolunu göztermediğinden dosya açılamıyor.
Örnek masa üstünde;
"Ahmet" diye bir klasör;
Klasör içerisinde "mehmet" adında bir çalışma sayfası.(dosya uzantısı xlsm.)Çalışma sahifesi içerisinde ömer diye bir sayfaya ulaşmak için nasıl bir kod yazmak lazım.
Sub dosyaa()
?
End sub
teşekkür ederim.

 

[halit3]

Merhaba uzmanlarımız,
Makro ile köprü işlemini yapıyorum.Fakat kapalı dosyayı açmak için makro yaptığımızda dosya yolunu göztermediğinden dosya açılamıyor.
Örnek masa üstünde;
"Ahmet" diye bir klasör;
Klasör içerisinde "mehmet" adında bir çalışma sayfası.(dosya uzantısı xlsm.)Çalışma sahifesi içerisinde ömer diye bir sayfaya ulaşmak için nasıl bir kod yazmak lazım.
Sub dosyaa()
?
End sub
teşekkür ederim.

Dosyayı açtıktan sonra ilgili sayfayıda açınca başka sorunuz olacakmı?

 

[kemal turan]

yok yok halit bey korkmayın başka sorum olmayacak

 

[halit3]

yok yok halit bey korkmayın başka sorum olmayacak

kod:

Sub dosyayıac()
masa = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
Dosya = "Ahmet\mehmet.xlsm"
If CreateObject("Scripting.FileSystemObject").FileExists(masa & "\" & Dosya) = True Then
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open(masa & "\" & Dosya)
wb.Sheets("ömer").Select
Application.ScreenUpdating = True
Else
MsgBox masa & "\" & Dosya & Chr(10) & "yok"
End If
End Sub

 

[kemal turan]

Halit bey merhaba,
İlginiz çok teşekkür ederim.
Selametle kalın