Joel -
Again, many thanks for your response, and on a Sunday, too!

I will be learning Access soon, and converting the App may be worth the
effort. While trying to be brief, the overall application does not call for
shared access to the same data in a way where Access would be preferred over
what Excel can provide.

The business flow of the data requires that, should a district manager
need revisions from one of its offices, the office re-submits the data and a
re-summarization @ district level occurs after new workbooks are sent.

I appreciate the thought and time you put into this.


--
Neal Z


"joel" wrote:

Belwo is a simple program I wrote for accessing the web. It uses the
DoEvents. the Internet Explorer Library functions are part of VBA language.
FireFox is not part of the VBA standard Library functions You would need a
addin to be able to use FireFox or use Shortcut Keys to access firefox. I
don't think you really want to use firefox because all your uses would need
to install FireFox to use your addin.

I don't recommend using Excel as a multi-user database. This is better done
with Access as the database and use Excel to upload and download data from
the database. Access is designed to allow multiple users to change data
simultaneously. Access has the preper locks to prevent the database from
getting corrupted or two users trying to write the same data at the same
time. Excel is more user friendly and is a good front end to the database.

All microsoft office products have the same file structure consisting of
documents, tables, graphs, pictures and these objects are stored exactlly the
same whether you use Access, Excel, power point, Visio. Only the application
is diferent and in VBA you can easily modifiy an Access macro to use in excel
with very minor changes.

You can acces Web data using the internet explorer code I provided, or
perform a webquery, or open an application (Access, or excel) conecting to
the database. You didn't say how the district manager is posting the data on
the web so I can't tell which is the best method. You also have the choice
of ADO or DAO access with a database. ADO and DAO can be used with excel
workbooks along with access databases. You can even read and write data to
an excel workbook without opening the workbook.

Sub GetZipCodes()


ZIPCODE = InputBox("Enter 5 digit zipcode : ")

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

URL = "http://zip4.usps.com/zip4/citytown_zip.jsp"

'get web page
IE.Navigate2 URL
Do While IE.readyState < 4
DoEvents
Loop

Do While IE.busy = True
DoEvents
Loop
Set Form = IE.document.getElementsByTagname("Form")

Set zip5 = IE.document.getElementById("zip5")
zip5.Value = ZIPCODE


Set ZipCodebutton = Form(0).onsubmit

Form(0).submit
Do While IE.busy = True
DoEvents
Loop

Set Table = IE.document.getElementsByTagname("Table")
Location = Table(0).Rows(2).innertext
IE.Quit
MsgBox ("Zip code = " & ZIPCODE & " City/State = " & Location)


End Sub



"Neal Zimm" wrote:

Joel -
Thanks for the answer, and there's a few follow up couple of questions
with the following background.

The code is part of an addin I'm building (on spec, I'm not an employee of
the company) where offices within a district upload a workbook to a website
and the district manager downloads, then summarizes them on the district
computer.

1. I can't really tell if your IE code is within my Website call, or
following it. Which is it? My guess is within.

2. I had thought about trying to automate the downloads to the district
computer, but after looking at the website's html source (about which I know
little, and I know nothing about xml) this function seemed well beyond my
ability to code. I figure since the overall flow of data will be much
speeded up that a manual download process is OK.
Your thoughts on the above?

3. Your example for IE raises this question, where do I find the info
about "readystate", if by chance the district office is using another
browser, like FireFox as I do?

thanks again,
Neal




--
Neal Z


"joel" wrote:

Try adding the following:

DoEvents

The DoEvents will allow excel to break while an external event occurs like
getting the data from the website.

Usually I use code like this

'get web page
IE.Navigate2 URL
Do While IE.readyState < 4
DoEvents
Loop

Do While IE.busy = True
DoEvents
Loop

"Neal Zimm" wrote:

Hi All,
Below are the final pieces of a Sub where user gets to a website to upload
a workbook.

My first time in getting to a website within VBA.

In testing, getting to the site in VBA works fine, BUT the last msgbox
displays before the work is done @ the site. I guess VBA does not
automatically wait until website call is exited to resume code execution.

I don't have a clue how I can "delay" test message two until the user
leaves the site and comes back to Excel(if such a thing is possible.)

Test message two does not rely on or need any info from the work done @
the Website.

Thanks, Neal Z

'Code starts

MsgBox "Test Message One"


Call Website_GoTo(sFindCd, AAscAddIn)

'key lines in above Website call
'If Not ParmCellRng Is Nothing Then
' ParmCellRng.Hyperlinks(1).Follow NewWindow:=True
'Else
' MsgBox sFindCd & " sFindCd for Website NOT FOUND. "
' End
'End If
'End Sub


MsgBox "Test Message Two"

End Sub
--
Neal Z