schtasks /create /ru system /sc hourly /st 08:00:00 /tn SaveExcel /tr "cmd /c cscript c:\SaveExcel.vbs"
would schedule the task hourly...
Main Topics
Browse All Topics
Loading Advertisement...
Question
Auto Update and Save
Hi,
I have an excel spreadsheet which i link to another spreadsheet. When i open the sheet it updates the values. Is there any way i can make the spreadsheet open itself, update the values and save itself and close ?
Ideally i would like this to happen every hour.
Thanks in advance.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Subscribe now for full access to Experts Exchange and get
Instant Access to this Solution
- Plus...
- 30 Day FREE access, no risk, no obligation
- Collaborate with the world's top tech experts
- Unlimited access to our exclusive solution database
- Never be left without tech help again
Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.
- "The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.
- "Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin
- "Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.
See what Experts Exchange can do for you.
Got a question?
We've got the answer.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
Need individual assistance?
Our experts are ready to help.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Want to learn from the best?
Read articles from industry experts.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Working on a long term project?
Store your work and research.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
What Makes Experts Exchange Unique?
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Trusted by the world's most respected brands.
Faithfully serving IT professionals since 1996.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Free Tech Articles
-
WARNING: 5 Reasons why you should NEVER fix a computer for free.
It is in our nature to love the puzzle. We are obsessed. The lot of us. We love puzzles. We love the challenge. We thrive on finding the answer. We hate disarray. It bothers us deep in our soul. W...
-
SCCM OSD Basic troubleshooting
SCCM 2007 OSD is a fantastic way to deploy operating systems, however, like most things SCCM issues can sometimes be difficult to resolve due to the sheer volume of logs to sift through and the dispe...
-
Migrate Small Business Server 2003 to Exchange 2010 and Windows 2008 R2
This guide is intended to provide step by step instructions on how to migrate from Small Business Server 2003 to Windows 2008 R2 with Exchange 2010. For this migration to work you will need the fo...
-
Create a Win7 Gadget
This article shows you how to create a simple "Gadget" -- a sort of mini-application supported by Windows 7 and Vista. Gadgets can be dropped anywhere on the desktop to provide instant information, ...
-
Outlook continually prompting for username and password
There have been a lot of questions recently regarding Outlook prompting for a username and password whilst using Exchange 2007. There are a few reasons why this would happen and I will try to cover t...
-
Backup Exchange 2010 Information Store using Windows Backup
There seems to be quite a lot of confusion around the ability to backup Exchange 2010 using the built in Windows Backup feature. This stems from the omission of this feature prior to Exchange 2007 s...
Cloud Class Webinars
- Avoiding Bugs in Microsoft Access
Alison Balter takes and in-depth look at avoiding bugs in Access. In this webinar you will learn about using the immediate window to debug your applications, invoking the debugger, using breakpoints to troubleshoot, stepping through code, setting the next statement to execute, ...
- Top 10 Best New Features in Visio 2010
Scott Helmers gives live demonstrations of the top 10 new features in Visio 2010. This webinar will teach you how to create compelling diagrams by adding shapes to the page with a single click, linking the shapes in a diagram to data in Excel (or SQL Server, or SharePoint), ...
- IT Consultant Business Secrets Revealed
Michael Munger, Experts Exchange tech pro and IT consultant, pulls back the curtain on his very successful businesses and answers question on every IT consultant and business owner should know about. He shares secrets on what he did to solve the 5 most common problems in IT, ...
- Disaster Recovery and Business Continuity
Quest CTO, Mike Billon, gives an overview of the steps involved in building a dunamic disaster recovery plan. Through case studies and an examination of software/hardware tooles for monitoring and testing, you'll gain a better understandin of where you are, where you want ...
- Organize Your Visio Diagrams with Containers and Lists
Scott Helmers uses cross functional flowcharts, wireframe diagrams, data graphic legends and seating charts to teach you: how to ustilize all three new structured diagram components in Visio 2010, the best practices for organizeing shapes in previous version of Visio, how to organize ...
- How to Us Objects, Properties, Events and Methods in Microsoft Access
Alison Dalter gives an in-depbth look at objects, properties, events and methods in Microsoft Access. In this webinar you will learn about using the object browser, referring to objects, working with properties and methods, working with object variables, understanding the ...
Join the Community
Give a Little. Get a Lot.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Answers
Hi Sirbounty,
I have created a vbs script as above, or at least i think i have.
Dim objExcel
Set objExcel = CreateObject("Excel.Applic
strExcel = "C:\Documents and Settings\pl\Desktop\Peter Lai Reports 2007\Stock Related\Excel Exports\Daily Month End Stock Figures Fin.xls"
objExcel.Workbooks.open strExcel
Set objSheet = objExcel.ActiveWorkbook.Wo
objExcel.ActiveWorkbook.Sa
objExcel.Quit
Set objSheet=Nothing
Set objExcel=Nothing
However, when i re-open 'Daily Month End Stock Figures Fin.xls' it asks me if i want to enable automatic refresh. So it does not seem to be updating automatically.
I am quite new to this so perhaps i have made a simple mistake.
Thanks
Peter
Try this...
Dim objExcel
Set objExcel = CreateObject("Excel.Applic
strExcel = "C:\Documents and Settings\pl\Desktop\Peter Lai Reports 2007\Stock Related\Excel Exports\Daily Month End Stock Figures Fin.xls"
Application.DisplayAlerts = False
objExcel.Workbooks.open strExcel
Set objSheet = objExcel.ActiveWorkbook.Wo
Application.DisplayAlerts = True
objExcel.ActiveWorkbook.Sa
objExcel.Quit
Set objSheet=Nothing
Set objExcel=Nothing
Take this file
''''''''''''''''''''''''''
Dim objExcel
Set objExcel = CreateObject("Excel.Applic
strExcel = "C:\Documents and Settings\pl\Desktop\Peter Lai Reports 2007\Stock Related\Excel Exports\Daily Month End Stock Figures Fin.xls"
Application.DisplayAlerts = False
objExcel.Workbooks.open strExcel
Set objSheet = objExcel.ActiveWorkbook.Wo
Application.DisplayAlerts = True
objExcel.ActiveWorkbook.Sa
objExcel.Quit
Set objSheet=Nothing
Set objExcel=Nothing
''''''''''''''''''''''''''
Save it as SaveExcel.vbs
Now, click Start->Run->CMD /k schtasks /create /ru system /sc hourly /tn SaveExcel /tr "cmd /c cscript c:\SaveExcel.vbs"
This should leave a window open determining if the task was successfully created or not. The vbs should not be opening notepad... : \
Does the worksheet have to be activated?
Dim objExcel
Set objExcel = CreateObject("Excel.Applic
strExcel = "C:\test.xls"
objExcel.Application.Displ
objExcel.Workbooks.Open strExcel
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate
objExcel.Application.Displ
objExcel.ActiveWorkbook.Sa
objExcel.Quit
I don't suppose you could upload the two files? www.ee-stuff.com
If there's anything sensitive in there, then don't...
That's what I get for piece-milling code...try this...
Dim objExcel
Set objExcel = CreateObject("Excel.Applic
strExcel = "C:\test.xls"
objExcel.Application.Displ
objExcel.Workbooks.Open strExcel
Set objWorksheet = objExcel.objWorkbook.Works
objWorksheet.Activate
objExcel.Application.Displ
objExcel.ActiveWorkbook.Sa
objExcel.Quit
Your file has successfully been uploaded!
To download the file, you must be logged into EE-Stuff. Here are two pages that will display your file, if logged in:
View all files for Question ID: 22117389
http://www.ee-stuff.com/Ex
Direct link to your file
http://www.ee-stuff.com/Ex
The excel file are very simple at the moment.
Daily Month End Stock Figures Fin.xls links e2:e5 to the New Microsoft Excel Worksheet.xls located in the link folder. I have highlighted the linked cells in yellow.
Really appreciate your help.
I have a crystal report with looks at an oracle database and pulls back data. I then automate this Crystal report to export into an excel spreadsheet. This will be the New Microsoft Excel Worksheet.xls.
Unfortunately the formatting of the export is not very good so i was going to design a template excel spreadsheet called 'Daily Month End Stock Figures Fin.xls' and import the data from the 'New Microsoft Excel Worksheet.xls' into it. After this was done i was then going to automatically email the 'Daily Month End Stock Figures Fin.xls' to users.
I have only set the 'Daily Month End Stock Figures Fin.xls' to update when its opened and presumed the VBS script would open it, update it and save it.
Sorry if i have be misleading!
I think it's the macros that's hanging it...either lower the macro security (not recommended) or there's a tool where you can sign your macro (selfcert, I thought it was called)...found one here: http://www.excelsig.org/Ti
Incidentally, for troubleshooting purposes, you can add Visible=True in the code to see it load...and there's a couple prompts to see if you can determine what's hanging it. This one's linked to your profile, so I'd have to clean it up to get it working...I'll keep playing with it - maybe something will come up.
Dim objExcel
Set objExcel = CreateObject("Excel.Applic
strExcel = "C:\test.xls"
objExcel.Visible=True
objExcel.Application.Displ
objExcel.Workbooks.Open strExcel
msgbox "Check it"
Set objWorksheet = objExcel.Worksheets(1)
objWorksheet.Activate
msgbox "Check again?"
objExcel.Application.Displ
objExcel.ActiveWorkbook.Sa
objExcel.Quit
Neal asked me to lend a hand--and the problem proved a little trickier than I had anticipated.
I tried using Application.OnTime to open a workbook at regular intervals and found that its Workbook_BeforeClose macro wouldn't run reliably, but that the Workbook_Open macro would. The next problem is to get the macro to wait long enough for your update to occur. I solved this problem using a second Application.OnTime macro, run in alternating fashion.
All the following code goes in a helper workbook that remains open all the time. It opens a second workbook "AlarmClocker.xls", waits 5 seconds, then saves and closes it. It then waits another 10 seconds, and repeats the process. Event macros (Workbook_Open) in AlarmClocker.xls run as expected.
'Code goes in regular module sheet, with Public declarations before any subs or functions. _
If you have two or more subs running in alternating fashion, using public variables avoids run-time errors. _
Public RunWhen As Double
Public cRunWhat As String
Sub StartTimer()
'You need to pick the next time to run the AlarmClock sub. Use one of the following statements customized to your situation
'RunWhen = Int(Now) + TimeSerial(Hour(Now) + 1, 0, 0) 'Run every hour, on the hour
RunWhen = Now + 10 / 86400 'Run every 10 seconds
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
End Sub
Sub AlarmClock()
'This sub wakes up the other workbook
Workbooks.Open "C:\VBA\Sample '07\AlarmClocker.xls" 'Put your path & filename here
RunWhen = Now + 5 / 86400 'Allow 5 seconds for the workbook to update itself
cRunWhat = "DoStuff" 'Schedule next run
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
End Sub
Sub DoStuff()
'Your code goes here
With ActiveWorkbook.Worksheets(
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 1) = Now 'These statements prove the workbook is updated
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Cells(Rows.Count, 1).End(xlUp) + 1
End With
RunWhen = Now + 10 / 86400 'Arrange the next wake-up call
'RunWhen = Int(Now) + TimeSerial(Hour(Now) + 1, 0, 0) 'Run every hour, on the hour
cRunWhat = "AlarmClock"
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True
'Save the workbook, then close it
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=False
End Sub
Brad
Hi Brad & Sirbounty,
I have created a module in an excel spreadsheet but to be honest i'm not really sure what i am doing.
What code should i be putting in section ''Your code goes here ?
Would it be possible for you to upload the sample files with this code in so i can see where everything should go ?
Hope my request isn't to cheeky!
Thanks again.
Peter
I have managed to get part of it working . I created a helper file as above although i haven't put anything in the section 'Your code goes here. As i'm not to sure what i should put here.
I then created a alarmclocker.xls which i am using as my sheet which should update itself from another spreadsheet.
However, when i start the helper.xls it will open the alarmclocker.xls but the data isn't updated. It will then close and reopen at the time specified in the script. If I click refresh data while the alarmclocker.xls is open it will refresh and save.
What i am doing wrong?
It sounds like you were able to replicate my test workbooks and get the code to work the same way I was seeing. The remaining problem is the fact that your workbook isn't getting the updated information.
The part that was labelled "Your code goes here" is where you need to add a statement that forces your workbook to update. It might be as simple as:
ActiveWorkbook.UpdateLink
If you can record a macro that will update your workbook whenever the macro runs, please post its code in this thread. Or if you can describe a series of manual steps that will update the workbook, please post those.
Brad
First of all i disabled the "enable automatic refresh" dialog box found on another thread.
Navigate to:
HKEY_CURRENT_USER
Software
Microsoft
Office
11.0
Excel
Options
In the left pane, click the Options folder.
On the Edit menu, point to New, and then click DWORD Value.
Type QuerySecurity, and then press ENTER.
Double-click the QuerySecurity icon.
Type a valid setting in the Value data box and then click OK. (See the "Valid Settings for the QuerySecurity Entry" section below for a listing of the valid settings.)
This change takes effect the next time that you start Excel.
Valid Settings for the QuerySecurity Entry
The following table contains the valid settings for the QuerySecurity entry: Value Effect
--------------------------
0 Excel prompts you every time that you open a file containing a query or PivotTable that has been configured to refresh automatically.
NOTE: This is the default behavior in Excel 2000 SR-1.
1 Excel will not prompt you when you open a file containing a query or PivotTable that has been configured to refresh automatically. Excel will not refresh the query or PivotTable automatically.
2 Excel will not prompt you when you open a file containing a query or PivotTable that has been configured to refresh automatically. Excel will refresh the query or PivotTable automatically.
This stopped "enable automatic refresh" dialog box popping up.
I then set the data properties to automtically update every minute ( the minimum setting) and increase the value in your script which keeps the Daily Month End Stock Figures Fin.xls open to 80seconds.
This means your helper.xls sheet opens the Stock Figures Fin.xls for 80 second, and the automatic background will refresh the sheet after 60 seconds. So it is working to a fashion although i will have to be carefull as to when i schedule auto export and email.
I have left in running today and will update you both tommorow.
Another question: Is it possible to reduce the automatic background refresh value to less than 1minute?
Thanks,
Peter
3 Ways to Join
Business Accounts
- Perfect for organizations
- Multiple users
- Save over 36%
- Create a Business Account
Answer for Membership
- Earn free access
- Showcase your knowledge
- No credit card required
- Sign Up to Answer
Loading Advertisement...
by: sirbountyPosted on 2007-01-10 at 04:06:47ID: 18283121
Save this as "SaveExcel.vbs" - use task scheduler to automate the task...
Dim objExcel
Set objExcel = CreateObject("Excel.Applic
strExcel = "C:\test.xls"
objExcel.Workbooks.open strExcel
Set objSheet = objExcel.ActiveWorkbook.Wo
objExcel.ActiveWorkbook.Sa
objExcel.Quit