This is a follow up to an earlier post about web queries
I need to be able to clean out my directory :
"C:Documents and Settings" & Environ("UserName") & "Local SettingsTemporary Internet Files"
But nothing I've tried seems to work.
The kill command doesn't appear to work with wildcards... is there a way I can loop through the directory and delete the files one by one?
I have a VBA application that uses the IE Application object many many times through a loop, and then repeats. So basically it is running continuously, and opening invisible IE window every few seconds.
I have code in there that 'kills' all IE instances between each iteration so that the number of windows doesn't pile up, but after awhile the temporary internet files, cookies, and history build up too.
Is there any VBA code that will clear those three things out?
When I run a webquery to download information from online I have found the common 1004 error to occur very often however I have found that if I delete my temporary internet files prior to running the webquery, this problem does not occur. I therefore require an automated function to delete the temporary internet files however the simple 'Kill' statement does not seem to work.
View 5 Replies View RelatedIn Excel 2007, Hyperlinks in cells pointing to jpg files in a subfolder display with internet explorer. On my WinXP/Intnernet Explorer 8/Office 2007 system these links work fine.
When sending the excel and jpg files to another person with Win7/Office 10, jpg hyperlinks work and launch Internet Explorer but come up blank. (Hyperlinks to PDF files work fine and show up in Acrobat, just the jpg's come up blank in Explorer.)
Questions:
What is causing this, a setting in Explorer/Win7 or Excel?
Can I change Excel hyperlink default software to use something other than Explorer to display the jpg files?
I've got these command lines I'm using to delete some specific files.
However when running the code, I get some message boxes popping up to ask if I want to save the file.
I have to delete data from D15 to AZ129, D168 to AZ282, D312 to AZ426 in 46 excel files, saved in the same folder. I go through the process manually by opening each file and then deleting data.
View 14 Replies View RelatedI'm new to this forum and to VBA
First-off, I'm using Excel 2003 SP3.
The setup: A software application I regularly use produces csv data files (in this case approx 300 files). These I have converted to xls format using a separate macro. The files are in one folder and named as follows eg
G1 18800.xls
G1 18802.xls
G2 18975.xls
G3 19881.xls
G3 19990.xls
G5 19990.xls
etc
The files contain the following data:
DATE TIME VALUE STEPS EXCL ACCEL
01-Oct-03 08:00 0 0 FALSE 0
01-Oct-03 08:01 0 0 FALSE 0
01-Oct-03 08:02 0 0 FALSE 0
01-Oct-03 08:03 0 0 FALSE 0
01-Oct-03 08:04 757 20 FALSE 0.18
01-Oct-03 08:05 1714 32 FALSE 0.44
01-Oct-03 08:06 1524 32 FALSE 0.39
01-Oct-03 08:07 1665 45 FALSE 0.47
01-Oct-03 08:08 1644 42 FALSE 0.46
01-Oct-03 08:09 263 8 FALSE 0.06
etc
I then created a macro using code I sourced from the internet, and included some addtional commands (filename, copy/paste). See below. This macro opens the all the xls data files in the folder and copies the relevant data to an analysis workbook [Analysis sheet, Results sheet, Master sheet] ie the data is copied from the data file and pasted into the Analysis worksheet. Then the results are copied from the Results sheet to the Master sheet. So far so everything works.
My problem is this: I'm stumped at how to delete rows from the xls data files before running the analysis workbook and macro. In other words, after converting the csv files to xls format I need to clean the xls data files.
I have a separate xls file with criteria data in two columns:
FileName Date
G1 18800 06-Oct-03
G1 18801 02-Oct-03
G1 18801 03-Oct-03
G1 18801 05-Oct-03
G2 18795 14-Oct-03
G2 18795 15-Oct-03
G2 18795 16-Oct-03
G2 18795 17-Oct-03
etc
The rows in a particular data file, with dates that are not present in the Criteria workbook must be deleted. This to be done for every data file in the folder. Also, I need to exclude rows for specific time periods eg 12H00AM - 04H00AM from all the files irrespective of date.
the code needed [should a separate macro be run or can code be placed within the present macro?]. I've tried looking for something similar on the internet, but my requirements seem too customized to be able to adapt the code that I found. And of course this is waaaay above my present skill level!
Option Explicit
Sub CopyPaste()
'This code opens up data files (xls) in a specified folder and copies data A1:G17281 to an Analysis workbook (Analysis sheet).
'The data from the Results sheet is then copied to the Master sheet.
Dim wkbDest As Workbook
Dim wksDest As Worksheet
Dim wkbSource As Workbook
Dim wksSource As Worksheet
Dim MyPath As String
Dim MyFile As String
[Code]...
I'm trying to create a new worksheet just in memory.
Private Sub test()
Dim wsheet As New Worksheet
Dim a As Variant
a = ActiveSheet. Range("A1").Value
wsheet.Range("A1").Value = a
End Sub
When I run this, the like "wsheet.Range("A1").Value = a" gives the error <Class does not support automation or does not support extended interfaces. I could use that vitual worksheet (I call) to do functions like sorting filtering and other things without affecting the actual data, and get only the results. Is there a way to create such virtual worksheets.
When looking at a spreadsheet with many columns, it would be nice of the row of the cell I have selected would remain highlighted in yellow, so that as I scroll across rows it's easy to view the data associated with the selected cell. Of course, if I select another cell, I would want the highlighting to change to THAT row. I'm guessing this would have to be in a this.workbook change event.
View 9 Replies View RelatedI have a workbook change event that when fired checks criteria to see that the sheet is complete. If not complete, the user must complete information on the sheet before continuing. The problem is that some of the "stuff" the user must do requires macros that fire and gain access to other sheets. Thus the "trap" I have set to restrict the user to just the one sheet has backfired on me restricting the user to just the one sheet. Is there a way that the workbook change event (or any other workbook event) be temporarily disabled until activated again?
View 2 Replies View RelatedBelow is the code I currently use to do the following which creates service reports.
When you click on the command button you can choose any XML file you want to import. This file is copied to a temporary worksheet where i selectively choose cells to populate textbox's which later populate my reports. What I want to do is the same exact thing but with a text file. Not all text files are the same length so it needs to be able to have a range. Here's my working code.
For Each SheetName In Array("Maintenance Data Sheet")
With Sheets(SheetName)
.Range("B127") = ""
.Range("U127") = ""
.Range("AJ127") = ""
.Range("AV127") = ""
.Range("AY124") = ""
[Code]...
Cancel:
MsgBox "No XML Selected"
End Sub
I have a spreadsheet representing a month where I am trying to figure out different scenarios for employees. One scenario is that an employee could have to move to a temporary position. In that case, I need to calculate the salary payments to temporary employees in a particular work unit. I've tried several different approaches to this problem, but am still getting the error.
One method has been using this sumproduct formula:
how can I login to a website using vba. I googled many examples but still failed.
View 9 Replies View RelatedI am trying to edit the Copy menus so that they only paste values. I have the following code in the workbook object:
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
Application. CommandBars("Edit").Controls.Item("Paste").OnAction = "New_paste"
Application.CommandBars(" Cell").Controls.Item("Paste").OnAction = "New_paste"
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
Application.CommandBars(1).Reset
End Sub
and this code in a module:.........
The module code is however bringing up an error message 'User-defined not defined' and I am not sure why.
I would like to run a spreadsheet on one machine and watch it on another machine across the internet. either excel to excel or excel to web page the data is live and changing so i would rather not have a web page i have to refresh all the time
i thought excel to excel would be the cleanest way. how can i achieve this
I want to write a piece of code to go to some webpage(URL in some excel cell) and then copy all the text on the page and paste to some other cell in the same worksheet.
I know I can open IE using VBA(Excel 2003),but is it possible to get everything on the IE window into the clipboard and then paste into any of the excel cells?
I want to automate few steps,
Step 1 : click on button in Internet explorer1(IE1) which inturn opens Internet explorer2(IE2).
Step 2 : in IE2 i want to enter some value in textbox and click in "go" button.
Managed to get step 1 some how, need to proceed futher with step 2 given above
Private Sub IE_Autiomation()
Dim i As Long
Dim IE As Object
Dim objElement As Object
Dim objCollection As Object
Set IE = CreateObject("InternetExplorer.Application")
[Code] .........
I am trying to automate a website which I use for daily office related work. I am navigating the website, selecting some options and clicking on download button using vba code. When I click on download it opens a new internet page. Now I have to click one more hyperlink on that newly opened internet page. How to do that?
View 1 Replies View RelatedI have a question with regards to a file on the internet hyperlinks, in which the file name (not the path) is subject to change. eg. [URL] to [URL]. is there a way to set the hyperlink in that if the filename changes slightly like the example that the hyperlink will still work?
View 3 Replies View RelatedI am trying to use Excel VBA to conduct a transaction automatically.So far,I managed to get all the required input in.Now,I need to click the "Submit" Button.
I was thinking of using the InternetExlorer.Document.Links(x).Title to search for the link of the "Submit" button and then use the .Navigate method to proceed to the link.
But when I wrote and ran the :
InternetExlorer.Document.Links(x).Title
i get the following mesage:
"Run Time Error 98
A property or method cannot include a reference to a private object ,either as an argument or as a return value "
I have a macro that opens a web page, copies data from the page, then paste the data into a worksheet in excel. All that works just fine. however I cannot figure out how to close the connection to the web after I copy the data
View 5 Replies View RelatedIf Excel VBA can let Internet Explorer quit if it have been running when you open excel workbook?
View 9 Replies View RelatedI have tried to open an internet page usin excel in order to get some information, for this I wrote the following code which doesn't work:
Dim i As Integer
For i = 2 To 3000
Workbooks.Open Filename:="http://www.anm.ro/anm/anm_maint.asp?anmPage=2&ID=i"
Application.Goto Reference:="R12C3"
Range("C12:C25").Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveCell.SpecialCells(xlLastCell).Next.Select
ActiveSheet.Paste
ActiveWindow.ActivateNext
ActiveWorkbook.Close
Next
End Sub
How can I make so that, this procedure to open page with ID 2, and 3and so on
I am trying to write VBA code which will go to a web site, SelectAll, make a Copy and then close the IE connection. In my code, Set objIE = CreateObject("InternetExplorer.Application") works, objIE.Navigate "https://www.whatever.com" works, and objIE.Visible = True works. What's the objIE code for "Select All" and "Copy" ? I can't seem to find any reference to these commands in the posts anywhere.
im working on a project that has exposed myself to something. I am familiar with navigating through many IE websites in VBA, but this one has me stumped. I have entered all my information via code, and now I need to progress to the next screen. Here is the button I need to click.
<button name="btnRunSearch" accesskey="R"
class="actionButtonBold"
onclick="CSWCSC_runSearch(this.form)" onkeypress="return CSWCSC_submitenter(this, event)"><U>R</U>un Search</button>
I have a list of zip codes in excel, which I need to pass to store website and retrieve all the store locations in that area..
For example:
[URL] .... "choose my store on the left"
or [URL] ....
Is it possible to do this in Excel/ VBA?
I copied a list of data from Vendio Counters for pages in my website, which includes a check Box in their 1st column.
When copying the list, you automatically get the check box plus the data.
When I paste it into my counter tracking spreadsheet, the Check Box is also pasted into one of my columns.
The problem is that I only want 1 column which is the actual count.
I have tried everything to delete the Check boxes to no avail. I've even tried to delete the column and it won't delete.
All the other extra columns can be cleared or columns deleted
I have a long list of movies and I would like a generic code that grabs the content of a cell and places it in the search box on IMDB, and presses enter. I am thinking that I can apply this same code to a bunch of different websites (wikipedia or google for example)
That way, I can put a couple of buttons on a sheet or toolbar and use them to look up a cell value on the web. I don't program in VBA other than some low level copying and modifying code but this seems like it could be reasonably done.
eg having a live rate of intrest or exchange rate from the internet that is updated live whenever you load up excel and you are connceted to the intenet.
View 14 Replies View RelatedAfternoon All - i have an excel workbook that runs on 20 remote machines that i do not have direct access to - i am placing upgrades on the net but looking at finding a way for excel to detect the update what i need it to do first is check if the machine is connected to the internet.
View 6 Replies View Related