Vba Web Browser
I have a file which extracts employee entries when you put the employee code. Have created a form to show the progress % and estimated time for search.
In this form i have added a animation .gif file and it runs fine on my PC but not on any other PC as the .gif file is store on my desktop.
I want to store this .gif file on the workbook and any way i can set a path for the program to pick up the .gif file from the same excel workbook.
View Complete Thread with Replies
Related Forum Messages:
Refresh Web Browser
I am having problems refreshing my querytable.. I used the standard code that I found here in Ozgrid, it downloads the version, but when I changed it on the website, it still shows the old number. It does this until I refresh the website (via web browser). I thought the query table went to the site, and downloaded what was there, but I guess not? ...
Embed Web Browser In Sheet
i have a sheet that autogenerates a .csv file and uploads it into a webform. In order to do this I have to open an Internet Explorer window go to webpage and use the sendkye function, my code looks like this:
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
'Check connection til web loop!
If ie.ReadyState = 4 Then
ie.Visible = False
if I instead could EMBED the webbrowser into my sheet and then go to the upload site and upload the file directly from the sheet. I have some basic vba skills, but I have never worked with the embedded objects.
VBA Import From Web
Is there any way to change parts of a URL within a macro using the import from web function?
The import from web function as a macro is the following:
With ActiveSheet.QueryTables.Add(Connection:= _
I would like say the "4457" part to be dynamic. It can either change by user input, from another function..etc doesn't really matter. The problem is can this change? by string concatenation perhaps? or something else?
Import Web Page With VBA
I need to get VBA code to import a web page one at a time based on a condition. When one of the urls below has "1 mins to post", I want that page imported into a worksheet.
The pages require a login and here is the source code for login - "acctnum" and password - "zipcode". The name for "1 mins to post" is name ="MTP".
I would want to keep the page loaded until "MTP" = OFF. Then whenever the next URL goes to "1 mins to Post", load that web page and keep it loaded until "OFF" and so on.
This would need to continually scan through all of the following urls:
Import Data From The Web (VBA)
there is i website that i want to imoport data from it to my excel sheet using vba, but the poblem is that the website will need my username and password...
i search around for possible threads and i found a very close one but couldnt have it do the submit option. also i donot want it to show me the intenet explorer window. i just wantit to do these steps:
after clicking a button:
1-logon to the site using my user and password
2-redirecting to the report link and improt what ever is in that page
3- all this with out opening IE.
Public Declare Function ShowWindow Lib "user32" (ByVal lHwnd As Long, ByVal lCmdShow As Long) As Boolean
Private Sub LoginTone()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
.Navigate "http://s8.brono.com:80/mongol/fiona/index.php" ; this is the login address
Do While .busy And .readyState 4: DoEvents: Loop.......................
Display A Web Image Using VBA
I am using a macro to display an above 255 character image:
Dim URL As String
URL = Worksheets("Sheet1").Range("B4").Value
Is there any way of opening this in a specific part of the spreadsheet (say aligning with C5) rather than a separate web browser?
Connecting Between VBA Excel And Web Site
I have a some problem with connecting between VBA Excel and web site.
I wrote a macro to insert the data from excel but there is one problem with displaying the correct view.
I use this site to get the price of the bonds:
it is the site of russian exchange
First of all I write the ISIN code, for example RU000A0E6X12, in the "Quote Search" field and then press Enter for getting the data. After it I can choose the History information or Online from the last field in the left margin. I want to chose "History" and after it the dates from and till are appearing automatically. The automatization of it is my task. And I have only one problem in the end.
Object Browser (F2)
Is there any way to treat the VBA Object Browser with code?
For example: Put on a UserForm.Lable.Caption data from the Object Browser:
All Classes in MSForms, and all Members of MSForms 'CheckBox' class.
Getting Web Page Source (HTML Or XML) In VBA
I would like to retrieve contents of a web page, be it HTML or XML, into VBA variable!
Later, I would chop, cut, parse or extract the data I need.
Both importing as XML or WebQueries is unsatisfactory for a certain number of pages I need. XML has bad schema, WebQuery tells me it can't find any data.
I tried with WinHTTPRequest, but Excel gives me back error "undefined user type" in other words it doesn't recognize that object.
Basically I want the source of web page to become a string in my VBA code. In other words that would be replication of funcionallity of
Insert Hyperlink From Browser
I wondered if it would be possible to copy the url from the active page from my browser into Excel using VBA (using a private sub). Something like:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim url As String
'url = the url from my active tab in my browser
If Target.Column = 1 And Not IsEmpty(Target) Then
Target.Offset(, 1).Value = url
where e.g. the active url in my browser is http://www.mrexcel.com/forum/forumdisplay.php?f=10.
Close Browser Window
I'm relatively new to macro's. I have an excel workbook that draws information from an exported file from a website. When I do this I get an IE window open which is of variable name depending on the information I picked on the website. I am trying to create a macro that will close this new window on importing but leave the original website window where it is. The name is variable but has the same format e.g. "http://batch+report+info....." with the later address changing depending on the info selected. I tried using a an " If name.like" formula but am too new to macro's to know how to implement it.
Abnormal Decimal Conversion: Auto-import Statistics From The Web Via Web Query
I am auto-importing statistics from the web via web query. This information imported has a number in the form of a decimal stated as either x.1, or x.2. x.1 represents x-1/3 (one-third) and x.2 represents x-2/3 (two-thirds). I need to use these numbers in a calculation after importing them, but using x.1 or x.2 obviously does not give me accurate results as the numbers should actually be x.3333333 and x.6666666 respectively. What is the easiest way to convert the imported numbers to their actual decimals?...
Launching VNC Browser From Worksheet
I have a worksheet that is a graphical display of a call floor with its cubicles. I am able to pop up a box with many details about the workstation in the cubicle (see Display pop-up box when cell selected) for more details, and would now like to go further with this application.
Our practice is to use VNC to review the end users' screens when they call us for assistance; given that I know the machine name and IP address, how can I start a VNC browsing session for the target machine?
Web Query For Password Protected Web-sites
I am trying to import data into Excel from a webpage using the web query function; however, the webpage requires a login and password. I have the required login and password, but I cannot figure out how to make excel automatically input these into the correct fields and login in order to import the data.
Since I am trying to make all of our databases update automatically, I don't want to enter this info everyday when the macro runs.
Web Query Read The Web Address From A Cell
I have the following task
1. in sheet 1, column A starting A1 I have addresses of web pages. all of them are one and the same except the last digits. Sth like this
2. in sheet 2 I have to import the data from these web sites as it follows
from www.datapage.com/source1 starting from cell A1
from www.datapage.com/source2 starting from cell A101
from www.datapage.com/source3 starting from cell A201
The question: I am trying to write a Macro that tooks the address from sheet 1 cell A1 and import the data through web query using the address in the cell and import it in sheet 2 starting cell A1. Then loop and took the address from cell A1 in Sheet 1 and put it into sheet 2 cell A101 etc.
Pulling Data From Web Without Web Query
information from a website that does not allow web queries (or at least from Excel 2003).
I have to pull the latest data every Wednesday from this webpage: [url]
To make things even more complicated the name of the page changes every week as well (corresponding to the date).
Extracting Web Data From A Sub Web Page
I am using the "CreateObject("InternetExplorer.Application")" method to extract data from a webpage. This webpage is a sub page that I cannot find the data for, even after filtering through all the ".document.all(x)" items? Any ideas on how to obtain this "sub page" data, since there is other data that I need which is on the "main" page? I don't want to have to call up this sub page separately since I'm already seeing it (physically able to view it on the main page but not able to extract it) from the main page?
Web Style 'Back' Button VBA Code
I have been trying to get a back button to work on an 2003 excel document that works like a website.
In the web toolbar there is a facility to go back and forward (very much like using internet explorer). I want a button on the actual sheet that does this command. If i record a macro and click the web 'back' button it records the end result of the process, not the process itself -
eg if sheet 1 and sheet 2 link to sheet 3 and I click a hyperlink from sheet 1 to sheet 3 then create a back button on sheet 3 and record a macro by clicking on the web toolbar back button the macro records the end result - eg Application.Goto Reference:="Sheet1!R14C8". However if i then go to sheet 3 through sheet 2, the back button I created takes me to sheet 1 not back to sheet 2.
Anyone know the code I could use to make it actually go 'back' to the previous page?
i import a table from the internet through web query and i reformat the cells to suit my liking, but when i refresh the data the cell formatting goes back to how it started. how do i make it so it always keeps that same cell formatting?
I am trying to import some data of the web and have managed to make it work but it is very slow - 90secs per loop - am I doing something wrong or is it just that slow?
Dim InCellLoc As String
Dim InCellCol As String
Dim InCellRow As String
Dim NameValue As String
Dim AddressValue As String
Dim OutCellLoc As String
Dim OutCellLoc1 As String
Dim OutCellLoc2 As String
Dim OutCellCol As String
Dim OutCellCol1 As String
Dim OutCellCol2 As String
Dim OutCellRow As String
Import From Web
I have the tedious task of building a visitor database, i have a web page with over 300 records on it, each record containing information such as company name, address, phone number email and this is only the first web page i have to visit, that's already over 1000 copy and pastes.
I'm wondering if there is a way to just capture all of the information on the web page and then populate my excel spreadsheet with information falling under the appropriate headings.
I tried the method of right clicking on the web page and said import to excel, but as you can imagine this just resulted in all of the data appearing in one column and i would still have to move all the information around so it is not of much help.
Getting Web Data
if i could program a macro to download infromation from a website. I know about the "get web data" but my problem with that is that it doesn't get the whole table because in the site it is programed to show three months worth of data per page.
Follow this link, It will bring you to a table of historical stock data with the option of downloading the table to a workbook in CSV format at the bottom of the table. I want to know if i could program the macro to download the table using this option.
Save As Web Page
Hi, i am trying to save a range on Sheet1 as a web page. i have managed to save the entire workbook as a webpage but am struggling to get the right syntax for just the range on sheet1. when i do this manually i select the range, set the print area, then choose file-save as web page- and choose selection:print area or republish if i have done this before. i am not sure also where to add the directory i wish to save it to. the file name always changes, so i can either: use the name of the file or i can use the same file name that is entered into a cell (cell never changes). i hope this makes some sort of sense. here is the code i used to save the entire workbook
Saving Copy Of Web
I tried to implement many other Saveas macros into it. from other post and members. I can't seem to get it to work. As the macro is, It saves the copy to My Documents. But, I need it to save to the dierctory below. Any help will be appreciated.
',//Tom's-srv01sharedQC DocumentsCustomer Inspection Reports
Sub myBuildDupWB1() 'Static Inprocess
Dim sht As Object
Dim strMyNewWB$, strMyOldWB$
On Error GoTo myErr
strMyOldWB = ThisWorkbook.Name
strMyNewWB = InputBox("New Customer Part Name, below:", "Name Workbook!", "Rename Blank InProcess Op")...........
Refresh From Web With Delay
I can download my data from the web. I can set it to download every so many minutes. But, I have to select run on my vb program to complete calculations and put data in correct format/sheets. I am trying to put a delay/timer in the program so it will refresh on itself and I will not have to keep selecting program run. If I put this in program it appears to refresh in a timely manner however I do not get any data on the sheets ? I have tried the wait routine and the if now = time + routine
Getting Invalid Web Query
I've used a VBA procedure to pull stock price historical data from Yahoo. Something has changed something and now the procedure will not work. With a worksheet named 'Web Data', I execute the following procedure. I now get an error from Excel (2003) stating that "The file could not be accessed. Try one of the following: ...", and then "Invalid Web Query". Here is the code that I am using:
'e.g. pull Dow Jones data for Feb 14 thru Feb 15.
smo = 2 ' Feb
sda = 14 ' 14
syr = 7 ' 2007
emo = 2 ' Feb
eda = 15 ' 15
eyr = 7 ' 2007
fund = "^DJI"
.Connection = _
"URL;http:// finance.yahoo.com/q/hp?&a=" & smo - 1 & "&b=" & sda & "&c=" & syr _
& "&d=" & emo - 1 & "&e=" & eda & "&f=" & eyr & "&g=d&s=" & fund
Web Page Interaction
I would like to be able to turn the following worksheet in to an inspection scheduler. It already displays job information pertaining to the job & lot number entered into cells C2 & C3 in cells F2:F14. Now, I would like to write a script that will do the following...
If lets say I click on "Groundwork", it will know that I am trying to schedule a groundwork inspection for the permit number in cell F11, and it will know it needs to be scheduled through Fairfax County's website, because it says "FFX" in cell F2. (the only two counties I really deal with online are Loudoun & Fairfax...I'm not worried about the others). So it will then automatically jump to Fairfax County's website (links to the websites are in cells E22:E26), conduct the appropriate steps to schedule an inspection through that county, then kick back some sort of confirmation that it was scheduled. The same steps apply each time for each inspection type, but each county has their own steps....
Web Query Macro
I'm using this macro in order to bring some data to two cells.. it's currently working great...
With ActiveSheet.QueryTables.Add(Connection:= _
.Name = "fileStatus.jsp?transKey=GUS8301D&fileName=GUS8301DBN2AFH3M"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
However, as you can see from the text in bold i'm currently telling the url instead of bringing it from a cell with an url. I want the macro to be able to select the url from a cell.
I'm trying to use this solution, but i keep getting a Run-time erro ´5´:
Invalid procedure call or argument.
connstring = Range("GUS8301!B3").Value
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Web Query With QueryTables
I am having problems getting to work a web query in a VBA macro. The goal is simply to get a value retrieved from a web query into an excel cell.
The below code works well with standard html pages (like replacing the url with www.google.com). However, the page I want to retreive (a query at geonames.org that retreives an altitude value for given lattitude/longitude values) does not contain any HTML headers, but just a number in plain text. In this case the below query does not returns anything. I tried different formating options for the query but up to nownothing works.
Break Apart Web Query
I have managed to capture a table from a website and currently have it going to range"a1"
Set mytable = IeApp.document.getElementById("maindetail")
Sheets("sheet1").Range("b1").Value = IeApp.document.getElementById("maindetail").innerHTML
Application. ScreenUpdating = True
What Id like to do is breakapart this data, remove the html tags, and place each element of the table in its own cell (a1, a2,a3 etc.). Anybody have any ideas, I'm just not familiar enough with the IE DOM.
Web Query And Dates
I am using a macro to pull data from the intranet site. My macro works fine except that i should manually go to the code and change the date.
Is there a way where in it can automatically pick up todays date and fetch teh data accordingly.
Converting Web Imports
I have created a Workbook which uses imported data from a web page on a daily basis.
I require a macro code so daily and once only Imports done every day according to the variables in Sheet 3, I hope the code can reference from.
The data has date and times and the most important aspect the date is within the URL.
Each day is the same URL but with new current date.
The format for that date within the URL is: [url] ..
Deleting A Web Query
I have a spreadsheet (Excel 2003) containing multiple worksheets, one of these sheets obtains results from a Web Query. I need to forward the workbook to an external client, with the query results, but not the query itself. Is there a simple way to delete the query and preserve the results ?
Get Elements From Web Page
Dim struserID As String
Dim strPassword As String
Dim strUploadFile As String
Dim strQueryURL As String
Dim objIE As SHDocVw.InternetExplorer
Dim htmlDoc As MSHTML.HTMLDocument
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection
Set objIE = New SHDocVw.InternetExplorer
struserID = "xxxxxx"
strPassword = "abcdef"
strUploadFile = "C:Misc estupload.txt"
Code navigates to sign on page, enters userID and password, clicks on submit. The password used causes upload page to load. This all works ok. After upload page is loaded, the code does not enter either of the two following "for" routines.
Web Queries In Modules
I'm trying to produce a spreadsheet that pulls infomation from different web pages throughout the day. It needs to pull quite a large amount of information from different web pages hence I wanted to produce a subroutine which could be called with different variables for each web page, i.e. url, field, destination, etc.
To actually produce the query I recorded a macro and then used the code it produced. I then changed the URL to url, a string variable which holds the urls of the pages. The destion address was changed to destination, a range variable to store the destionation location, and the webTable was changed to table also a string variable to store the table number. This is shown below.
With ActiveSheet.QueryTables.Add(Connection:= _
url, Destination:= destination)
.Name = "q?s=%5EFTSE&m=L_137"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True.............................
Publish File On The Web
I developed a small program using Microsoft Office Excel 2007 and VBA. The program contains some user interface items such as command buttons and userforms for user input.
During the distribution of the program I realised that most users do not have Excel 2007 yet. When I try to convert the file into Excel 97/2003 it is not possible because I used features not available in this version.
I was wondering if there is any way of publishing the Excel file in the web. In this way Excel 2007 would exist in the server and the users could use the file directly from the server without needing Excel 2007 installed in their computers.
I tried to save the file as "Web page" or "Single File Web Page" but the "buttons" stopped working, I guess the VBA code is not saved..
Change Web Query
The spreadsheet I have designed retrieves stats and data from individual player pages and stores them in an excel workbook.
I have used 20 seperate web queries, to import the data for each of my players (from an online cricket simulation game). This works fine, but my problem is that I want to make it usable for other players.
Player pages are titled playerinfo.pl?playerid=1020, through to playerinfo.pl?playerid=1039.
Ideally Id like the user to enter his lowest playerid into a cell, and then create the web queries for that manager's players.
I'm not sure if this is a possible scenario, or if I need to use a repetition loop in VBA.
Im using Excel 2002.
Get Number From Web Page
I am trying to get a single number from a web query table without downloading the table to a worksheet. I would like to either turn the table into an array in vba or just extract one number from the table. In this case it would be the "This Week" result or array(2,2) position in the table.
I have tried messing around with the destination for the webquery object but cannot get it to work unless the destination references (directly or indirectly) a worksheet range.
Importing Web Data
I want to import data from the web into Excel, but the data I want come from the result of a query - I have to enter a few parameters and get the results. I would like to import these results into Excel but although I can enter the website for Excel to look at I cannot figure out how I can enter the parameters to generate the results.
Web Query Code
I am trying to import data from Yahoo, about half the time it works well, but the other half I get the Run-time error '1004' below.
Run-time error '1004':
The file could not be accessed. Try on of the following:
.. Make sure the specified folder exists.
.. Make sure the folder that contains the file is not read-only.
.. Make sure the file name does not contain any of the folloing charaters: < >
? [ ] : | or *
.. Make sure the file/path name doesn't contain more than 218
Dim QuerySheet As Worksheet
Dim DataSheet As Worksheet
Dim Symbol As String
Dim qurl As String
Dim nQuery As Name
Link To Web Page
I want to create a sheet where the weather is updated automatically. for example,
CITY TEMPERATURE PERCIPATATION
Toronto -9 20% rain
Montreal -20 40% rain
thats what it should look like or similar. The problem is I want to have a formula for the temperature where it gets an update from the internet. So everytime I open or refresh this sheet, it would change to whatever the website is.