Many lines on my sheet have the following text in col B.
****** http-equiv="Content-Type" content="text/html; charset=UTF-8"> ****** name="generator" content="http://www.movabletype.org/"> Church Marketing Sucks: Evangelism & Outreach Archives
Is there a way to extract all the text or words between the and tags and put the extracted text into col D?
I have previously used the following code to successfully pull out IE webpage source code for string manipulation.
Its a crude example to demonstrate the principle:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public IE As Object
Sub Sample()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
[Code] ......
However when I substitute in a Google websites address into the IE.Navigate command, the code runs to the "Source_Code = IE.document ...." line then flags up a Microsoft Visual Basic error. "Run-time error '438': Object doesn't support this property or method"
The webpage that I am trying to access is a confidential company site, so you won't be able to access it yourself, but starts with [URL] ......
The one thing that I have noticed about this website is the Privacy Report icon in the lower right status window (Picture of an eye with a restricted symbol in front). I don't know whether this is the cause of my problem, or purely an incidental observation.
Is there something peculiar with Google sites that means that the source code cannot be extracted in general, or is this an issue specific to my site ? Does the Privacy Report icon have any relevance, and if so how do I switch that off ?
Using :
MS Excel 2010
IE Explorer 8.0
I am trying to extract the data values from the references Bundesbank page and get them into a worksheet so I can manipulate from there. What I have is below.
Code:
Sub Get_Data()
Dim IE As New InternetExplorer
IE.Visible = False
[Code] .........
I am attempting to extract a particular piece of data from a webpage. I was not able to use a webquery because the data can only be reached by searching an online database and the URL remains static throughout this process.
http://gisims2.co.miami-dade.fl.us/myhome/proptext.asp
The data of interest is contained in a simple, 2-column table with item descriptions in the first column and item values in the second. The code below is my closest attempt. I am attempting to look through the innertext of all the tables on the results page and see if any contain the text "CLUC", which is the description of the data I'm trying to retrieve. The code never finds any qualifying tables.
Sub PropInfo()
Dim appIE As SHDocVw.InternetExplorer
Set appIE = New SHDocVw.InternetExplorer
Dim varTables, varTable
Dim varRows, varRow
Dim varCells, varCell
Dim lngRow As Long, lngColumn As Long
'OPEN INTERNET EXPLORER, GO TO WEBPAGE
appIE.Visible = True
appIE.navigate "http://gisims2.miamidade.gov/MyHome/proptext.asp"
Do While appIE.Busy: DoEvents: Loop
Do While appIE.readyState <> 4: DoEvents: Loop.........................
I have a text string with 3 data to be extracted and then split throu range, but only specific parts is needed.
string is like that:
Name Surname - Number : ################ - Exp : YYMM - Centre etc etc....
Lets say its allways happens in cell A3, for example:
Adrian Kukuwas - Number : 1235467890123456 - Exp: 1009 - Centre... I would like a macro:
*that runs only if string starts with a letter, then if so
*takes Adrian Kukuwas to cell D3
*takes 1009 (the exp) to B3 and makes it look like 09 10 (or 09_10)
*in A3 leaving only the number 1235467890123456 text formated (sometimes the copy source formats the cell for bad)
I need to check a website daily to see if a link has been updated. If it has been updated, the beginning of the link changes to a different date. Example: today link is www.10212009dave.com and tomorrow link may be www.10222009dave.com. Lets say the link is on www.gugg.com. The link does not change everyday, but I think a good way to see if it has been updated is to search through the source code in the html for that link.
Thus I would put www.10212009dave.com into cell A1 and tell excel to search the source code on www.gugg.com, and if the contents of cell A1 is NOT found, I'd display a message box stating the link has been updated.
I am trying to log a specific portion of code from a webpage. The line of code looks like this:
View Details
I need to extract the userid protion, the part between "=" and "'target...." and then
black.blue.red.yellow.green.white
I'd like to extract just "blue.red.yellow.green" to the following spreadsheet column, keeping the intermediate dots, but getting rid of the first/last words and their succeeding or preceding dots.
I've tried using RIGHT, LEFT, MID formulas unsuccessfully
I have a few hundred of these divs, that I need sort and filter.
I would like to remove ALL HTML and be only left with the following:
Example Name = KeithEmail = keith@example.comStore = Store 1 (This only has 2 options. Store 1, Store 2)
All of the below code is in an individual single cell, so there are about 400 cells
HTML Code:
<div userid=""286"">
<div id=""694"">
<h1 style=""display:none"">Keith</h1>
[Code]....
I have managed to open an HTML file from IE and start importing some data from the HTML source to an excel table.
The problem is that I need to get access to some information in a function that is in the HTML header and I do not know the syntax to use.
I am defining the HTML document using ".Document.body.innerHTML". But I need to find the syntax that is equivalent to ".Document.head.innerHTML".
With HTMLdoc
.Visible = True
.Navigate PageString
Do Until .ReadyState = 4: DoEvents: Loop
End With
How do I write a macro to extract the last two words of a cell?
View 10 Replies View RelatedI'm running 2007, and have a mailing list that is setup - A1 = text(full name of company), A2 = text(full street address, city, state, zip) NO PUNCTUATION.
I have been able to separate each word for the address line, but this leaves me with many different length addresses spread out over different cells, so taking just the city state and zip is not feasible in large numbers. I have over 10,000 of these listed down column A1.
I need to be able to extract city, state, and zip, (There is no punctuation in the address line)and put them all in one cell, for the third line of the address box. I need them to cut from the source, also - leaving the source only the street address.
I have many cells that have full names in them. They are currently formatted as follows; last name, first name, middle name. I am trying to extract only the last name and first name (keeping the comma in between them) and drop the middle name.
View 9 Replies View Relatedhow do i extract the last 2 words in a cell?
ex. 8137 Plaza Amber, Ortigas Center, Pasig City
how do get just pasig city?
i have a column where the sponsor has a name of a race and i wish to remove the sponsors name and replace it with something of the sentence
for example
Barton And Guestier Top Novices' Hurdle Class A Grade 2
i wish to just locate the Novices' Hurdle part and change that particual cell to nov hurdle without the sponsors name
is it easy to extract this info
I am using the extract words function outline here [url]
I copied and pasted the function into a new sub and deleted the sub module1 and the end sub to make sure it is it own function I can call. I have called it in another macro I wrote and when I run the macro it bugs out at the first if statement. The code it has a problem with the Get_Word code below. It throws a "Run-time error: '1004': unable to get the Find property of the WorksheetFunction class."...
I have been using following code to extract all upper case words in a string but the problem is I can not extract words which are proper. For example
This is GOOD
Present output: GOOD
Desired Output: This GOOD
[Code] ....
What can be suitable modification in this case?
i need to extract only the UPPER case words from a column and paste them in the adjacent column.
Is there any formula or vba routine for it.
Ex:
COL A contains the following:
FIRST
second
THIRD
FOURTH
fifth
sixth
SEVENTH
......and so on.
i need to extract only the Letters or words which are in total Uppercase and paste them in the next column ..i.e. COLUMN B..
I am trying to extract numbers after a specific text in a text, for eg :
abc SN 12345 xyz
edf SN No. 456 mno
As per above, i want to extract any numbers afters "SN". the numbers can be vary in digits i.e. it can be 3 digit numbers or 4 or 6. Also, at times there is some other text in between (like SN No.) numbers and search word (i.e. SN)
Any formula to get result as "12345" and "456".
I am looking for a formula that would extract uppercase words from a cell. I have cells containing this kind of sentences:
"FROZEN PRODUCTS;Frozen avocado;FROZEN FISH;SweeT things;"
so I started with this Macro to extract uppercases and punctuation:
Public Function majuscules(zone)
Dim sel As Object
Dim i As Integer
Application.Volatile
For Each sel In zone
[Code] ........
It works pretty well but gives all the uppercases, and what I want is only those of words fully in upper.
Is there a way to tweak this formula so it gives all the uppers that touch another upper.
In the example case, it should return:
"FROZEN PRODUCTS; ;FROZEN FISH; "
The little cherry on the cake would be if it could give me:
"FROZEN PRODUCTS; FROZEN FISH"
If I have a cell filled with any number of given names (no surnames) (e.g. John Peter William Suffolk - yea, 4 names!, or Harry Murray (2)), how can I extract the first letter of each name (i.e., the first letter following a space) and place that in another cell? Say A1 has the names, B1 has the surname - I want this in C1. In D1 I'll use a function like Text or concatenate to link C1 and B1.
View 2 Replies View RelatedWhen I copy from Excel 2003 (values & formulas) and paste special into Excel 2007 i get the option screen to select unicode text,sylk etc instead of the other screen with the option of values,formulas,formats etc.How can I select the option for value,formulas?
Sorry cannot attach a screen shot as it is above the allowed limit.
I have a column of address data that looks like
1924 ogden place blvd west unrulu
982 n aoto st apt #1234 easrlr
...
and I'd like to use a couple of formulas in the two columns to the right of this data
1st column:a formula to obtain the number of words in a cell
2nd column:a formula to extract the last n words from a cell (ex. the last 2 words)
so that the columns would have as their results
6 west unrulu
7 #1234 easrlr
I would need to get HTML source code from any given page. I know how to open a HTML page from Excel and I can do it with VBA, but how to get for example this page's source code?
I would start with making a sub that takes a string (the address) as an input parameter and finish with saving the source code of that address as an text file like c:code.txt
So something like
Dim webaddress as string
Sub GetSourceCode(webaddress)
'then some code to save the source code
End Sub
I need vba code to open a HTML file when i click a button in microsoft excel.
View 2 Replies View RelatedI need to extract all instances of words that have format xnnnnnn, where x is an alpha character (letter of alphabet, to be precise) and nnnnnn are numbers. The words could something like u435586. The problem is I do not know how many instances of these words are in the string. The entire string is contained in a cell. A sample string could be something like:
SMNTv922970;#1283;#SMNT 433925;#1284;#SQRS 003417;#1285;#SQRSp047683;#1286;#SMNT 6132451;#1287;#SQRSw3145627;#1288
and the end result should be
v922970 t433925 t003417 p047683 t6132451 w3145627
The words are preceded by the character "" which might facilitate the search.
I have received several hundred "Excel" data file dumps from an unspecified corporate database ( SAP? ). They are nominally spreadsheets, that is they are tables of mixed data that Excel recognizes, as they are exported from the database as such.
I'd like to walk a directory containing these files, and only these files, open each in turn save them as proper Excel files and close them. The end goal is to import these tables into a Access database, but Access doesn't recognize them either. I also need to repair values in one field which is easier to accomplish in Excel.
Unfortunately, opening the file generates an error I've been unable to trap, due to the fact the excel thinks its an HTML file, which it is, and wants me to verify that I do want to open it. Similarly, I receive a message when I try to save the file that requires me to nominate an acceptable Excel file type, which I can do in code.
Taking advantage of csv files and importing into websites. Basically I have a html code in a cell which needs to pick out content from different cells in the same row. Is that possible?
<a href="/signup?name=A2&email=B2">Go</a>
So the A2 and B2 would be contents of their respective cells. Tried out a few things but kept getting errors.
What i was thinking of trying to do is. I am sending a HTML E_Mail from vba. i have a string that contains the HTML Code looks like
View 2 Replies View RelatedI have a function that locates a table on a webpage and pulls the html code into one cell in a worksheet. Basically we can call this one cell a text file. I need to parse through this text file (cell A1) to create a table. This text file only has info for 1 table, the table always has 12 columns, the rows are variable. I would like it to then write back this parsed text file back into excel as a table, say starting in cell A2 on the same worksheet.
View 9 Replies View Related