vba - ejemplos - visual basic excel 2016 mac

Vb Script o código VBA para copiar el contenido de una página web a una hoja de Word/Excel

Question

Posible duplicado:
Extrae valores de HTML TD y Tr

Necesito copiar los contenidos de una página web a una hoja de Word / Excel usando VBA o VB Script (si agiliza el uso de cualquier lenguaje de programación).

Entonces, si le doy la ruta de una página web, entonces el sistema necesita copiar los contenidos de una página web y escribirla en un archivo Word o Excel.

Answer 1

Por favor, publique lo que ya tiene la próxima vez, tengo 2 soluciones, elija la que mejor se adapte a sus necesidades, aquí la que usa la palabra solicitada

Option Explicit
''Just change these two lines
Const HTMLFileIn="http://.com/questions/10782976/disable-error-in-vbs"
Const DocFileOut="c:/newfile.doc"

Dim MyWord,oIE
set MyWord=CreateObject("Word.Document") 
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate HTMLFileIn
Wscript.Sleep 500
oIE.document.body.createTextRange.execCommand("Copy")
Wscript.Sleep 500
MyWord.Content.Paste
MyWord.SaveAs DocFileOut
MyWord.Close
oIE.Quit
Set oIE = Nothing
set MyWord = Nothing 
Wscript.Echo HTMLFileIn & " is now saved as " & DocFileOut

Sub wait
  Wscript.Sleep 500
  While oIE.busy
    Wscript.Sleep 1000
  Wend
  While oIE.Document.readyState <> "complete"
    Wscript.Sleep 1000
  Wend
End Sub

Si solo quieres ver el html, aquí está la solución más simple

url = "http://.com/questions/10782976/disable-error-in-vbs"
set xml = createobject("msxml2.serverxmlhttp.6.0")
with xml
  .open "get", url, false
  .send
  wscript.echo .responsetext
end with

Answer 2

Ver mi otra respuesta que usa palabra. Y aquí otra técnica y un guardar como HTML

function download(sFileURL, sLocation, async)
  set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  objXMLHTTP.open "GET", sFileURL, async
  on error resume next
  objXMLHTTP.send()
  if err.number = 0 then
    do until objXMLHTTP.Status = 200
      wscript.echo objXMLHTTP.Status
      wcript.sleep(200)
    loop
    if objXMLHTTP.Status = 200 Then
      set objADOStream = CreateObject("ADODB.Stream")
      objADOStream.Open
      objADOStream.Type = 1
      objADOStream.Write objXMLHTTP.ResponseBody
      objADOStream.Position = 0    
      set objFSO = Createobject("Scripting.FileSystemObject")
      If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation
      Set objFSO = Nothing
      objADOStream.SaveToFile sLocation
      objADOStream.Close
      set objADOStream = Nothing
      download = true
    end if
  else
    download = false
  end if
  set objXMLHTTP = Nothing
end function

if download("http://.com/questions/10782976/disable-error-in-vbs", "question.html", false) then
  wscript.echo "download ok"
else
  wscript.echo "download nok"
end if