Excel sayfasının linkini almak
#1
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...


Eklenti Dosyaları
.rar   link.rar (Boyut: 36,95 KB / İndirilme: 62)



  Alıntı
Bu mesajı beğenenler:
#2
örnek ekte


Eklenti Dosyaları
.rar   alink.rar (Boyut: 40,26 KB / İndirilme: 58)
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#3
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...



  Alıntı
Bu mesajı beğenenler:
#4
Merhaba,
Aradan uzun süre geçmiş, belki bu konuda yeni gelişmeler vardır. Bilen varsa soruyu cevaplandırabilir mi?



  Alıntı
Bu mesajı beğenenler:
#5
(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
  1. Sub Doc()
  2. Dim h As Hyperlink
  3.  
  4. For Each h In ThisDocument.Hyperlinks
  5. Debug.Print Debug.Print h.TextToDisplay & " ; " & h.Address
  6. Next
  7. End Sub



Visual Basic
  1. Sub XL()
  2. Dim h As Hyperlink
  3.  
  4. For Each h In ThisWorkbook.Sheets("sayfa1").Hyperlinks
  5. Debug.Print h.Address & " ; " & h.TextToDisplay
  6. Next
  7. End Sub





  Alıntı
Bu mesajı beğenenler:
#6
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



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Excel Aktarımı kahramanselim 6 218 06-04-2024, 21:11
Son Mesaj: kahramanselim
  Farklı Tablodan Mükerrer Olmayan Bilgi Almak bilservisci 5 147 17-12-2023, 18:04
Son Mesaj: dsezgin
  Access'e Excelden Dış Veri Almak snapper 3 167 02-10-2023, 22:55
Son Mesaj: dsezgin
  Excel Birleştir Ve Süz Bora34 6 794 16-02-2023, 18:33
Son Mesaj: Bora34
  Başlıkları Aynı Olmayan EXcel Tablosunu Dosya Bul Butonu Ile Accese Veri Almak snapper 1 190 17-12-2022, 03:13
Son Mesaj: dsezgin
  Aktif Formda Raporu Pdf Olarak Almak ankaram 4 192 06-11-2022, 22:40
Son Mesaj: onur_can
  Saat-dakika Değerini Iki Karakter Olarak Almak husem 3 205 27-05-2022, 08:45
Son Mesaj: husem
  Listboxta Bulunan Itemin Veya Itemlerin Seçim Yapmadan Kolon Değerini Almak tarkanaykın 3 235 17-03-2022, 17:16
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi