VBA İLE WEB SAYFASI YAZDIRMA

editedbycenk · 11 Ekim 2021

Merhaba

Excel vba ile istediğimiz web sayfasını açıp açılan web sayfasını yazdırabileceğimiz bir makro varmıdır acaba ?

editedbycenk · 14 Ekim 2021

Konu günceldir teşekkürler

yunus788 · 14 Ekim 2021

Sayfa aynı sayfamı olacak değişkenmi?

editedbycenk · 15 Ekim 2021

Değişken olacak

Korhan Ayhan · 15 Ekim 2021

Deneyiniz.

Using a macro to open then print a webpage?

Hello all! I am trying to use a macro in Excel to open a website (the URL is a named range in a worksheet) and then print the web page. I am able to open the webpage with the following code: Sub View_Tech_Recalls() Set ie = CreateObject("InternetExplorer.Application") ie.navigate...

www.mrexcel.com

C++:

Option Explicit

Sub View_Tech_Recalls()
    Dim ie As Object, TimeOutWebQuery As Byte, TimeOutTime As Double
    
    Set ie = CreateObject("InternetExplorer.Application")
    
    ie.navigate "https://www.excel.web.tr/threads/vba-ile-web-sayfasi-yazdirma.197188/#post-1102463"
    ie.StatusBar = False
    ie.Toolbar = True
    ie.Visible = True
    ie.Resizable = True
    ie.AddressBar = False
    
    TimeOutWebQuery = 5
    TimeOutTime = DateAdd("s", TimeOutWebQuery, Now)
    Do Until ie.readyState = 4
        DoEvents
        If Now > TimeOutTime Then
            ie.stop
            GoTo ErrorTimeOut
        End If
    Loop

    ie.ExecWB 6, 2
    Application.Wait (Now + TimeValue("0:00:03"))
    ie.Quit
    
ErrorTimeOut:
    Set ie = Nothing
End Sub

editedbycenk · 15 Ekim 2021

Run time error

Automation error
Uzaktan işlem çağrısı başarısız

hatası veriyor

editedbycenk · 15 Ekim 2021

editedbycenk' Alıntı:
Run time error

Automation error
Uzaktan işlem çağrısı başarısız

hatası veriyor

Ve ara birim bilinmiyor hatası veriyor

Korhan Ayhan · 15 Ekim 2021

Internet Explorer gerekiyor. Ben deneyerek çalıştığını gözlemleyerek paylaştım.

reosman · 15 Ekim 2021

Kodları bende denedim gayet başarılı çalışıyor.

editedbycenk · 15 Ekim 2021

Korhan Ayhan' Alıntı:
Internet Explorer gerekiyor. Ben deneyerek çalıştığını gözlemleyerek paylaştım.

internet explorer istediğim sayfayı açıyor onda sorun yok sayfa açıldıktan sonra vba hata veriyor

excelokyanus500 · 15 Ekim 2021

Merhaba,

Size yardımcı olunmasını istiyorsanız öncelikli olarak --mahsuru yoksa-- link paylaşmanızda fayda var.
Çünkü websayfasının yapısı istenen verinin nasıl temin edileceğini belirler ve çoğu zaman değişkendir.
Mesela bir veriyi "id" ile çekersiniz yahut başka bir veriyi "class" adına göre yahut da veriniz bir "table"
ise farklı bir yöntem denersiniz.

Bazen hiç ayrıntıya girmeden sayfayı kopyala yapıştır komutları ile bu işi halledebilirsiniz.
Bazen excelin webten veri çekme özelliği size yardımcı olabilir.

Yani yollar değişkendir.

Örnek vermek için deneyiniz

Kod:

Sub dene()
Dim IE

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True
IE.FullScreen = True
IE.StatusBar = False
IE.MenuBar = False
IE.Toolbar = False
IE.AddressBar = False
IE.TheaterMode = False
With IE
   .Top = 100 ' check if the propery names are correct
   .Left = 200
   .Width = 1200
   .Height = 950
End With

