Excel Köprü Özelliği

[CihangirA]

Merhabalar;

Excel ile Word arası köprü kurabiliyorum.

Ama Excel A1 sütununa köprü özelliğini kullanıp Word dosyasının belirlediğim sayfasında açılmasını istiyorum.

Bununla ilgili formül kullanımı oluyormuş.Tam olarak bilgim yok.

Yardımlarınızdan dolayı teşekkür ederim.

Saygılarımla

 

[Korhan Ayhan]

Merhaba,

Forumumuza hoş geldiniz...

2010 versiyonda denediğimde istenilen sayfayı seçemiyorsunuz. Sadece dokümana köprü oluşturabiliyorsunuz. Nette biraz araştırma yaptım. Word dosyasında yer imi oluşturup kullanma şansı varmış.

Aşağıdaki kod ile bu işlemi yapabilirsiniz.

Word dosyanızı açın.
Gitmek istediğiniz sayfaya gelin.
Ekle menüsünden YER İŞARETİ (İMİ) seçeneğine tıklayın.
İsim kutusuna bir isim tanımlayın ve tamam tuşuna basın.
Dosyanızı kayıt edip kapatın.

Boş bir excel dosyası açın. Aşağıdaki kodu bir modüle ekleyin.

İlgili word dosyasının dosya yolunu excel hücresine yazın. Bu hücre seçiliyken aşağıdaki kodu çalıştırın.

Ben herhangibir word dosyasında DENEME adıyla yer imi oluşturdum. Bu sebeple siz kendi verdiğiniz ismi kod içine yazarsınız.

Sub WORD_DOSYASINA_GIT()
    Dim Yol As String
    Dim WA As Object
    Dim WD As Object
    
    Yol = ActiveCell.Text
    
    Set WA = CreateObject("Word.Application")
    WA.Visible = True
    Set WD = WA.Documents.Open(Filename:=Yol, ReadOnly:=True)
    
    WD.Bookmarks("DENEME").Range.Select
    WD.ActiveWindow.ActivePane.SmallScroll Down:=30
End Sub