Excel sayfasının linkini almak - Yazdırılabilir Sürüm

Excel sayfasının linkini almak - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: Excel sayfasının linkini almak (/Konu-Excel-sayfasinin-linkini-almak)

Sayfalar: 1 2

Excel sayfasının linkini almak - akd27 - 03-09-2009

Merhaba arkadaşlar,
Metin kutusuna excel sayfasının linkini nasıl alabiliriz.
Aynı şekilde Word'unda sayfa linki alınabilirimi.?
Ekledigim belgede kitabı seçebiliyoruz,
ama ben kitabın içindeki sayfaları seçmek istiyorum.
Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım...

RE: Excel sayfasının linkini almak - adnanyurdakul - 04-09-2009

örnek ekte

RE: Excel sayfasının linkini almak - akd27 - 04-09-2009

adnan hocam, zaten bu şekilde linki alabiliyordum,
excelin içindeki sayfanın linkini almak istiyordum ben.
C:\Documents and Settings\s\Belgelerim\mahalle.xls\sokak
yani ayrıca excel belgenin içine girip sokak sayfasınıda tanımlaması gerekiyor.
İyi çalışmalar...

Cvp: Excel sayfasının linkini almak - MirzaKatar - 14-12-2011

Merhaba,
Aradan uzun süre geçmiş, belki bu konuda yeni gelişmeler vardır. Bilen varsa soruyu cevaplandırabilir mi?

Cvp: Excel sayfasının linkini almak - Zeki Gürsoy - 14-12-2011

(14-12-2011, 17:35)MirzaKatar demiş ki: Merhaba,
Aradan uzun süre geçmiş, belki bu konuda yeni gelişmeler vardır. Bilen varsa soruyu cevaplandırabilir mi?

Visual Basic
Sub Doc()
Dim h As Hyperlink
 
For Each h In ThisDocument.Hyperlinks
    Debug.Print Debug.Print h.TextToDisplay & " ; " & h.Address
Next
End Sub

Visual Basic
Sub XL()
Dim h As Hyperlink
 
For Each h In ThisWorkbook.Sheets("sayfa1").Hyperlinks
    Debug.Print h.Address & " ; " & h.TextToDisplay
Next
End Sub

Cvp: Excel sayfasının linkini almak - akd27 - 14-12-2011

zeki hocam, ilk sorumdaki koda bunu nasıl ekleyecegiz, lütfen bakarmısınız, yada onun üzerinde değişiklik yaparmısınız.?
Dim strFilter As String
Dim strInputFileName As String
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls") & ahtAddFilterItem(strFilter, "Excel Files (*.Doc)", "*.Doc")
strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Lütfen xls ve Doc uzantılı dosyaları seçiniz.", _
Flags:=ahtOFN_HIDEREADONLY)
Link.SetFocus
If strInputFileName = "*.xls" Then
Link.Text = ""
Else
Link.Text = strInputFileName
End If