View Single Post
 
Old 07-14-2014, 05:53 AM
elmnas elmnas is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Jul 2014
Posts: 6
elmnas is on a distinguished road
Default Copy webcontent to a document

Hello all VBA Members

I am trying to auotmate a process of word

I get lots of different wordjobs, they always have a job number, for example 741443
we have a webpage where we can see all active jobs, as we see both job numbers (741443)
and also an EP-number (E7295_EP2586715)

I want to copy this part of the EP-number (EP2586715) to a word document.

the word document is always in the folder called 741443.

my problem is, when there are several different jobs with different EP-numbers,
the macro need to copy the correct EP-Code from the webpage to the document.

here is a picture

how it looks like

Attachment 116359



Do have someone a solution for this?


here is a sample I did,
but the pastemethod doesn't work


HTML Code:
Sub CopyWebContent()
 
    
Dim IE As Object
Dim rng1 As Range
Dim thisdoc As Document
Dim newdoc As Document
Dim st
Set thisdoc = ActiveDocument
Set newdoc = Documents.Add
Documents(thisdoc).Activate
           
 
    
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate "tsq/"
        Do Until .ReadyState = 4: DoEvents:  Loop
        End With
        IE.ExecWB 17, 0 '// SelectAll
        IE.ExecWB 12, 2 '// Copy selection
     
   
               Selection.Paste
 
    
   
       Set rng1 = Selection.Range
 
       '  IE.Quit
        
    End Sub

Thank you in advance all VBA Members

Cheers!

Daniel
Reply With Quote