IE.Navigate "https://www.excel.web.tr/threads/vba-ile-web-sayfasi-yazdirma.197188/"
Do Until IE.ReadyState = 4: DoEvents: Loop
    Do While IE.Busy: DoEvents: Loop


sat = 1
For Each a In IE.Document.GetElementsByTagName("div") ' div içindeki tüm tekstleri almak siterseniz

Range("A" & sat).Value = a.innerText

sat = sat + 1
Next
IE.Quit
End Sub

veya

Kod:

Sub dene2()

Dim IE


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.FullScreen = True
IE.StatusBar = False
IE.MenuBar = False
IE.Toolbar = False
IE.AddressBar = False
IE.TheaterMode = False
With IE
   .Top = 100
   .Left = 200
   .Width = 1200
   .Height = 950
End With

IE.Navigate "https://www.excel.web.tr/threads/vba-ile-web-sayfasi-yazdirma.197188/"
Do Until IE.ReadyState = 4: DoEvents: Loop
    Do While IE.Busy: DoEvents: Loop

' Set getir = IE.document.getElementById("SayfaKONU").innerText 'Id ile ilgili text isterseniz mesela



sat = 1
For Each a In IE.Document.GetElementsByTagName("pre") ' belirli bir text isterseniz mesela

Range("A" & sat).Value = a.innerText

sat = sat + 1
Next
IE.Quit
End Sub

editedbycenk · 18 Ekim 2021

excelokyanus500' Alıntı:
Merhaba,

Size yardımcı olunmasını istiyorsanız öncelikli olarak --mahsuru yoksa-- link paylaşmanızda fayda var.
Çünkü websayfasının yapısı istenen verinin nasıl temin edileceğini belirler ve çoğu zaman değişkendir.
Mesela bir veriyi "id" ile çekersiniz yahut başka bir veriyi "class" adına göre yahut da veriniz bir "table"
ise farklı bir yöntem denersiniz.

Bazen hiç ayrıntıya girmeden sayfayı kopyala yapıştır komutları ile bu işi halledebilirsiniz.
Bazen excelin webten veri çekme özelliği size yardımcı olabilir.

Yani yollar değişkendir.

Örnek vermek için deneyiniz

Kod:

Sub dene() Dim IE Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.FullScreen = True IE.StatusBar = False IE.MenuBar = False IE.Toolbar = False IE.AddressBar = False IE.TheaterMode = False With IE .Top = 100 ' check if the propery names are correct .Left = 200 .Width = 1200 .Height = 950 End With IE.Navigate "https://www.excel.web.tr/threads/vba-ile-web-sayfasi-yazdirma.197188/" Do Until IE.ReadyState = 4: DoEvents: Loop Do While IE.Busy: DoEvents: Loop sat = 1 For Each a In IE.Document.GetElementsByTagName("div") ' div içindeki tüm tekstleri almak siterseniz Range("A" & sat).Value = a.innerText sat = sat + 1 Next IE.Quit End Sub

veya

Kod:

Sub dene2() Dim IE Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.FullScreen = True IE.StatusBar = False IE.MenuBar = False IE.Toolbar = False IE.AddressBar = False IE.TheaterMode = False With IE .Top = 100 .Left = 200 .Width = 1200 .Height = 950 End With IE.Navigate "https://www.excel.web.tr/threads/vba-ile-web-sayfasi-yazdirma.197188/" Do Until IE.ReadyState = 4: DoEvents: Loop Do While IE.Busy: DoEvents: Loop ' Set getir = IE.document.getElementById("SayfaKONU").innerText 'Id ile ilgili text isterseniz mesela sat = 1 For Each a In IE.Document.GetElementsByTagName("pre") ' belirli bir text isterseniz mesela Range("A" & sat).Value = a.innerText sat = sat + 1 Next IE.Quit End Sub

Merhaba hocam

