html - How to get META keywords content with VBA from source code in an EXCEL file -

-

i have download source code of several hundred websites excel file (for example cells(1, 1) in worksheets 1) , extract content of of meta tag keywords in let's cells(1, 2).

for downloading use following code in vba:

dim htm object set htm = createobject("htmlfile") url = "https://www.insolvenzbekanntmachungen.de/cgi-bin/bl_aufruf.pl?phpsessid=8ecbeb942c887974468b9010531fc7ab&datei=gerichte/nw/agkoeln/16/0071_in00181_16/2016_06_10__11_53_26_anordnung_sicherungsmassnahmen.htm" createobject("msxml2.xmlhttp")     .open "get", url, false     .send     htm.body.innerhtml = .responsetext     cells(1, 1) = .responsetext end

i've found following code on website but, unfortunately, i'm unable adapt solve problem:

sub getdata() dim ie new internetexplorer dim str string dim wk worksheet dim webpage new htmldocument dim item htmlhtmlelement  set wk = worksheets(1) str = "https://www.insolvenzbekanntmachungen.de/cgi-bin/bl_aufruf.pl?phpsessid=8ecbeb942c887974468b9010531fc7ab&datei=gerichte/nw/agkoeln/16/0071_in00181_16/2016_06_10__11_53_26_anordnung_sicherungsmassnahmen.htm" ie.visible = true  ie.navigate str      doevents loop until ie.readystate = readystate_complete   'find proper meta element -------------- const meta_tag string = "meta" const meta_name string = "keywords" dim doc htmldocument dim metaelements object dim element object dim kwd string   set doc = ie.document set metaelements = doc.all.tags(meta_tag)  each element in metaelements     if element.name = meta_name         kwd = element.content     end if next  msgbox kwd

end sub

i think have modify line, don't know how:

set doc = ie.document

can please me out?

embed webrowsercontrol excel spreadsheet or userform
how add webrowser excel
set references html object library
how add vba references – internet controls, html object library

grab greg truby's code post webbroswer control

you'll have access document object model (dom). expose of htmlelements properties , event's

option explicit  private withevents htmdocument htmldocument private withevents mybutton htmlbuttonelement  private function mybutton_onclick() boolean     msgbox "sombody click mybutton on webbrowser1" end function  private sub webbrowser1_navigatecomplete2(byval pdisp object, url variant)     dim atags hyperlinks      until .readystate = readystate_complete         doevents     loop      set mybutton = htmdocument.getelementbyid("mybuttonid")     set htmdocument = webbrowser1.document     set atags = htmdocument.getelementsbytagname("a") end sub

google web api, hta, (mdn){https://developer.mozilla.org/en-us/docs/web/api} , if stuck try refactor javascript code vbscript. it's


Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

Using django-mptt to get only the categories that have items -

-
sample structure: all uppercase: category mixed case: item root ├── books │   ├── fiction │   │   └── classics │   └── non-fiction ├── clothing └── electronics ├── laptops ├── phones │   ├── apple │   │   ├── iphone 6 │   │   ├── iphone 6 plus │   │   ├── iphone 6s │   │   └── iphone 6s plus │   ├── motorola │   │   ├── moto g4 │   │   ├── moto g4 play │   │   ├── moto g4 plus │   │   └── moto x │   └── samsung └── tablets └── apple i'm trying have index page show "electronics" category. "clothing" category shouldn't show since it's empty , "books" category shouldn't show either since, although has child categories, child categories don't have items. similarly, "electronics" page should show "phones" category. "laptops" category shouldn't show since it's empty , "tablets" category shouldn't show either since...
Read more