Web sayfasını Excel'e değer olarak kopyalamak

[akyyuc]

Merhaba,
Makro ile https://www.tjk.org/TR/YarisSever/Info/Page/GunlukYarisProgrami sayfasına gidip,
içinde excel Kitap1 Sayfa4 A1 hücresindeki Koşu adı ((Örneğin "İstanbul" ) un geçtiği "İstanbul(2. Y.G.)" sayfasını açıp,
açılan sayfada da boş alana tıklayıp ve tümünü seç ile kopyalayıp,
excel Kitap1 Sayfa1 A1 hücresine değer olarak yapıştırmak istiyorum.
Bunu Google Chrome kullanarak yapmak istiyorum.
Mümkünse yardımınızı rica ediyorum.
İyi çalışmalar dilerim.

 

[akyyuc]

Tekrar Merhaba,
Acaba hatalı bir soru mu sordum ya da destek alabilmem için altın üye mi olmam gerekiyor? En azından bunu öğrenebilirsem, gereğini yapabilirim.
Sevgili destek ekibinden olumlu ya da olumsuz bir yanıt gelirse memnun olurum.
Tekrar iyi çalışmalar dilerim.

 

[ÖmerBey]

Merhaba,
Destek almanız için altın üye olmanıza gerek yoktur.

Forumun temel amacı olan SORU SORMA ve CEVAP ALMA ücretsizdir.
Altın Üyelik soru sorma veya cevap almada herhangi bir öncelik veya ayrıcalık sağlamaz.

Forumda DOSYA EKLEME ile DOSYA İNDİRME işlemleri için ve yayınlanan Video Dersleri izleyebilmek için ALTIN ÜYELİK gerekmektedir.

 

[akyyuc]

Merhaba Ömer Bey, bunu anladım, teşekkürler.

Sorumdaki kodlarla ilgili bir desteğiniz olabilecek mi?

İyi çalışmalar dilerim.

 

[akyyuc]

Tekrar Merhaba,
Herkes çok yoğun sanırım, o yüzden sorumu kısaltmakla belki birinizin yardımını alma şansım olur diye düşündüm.
Açık olan chrome sayfasında tümünü seç ve kopyala komutu için kod rica ediyorum.
İyi çalışmalar dilerim.


Sub Makro6()
'
' Makro6 Makro
'
' Klavye Kısayolu: Ctrl+u
'
Windows("Kitap1").Activate
Sheets("Sayfa5").Select

Range("A1:Q1000").Select
Selection.ClearContents

Dim Yol As String

Url = Sheets("Sayfa4").Range("A1").Value

Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"

Shell (Yol & Url)

''''''''''''''''''''''''''''''''''''''''
'Buraya yerleşecek kodları rica ediyorum
''''''''''''''''''''''''''''''''''''''''

Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True

Application.CutCopyMode = False

End Sub

 

[alicimri]

POWER QUERY ile deneyin Tabloları ayrı ayrı sayfalara alıyor. Tüm Tabloları birleştirme olanağı da var.

 

[akyyuc]

Ali Bey teşekkür ederim. En azından ilgilenip bir yanıt vermişsiniz sağolun.

Ben kod bilmiyorum ama internet ortamındaki tonlarca örnekten kendime lazım olanları parça parça bulup birleştirerek, deneme yanılmalardan sonra sonuca ulaşabiliyorum çok şükür. Ama sizlerin 1 dakikada yapabileceği bir iş benim saatlerimi alabiliyor bazen tabii. Neticede emekliyim zamanım bol
Keşke forumdan yardım alabilseydim ama belli ki herkesin işi gücü yoğun, canları sağolsun destek ekibinin.

Neticede, ben şöyle bir kodlama yaptım ve sonuca ulaştım. Belki benim gibi birinin işine yarar diye yazıyorum buraya.

İyi çalışmalar dilerim.

Sub Makro4()
'
' Makro4 Makro
'
' Klavye Kısayolu: Ctrl+o
'
Windows("WEB").Activate
Sheets("Sayfa4").Select

Range("A1:Q1000").Select
Selection.ClearContents

Dim Yol As String

Url = Sheets("Sayfa3").Range("A1").Value

Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"

Shell (Yol & Url)

Application.Wait Now + TimeValue("00:00:04")
'
AppActivate ("Google Chrome")
Application.SendKeys ("^a"), True
Application.SendKeys ("^c"), True
Application.SendKeys ("{numlock}"), True

Windows("WEB").Activate
Sheets("Sayfa4").Select

Range("A1").Select

Application.Wait Now + TimeValue("00:00:04")

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True

Application.CutCopyMode = False

Shell ("taskkill /F /IM chrome.exe*")

End Sub

 

[alicimri]

Önerimde kod yok. Üst menülerde POWER QUERY bulunması gerekiyor. Ona tıklayın, çıkan yeni menülerde web e tıklayın, devamında çıkan iletişim kutuları sizi yönlendirecektir.
Eğer POWER QUERY yüklü değilse Microsoft un sitesinden indirin.
Download Power Query from Official Microsoft Download Center

 

[alicimri]

Kusura bakmayın yanlış olmuş, ofis 2016 da
Excel 2016 versiyonunda ise Data (Veri) sekmesinde Get & Transform (Al ve Dönüştür) alanında gömülü olarak karşımıza çıkar.
şeklinde oluyormuş.