Link paylaşmayı bende çok isterdim ama şirket bilgileri olduğu için paylaşamıyorum ama link bir pdf dosyası açtırıyor , uzantısı jsp göndermiş olduğunuz 2 kodu da denedim yine hata alıyorum linki bir internet explorer sayfasında açıyor orda sorun yok ama yazdırmıyor , ve çağırılan nesne istemcilerinden ayrılmış diye hata veriyor , kullandığım bilgisayar şirket bilgisayarı arkada bişeyler kapalı olabilir mi ?

editedbycenk · 18 Ekim 2021

Ve birde şu hatayı alıyorum sub dene2 kodunda

class does not support automation or does not support Expected interface

excelokyanus500 · 18 Ekim 2021

Sanırım sorunun kaynağını aşağıdaki linkten öğrenebilirsiniz.

VB6 hatası: 430 - Class does not support Automation or does not support expected interface - sinanilyas.com

Visual Basic 6 ile yazılmış ADO uygulamaları, Windows7 SP1 veya Windows Server 2008 R2 SP1 üzerinde derlendiğinde daha eski işletim sistemlerinde (...

www.sinanilyas.com

Not: Şirket bilgisayarında çalıştığınızı varsayarak gerekli ise teknik servisten bilgi almanızı ;
Teknik bilginiz yeterli değilse bilgisayara kesinlikle müdahale etmemenizi;
şiddetle öneririm.

editedbycenk · 2 Kasım 2021

Korhan Ayhan' Alıntı:
Deneyiniz.

Using a macro to open then print a webpage?

Hello all! I am trying to use a macro in Excel to open a website (the URL is a named range in a worksheet) and then print the web page. I am able to open the webpage with the following code: Sub View_Tech_Recalls() Set ie = CreateObject("InternetExplorer.Application") ie.navigate...

www.mrexcel.com

C++:

Option Explicit Sub View_Tech_Recalls() Dim ie As Object, TimeOutWebQuery As Byte, TimeOutTime As Double Set ie = CreateObject("InternetExplorer.Application") ie.navigate "https://www.excel.web.tr/threads/vba-ile-web-sayfasi-yazdirma.197188/#post-1102463" ie.StatusBar = False ie.Toolbar = True ie.Visible = True ie.Resizable = True ie.AddressBar = False TimeOutWebQuery = 5 TimeOutTime = DateAdd("s", TimeOutWebQuery, Now) Do Until ie.readyState = 4 DoEvents If Now > TimeOutTime Then ie.stop GoTo ErrorTimeOut End If Loop ie.ExecWB 6, 2 Application.Wait (Now + TimeValue("0:00:03")) ie.Quit ErrorTimeOut: Set ie = Nothing End Sub

Hocam merhaba bu kod çalıştı ama sayfa pdf olduğu içinmi bilmiyorum sayfayı açıp yazdırmadan kapatıyor , pdf olmayan sayfaları yazdırıyor

Korhan Ayhan · 2 Kasım 2021

Link paylaşma imkanınız varsa bizde deneme yapabiliriz.

editedbycenk · 2 Kasım 2021

Korhan Ayhan' Alıntı:
Link paylaşma imkanınız varsa bizde deneme yapabiliriz.

Örnek link

https://www.zebra.com/content/dam/zebra_new_ia/en-us/manuals/barcode-scanners/ls2208-product-reference-guide-en-us.pdf

Korhan Ayhan · 2 Kasım 2021

Şuan evdeyim. Evde yazıcım yok. Verdiğiniz linki yazıcı bağlı olmayan bir laptopta denediğimde kod sistemde yüklü olan pdf programının adını belirterek bir uyarı verdi. Yarın yazıcı olan bir yerde deneyip sonucu bildiririm.

Korhan Ayhan · 2 Kasım 2021

Bir de aklıma PDF dosyasını bilgisayara kaydedip yazdırma yöntemi geldi.

Bir deneyin belki sonuç alabilirsiniz.

C++:

Option Explicit

Sub Download_File_Then_Print()
    Dim My_Url As String
    Dim My_Http As Object
    Dim My_Stream As Object
    Dim File_Name As String
    Dim My_Service As Object
    Dim Activate_App As Variant
    Dim My_App As Object
   
    Set My_Http = CreateObject("Microsoft.XmlHttp")
    Set My_Stream = CreateObject("AdoDb.Stream")
   
    My_Url = "https://www.zebra.com/content/dam/zebra_new_ia/en-us/manuals/barcode-scanners/ls2208-product-reference-guide-en-us.pdf"
    File_Name = Environ("UserProfile") & "\Desktop\Deneme.pdf"

    My_Http.Open "Get", My_Url, False
    My_Http.Send

    My_Url = My_Http.ResponseBody
    My_Stream.Open
    My_Stream.Type = 1
    My_Stream.Write My_Http.ResponseBody
    My_Stream.SaveToFile (File_Name), 2
    My_Stream.Close
   
    CreateObject("Shell.Application").Namespace(0).ParseName(File_Name).InvokeVerb ("Print")
   
    Application.Wait Now + TimeSerial(0, 0, 3)
   
    Set My_Service = GetObject("winmgmts:")
    Set Activate_App = My_Service.ExecQuery("Select * From Win32_Process")
   
    For Each My_App In Activate_App
        If InStr(1, My_App.Name, "PDF") > 0 Then My_App.Terminate
    Next
   
    Kill File_Name
   
    MsgBox "PDF dosyası yazıcıya gönderilmiştir."
End Sub

editedbycenk · 2 Kasım 2021

Korhan Ayhan' Alıntı:

Bir de aklıma PDF dosyasını bilgisayara kaydedip yazdırma yöntemi geldi.

Bir deneyin belki sonuç alabilirsiniz.

C++:

Option Explicit

Sub Download_File_Then_Print()
    Dim My_Url As String
    Dim My_Http As Object
    Dim My_Stream As Object
    Dim File_Name As String
    Dim My_Service As Object
    Dim Activate_App As Variant
    Dim My_App As Object
  
    Set My_Http = CreateObject("Microsoft.XmlHttp")
    Set My_Stream = CreateObject("AdoDb.Stream")
  
    My_Url = "https://www.zebra.com/content/dam/zebra_new_ia/en-us/manuals/barcode-scanners/ls2208-product-reference-guide-en-us.pdf"
    File_Name = Environ("UserProfile") & "\Desktop\Deneme.pdf"

    My_Http.Open "Get", My_Url, False
    My_Http.Send

    My_Url = My_Http.ResponseBody
    My_Stream.Open
    My_Stream.Type = 1
    My_Stream.Write My_Http.ResponseBody
    My_Stream.SaveToFile (File_Name), 2
    My_Stream.Close
  
    CreateObject("Shell.Application").Namespace(0).ParseName(File_Name).InvokeVerb ("Print")
  
    Application.Wait Now + TimeSerial(0, 0, 3)
  
    Set My_Service = GetObject("winmgmts:")
    Set Activate_App = My_Service.ExecQuery("Select * From Win32_Process")
  
    For Each My_App In Activate_App
        If InStr(1, My_App.Name, "PDF") > 0 Then My_App.Terminate
    Next
  
    Kill File_Name
  
    MsgBox "PDF dosyası yazıcıya gönderilmiştir."
End Sub

Hocam peki bi önceki yazdığınız kodda döngünün içine vba ile ctrl p yapıp entera bastıktan sonra web sayfasını kapatmayı ekleyebilirmiyiz

VBA İLE WEB SAYFASI YAZDIRMA

editedbycenk

editedbycenk

yunus788

editedbycenk

Korhan Ayhan

Administrator

Using a macro to open then print a webpage?

editedbycenk

editedbycenk

Korhan Ayhan

Administrator

reosman

editedbycenk

excelokyanus500

editedbycenk

editedbycenk

excelokyanus500

VB6 hatası: 430 - Class does not support Automation or does not support expected interface - sinanilyas.com

editedbycenk

Using a macro to open then print a webpage?

Korhan Ayhan

Administrator

editedbycenk

Korhan Ayhan

Administrator

Korhan Ayhan

Administrator

editedbycenk