How do I add the system time to a file name
My
ChDir "S:ProductionProduction Request Forms"
ActiveWorkbook.SaveAs Filename:= _
"S:ProductionProduction Request Forms" & SaveWorkbook & "_Request" & Time & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
I put the formula in cell which adds 2hrs in the current time. Now I want msgbox when the system time=time in cell. I want to do it from vba..
View 5 Replies View Relatedif there is a simple way to get the GMT equivalent in vba code. I am being a date/timestamp but realized that timezone differences may complicate matters, therefore I would like to "standardize" the timestamps into their GMT equivalent rather then using the computer's local time. I had been using
View 3 Replies View RelatedDoes anyone know how to make a form control (ex combobox, textbox) have multiple columns so that it would behave like 4 controls in one. What im going for is a control that looks like the control used when setting windows system time "12:30:00 AM" So "12" is in col 1, ":" is in col 2, "30" is in col 3, ":" is in col 4, "00" is in col 5, and "AM" is in col 6.
View 7 Replies View RelatedI need to get my system's time (in hh:mm format) in an excel cell and this should get updated as and when sytem time gets updated.
how the "File System object" works in Excel?
I have a various information in one log file, which need to import to excel. So it's i need to declare all fields i need?
I have created a break tracker where i have to key in time manually. What i want is to click the desired label field and there will a button next to it which will deliver system time on that particular field while i will click on it. And i also want a working button for date as well. 2 separate button 1 for time and 1 for date.
View 7 Replies View RelatedI am currently using Excel 2007 and I am looking for an easier way to enter the system date and time into a cell. I am aware of the MS-Excel shortcuts but work in an environment where data capturers still often get it wrong.
Is it possible to use a Excel function/button to auto insert the system date and time by clicking on a cell/button or Alternatively use a calendar to do so.
In Excel sheet1 Column G has Names(John,Augutus,Jennie ect..) In Coulmn H i need to daily update the Present or Absent status, once i update the status i need Coulmn I to automatically fetch the System name and Column J should update with Time and date..
View 7 Replies View RelatedI’m trying to program a specific label within a userform to continuously display the system time… I’ve tried to code something that loops while the userform.visibile property is true. This obviously just hangs the system… Is there an easier (or any other way) to do this?
View 7 Replies View RelatedI've followed a couple of the FSO threads and come up with the code below however I keep getting a 'Runtime Error 76 - Path not found'.
Sub scan_station()
Dim FSO As New FileSystemObject
Dim dest As String
Dim dname As String
dest = "L:eBISScan Station"
dname = "Scans(" & Date & ").csv"
FSO.copyfile "H: odaysscans.csv", dest & dname
End Sub
It hangs at the area coloured red. However if I hard code the full path and name as I've done with the source information it works fine.
I have a list of jobs over a 24-hour period, that looks like this:
job1: 03:00am, duration 10 minutes
job2: 04:00am, duration 20 minutes
job3: 09:00am, duration 04 minutes
job4: 01:00pm, duration 65 minutes
Now I want to make a horizontal bar, that divides the bar into a 24-hour period (e.g. gray background) and fills the gaps that the system is in use with green parts, so in this example, the whole bar is gray and the part from 03:00am-03:10am+04:00am-04:20am+09:00am-09:04am + 01:00pm-02:05pm is filled in with green.
I have a list with about 300 of those jobs, so it would be nice if I could automate this. How to do this in Excel/VBA ?
I had a working subroutine which I moved to another workbook (rather than linking to it and having both workbooks open at the same time).
Now I get "user-defined type not defined" when it runs. Here is the beginning of the
Global oApp As Object
Sub UpdateForecasts()
Call Update1
Call Update2
End Sub
Sub Update1()
Dim dPath As String
Dim dDest As String
Dim dCondition As String
Dim dName As String
Dim FSO As New FileSystemObject
found the following code which works for 1 workbook at a time. I am trying to save 7 workbooks at 1 time. Is it possible?
Sub SaveAsCell()
Dim strName As String
On Error Goto InvalidName
strName = Sheet1. Range("V77")
ActiveWorkbook.SaveAs strName
It will work on the first sheet but none after that. I need to have each workbook saved with the value in cell V77. Also if that is possible, is it possible to change where the file is saved as well?
Right now I have a master workbook that will open the 7 other workbooks, paste data onto several pages in each workbook. I would like the macro to save the workbooks. The workbooks are named: 02 Tuesday, 03 Wednesday, 04 Thursday, 05 Friday, 06 Saturday, 07 Sunday, 08 Monday.
I have a workbook that retrieves data from a file from a URL address upon opening. Actually, I am saving the URL file to a local drive and then updating my workbook with this data. The problem is that the job that updates the URL file sometimes fails. I want to notify the user of my workbook that the data has not been update recently. I am trying to use the built in document properties (Last Save Time) but I cannot get it to work except for the workbook that has the macros in it. Is there a way to find the last save time of a workbook (from a URL address) seperate from the workbook that has the marco? Below is my current code that errors out at:
dp = Application.Workbooks("DockReportExport.xls").BuiltinDocumentProperties("Last Save Time") with and runtime error.
Sub FTP()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Open file from URL addres to check last save time
Workbooks.Open Filename:="http://172.16.1.94/Files/Operations/...portExport.xls"
'Check if data on server has been updated in the last 15 minutes
[Code] ........
We have an Excel file that is located on the network and is accessed by numerous individuals. Should someone need access when another user has the file open, we get a message that the file is currently in use and it also lists the user id of that person. The issue is that a particular user will open the file and keep it on their desktop for hours at a time. Is there a way to limit the amount of time that user can have the file open? Is there something within Excel that I can turn on that should the file not be modified for a particular amount of time that Excel saves the file and closes it down?
View 4 Replies View RelatedI have a file that sits open all the time, and performs some refresh functions every thirty minutes. I need the file to save a copy of the tab as a CSV file at a given time interval. The code below is almost there, just need to work with the time interval part. The way it should work is to open the csv, copy / paste the active sheet; then close the csv; leaving the original excel file open. I can run it, and it works, but the time interval is not triggering.
I can get the time interval to work by itself, and the save csv part to work by itself also; I need them to work together.
VB:
Sub test()
Application.OnTime Now + TimeSerial(0, 1, 0), "test"
Dim OutputFile As Workbook, InputFile As Workbook
Dim sDD As Worksheet
[Code].....
I need a Macro to run when a file is opened through a macro on another workbook. The code I have for the workbook that open's the file is:
PHP
Sub opensaveclose()
Application.Workbooks.Open ("C:...testfile_revised.xls")
Sheets("Call Report").Select
End Sub
Private Sub runmacro()
Application.Run ("RefreshStats")
End Sub
I'm trying to automate/keep records of my day by setting up a spreadsheet which : 1) Plays a wav music file at a schedule time as a reminder and 2) at the same time calls up a form where I can enter the results of the activity then 3) saves the results to a sheet where consecutive daily records can be recorded and graphed.
Example
At 5am each day I want a "Motivation.wav" music file to open and play and a form appear where I enter in the number of sit ups, push-ups I get done, which I enter in the form and it gets saved to a sheet where I can graph my progress based on the results recorded.
What i want is for my user to click the save button linked to a macro that saves my file as Order0000. If there is a file already called this i want it to change the name to Order00001 and so on for Order00002.
Is this possible and if so what VBA code
Is it possible that each time I save a file it saves the filename along with date and time as the version of the file in a specific path
View 9 Replies View Relatedi've created a spreadsheet that will take in scanned files (from a barcode), log into our system, update the files based on certain criteria, then take information from the file and place it in another worksheet for inventory purposes.
what i'm asking is... is there a way i can have excel drop to the next row each time i scan in each file?
i've noticed the output of the scanner is formatted like this: +000000
i've tried using the sendkeys method with the plus sign, but it always moves down THEN enters in the numbers. i'm not sure if there is a way with the Len function... or some variation of that.
i'm also thinking if i could maybe find the .dll for the scanner, maybe i could set up a reference to it, and have it do something like "afterbarcodescan.activecell.offset(1,0).activate".
I want to open each file in a folder, one at a time, and save each file with a new name (based on cells in the worksheet) to a different folder. This is what I have so far:
Sub aaa()
Dim i As Long, files As String, data As String
Dim fName As String
ChDir _
"C:Files1"
Cells.Select
Range("A1").Activate
Selection.ClearContents
Application. ScreenUpdating = False
i = 0
files = Dir("*.txt")
Do While files <> ""
Open files For Input As 1
This code doesn't open any files unless there is a value already in the cells that fName uses.
i know there is information on this ontime method, i haev read through it, but since i am working with reuters running live in the background they just dont work.
Anyway, on a normal excel sheet, I have made the automated macros run on a timer, which is great. BUT If someone switches off my pc, its not going to be so great because i dont think the macro would run without excel being open.
QUESTION:
How can i make my macro run every morning at 8am? Assuming the worksheet is closed, even excel is closed. i am sure the answer is starring me in the face, i am just getting boerd of looking at it! in the Thisworkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dTime, "thismodule", , False
End Sub
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("20:00:00"), "thismodule"
End Sub
and in the Module:
Sub thismodule()
dTime = Now + TimeValue("08:00:00")
Application.OnTime dTime, "thismodule"
A coworker of mine will keep a shared file open for hours at a time, not doing anything to it, just keeping open, meaning no one else can edit it as required. Is there a way to set a time limit for that file to remain open before it saves and closes the file? The file shouldn't need to be open more than 30 minutes at a time for any individual. If it's required to stay open longer for certain instances, is there a way to extend the time as well? I can't find anything even remotely relating to time limits on Excel files. Is there coding or an app I need to apply to accomplish this? Is there an option I haven't seen in the program already?
View 3 Replies View RelatedI have a file that I want to clear certain cells and all option buttons when first opened. I then want the user to be able to save and close the file with the data they have entered. When they go to reopen the file I want the data they entered to still be there. I want the user to get the blank file off the company's server and then save it to there machine when it has been completed and when they go back to this file the information is still entered. I have attached the file.
Request Form 2012 Draft4.xlsm‎
I was wondering if it's possible for several users to be working in an excel file at the same time? I know that 1 person can be working in a file & other users can look at it in Read-only, but is there any way for more than 1 user to be WORKING in it at a time?
View 3 Replies View RelatedI have the following code,
View 11 Replies View RelatedI want to read in a space delimited file and to put each line in one cell starting with cell B2 (I will take care of splitting it into columns later). However, rather than reading one line at a time, it reads in the entire txt file at the first pass......
View 5 Replies View RelatedI have a file that will successfully save every 10 seconds.
I want this file's name to change based on what time of the day it is
for example from 630-230pm i want the file to include "day"
230-1030pm include "swing"
this is the code i have
Code:
Dim newFile As String, fName As String
On Error GoTo backup
If Hour(Now()) > 14 And Hour(Now()) < 23 Then
newFile = Format$(Date, "mm-dd-yyyy") & " " & "swing"
Else
newFile = Format$(Date, "mm-dd-yyyy") & " " & "day"
backup: newFile = Format$(Date, "mm-dd-yyyy") & " " & "dayerror"
End If
It currently returns the backup....