I close an existing excel file I need to automatically save it to another folder as the same name. I don't want any prompts or save as boxes to appear when this happens.
I need to do this as I use the file all the time, but need to save it on to a network where others can view it.
I am trying to fix the width of a column everytime I open it but I can't. After I have fixed the column width and saved it before I close the file, when i reopen it, the column width will expand. The data source of that column is a real time query. I tried to lock the cell but when i locked it, I can't refresh the data from the query as it is locked. So, is there any way for me to achieve that?
View 4 Replies View RelatedI want to close a tab delimited Txt file that is open in Excel, thru' a macro, without the save changes dialog box appearing.
View 2 Replies View RelatedI have a workbook.
I would like to automate with code the process of extracting one worksheet from that workbook, and saving it as a separate workbook, with a file name equal to the text value of a cell (date formatted dd-mm-yy) from within that workbook. (ie d1="10/07/08" save file with one worksheet 10-07-08.xls)
Is It Possible To Auto Save To A File Via A Macro?
What I Want To Do Is To Auto Save Directly To A Folder On Our System Via A Macro.
The Problem Is That Firstly It Will Need To Look Up A Cell ( D8 ) To Find Out The Job Number
Then It Will Have To Find The Folder On Our System ( Its On Desktop Under Job File Folder ) Then Comes The Hard Bit It Will Need To Locate That Job Number ( Cell D8 ) To Look Up The Relevant Folder To Put It In. All The Job Files Are Labelled Up Eg.( J2663 - Parry ) Then In That Folder Is A Sub Folder Called Docs Which It Needs To Be Saved In
I 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....
I have workbook I would like to auto save to PDF copy file in different location every time the original file is save maybe some VBA code
View 4 Replies View RelatedI have three cells checked to make sure data is in them and then the code is meant to save the file with some of the data from those three cells. The checks work but now the save part doesn't! If I comment out two of the checks the save does work.
Linked to http://www.excelforum.com/excel-programming/625320-auto-save-a-new-file-with-data-from-3-cells.html
I have workbook I would like to auto save to PDF copy file in different location every time the original file is save maybe some VGA code is this possible ???
View 1 Replies View RelatedThe following code is not working for me in the "ThisWorkbook" section:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Anytime a change is made it still asks if I want to save changes.
Also,
What code could I assign to a CommandButton that only allows a "Save As" function?
Something seems to have happened to my Excel. When I make changes and close the workbook or application, the pop-up box asking "Do you want to save the changes you made to [Book1]?" no longer shows up.
So far I've tried running a macro with Application.DisplayAlerts = True, but that only seems to work while the macro is running.
I was able to find the coding that I needed for being able to have a backup of my file. So when I save a workbook and close I also get a backup copy in another folder that is dated. But I am having problems getting the code to work. Probably because I do not understand it correctly. Here it is.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Documents and SettingsTeacherDesktopTEST" & _
Format( Date, "yyyy-mm-dd") & " - " & ThisWorkbook. Name
End Sub
Where it has, ThisWorkbook.Name, do I put the name of the workbook? Not sure.
I want to have a user press a button on a worksheet page to save a copy of the workbook (and be able to name it and choose where to save it to) without closing or modifying the original. Note that if you "save as" manually it renames the workbook and closes the original.
View 7 Replies View RelatedI am in the process of setting up an Excel invoice. So far I have managed to implement the following:
On open: Incrementing invoice number
Cells cleared ready for next use
Private Sub Workbook_Open()
Sheets("Sales Invoice").Range("H2").Value = Sheets("Sales Invoice").Range("H2").Value + 1 .....................
There is only one task left I need to automate. On closing the document I would like a copy to be saved in a specific folder and be given the file name of a cell (B9). Obviously I would not want the 'saved copy' to retain the Incrementing invoice number or the clear cells function. Even if the invoice copy was exported as a flat jpeg that would be fine. I am using Office Exce 2003 (Sp2) - I have attached my invoice should anyone be kind enough to take a look.
I wrote the following code to hide & password protect an excel sheet :
[Code] .....
How could I alter it so that it hides and protects this sheet automatically before closing the workbook ?
At the moment, there is no compile error or runtime error, but if I manually attempt to open the file (that was successfully read from), I get the message that the file is already open and is locked by myself (the user) and that multiple Excel processes are still running (I checked the task manager).
How do I close this Excel file (no changes to be made since I only read from the file) and quit Excel from running ?
Here is what I have at the moment :
Dim FirstName, Surname As String
'file path and name for the Excel file
Dim FileNamePath As String = "C:UsersMRCDesktopMRC FilesVisual Basic FilesSwimManager 2014CurrentSeasonDATASquadData.xls"
[Code].....
The Macro asks the user to point at the location of a report, it then copies information out of that report and pastes it into a master sheet. The part I am having trouble with is closing the file that data has been copied from.
I have tried different things to close it such as
I'm making a workbook which I want to distribute widely. It will have a lot of changes to the menus which happen 'onOpen'.
I am keen to not spoil peoples special menu setups on closing the workbook.
If I understand correctly, on closing, Excel writes the current menu settings to the .xlb file. Does anyone know of a way to prevent it doing this so that peoples setups are left unchanged?
Presumably there is code that will do it but I've searched a long time and found nothing.
I have workbook that has questions on column K and L that NEED to be answered. When the user closes the spreadsheet I need the macro to create a pop up that says "unfinished Workbook"
So I need a macro that tells the user to finish answering the questions on K and L -
I was wondering if there is any code using an on-click method. When clicking a button i need excel to exit the file/sheet without saving (no prompts) and then re-open the exact same file/sheet once it has closed.
In a way this is like a refresh button.
I recorded a Macro to open a workbook, copy and paste data from one excel workbook to another, and close the workbook which was opened. Everything works fine except:
because of the amount of data that I am copying, I get a message box saying "There is a large amount of information on the Clipboard. Do you want to be able to paste this information into another prgoram later?" with a Yes/No button.
So now I have to click the "No" button before my macro closes the excel file. Is there a simple line of code that will by-pass this?
I am assuming it has to do with the following:
Windows("Book1.xls").Activate
ActiveWindow.Close , savechanges:=False
I want to delete some unwanted rows on closing my excel file. the blank rows are between set of datas. so it has to check all the blank rows, delete it until the last one. example
data
blank rows
data
blank rows
data
blank rows
data
I am using MS Excel 2010.
What I want to Hide two worksheets and leave one worksheet open when I close out the file.
ws TOC will remain open when closing out the file
ws Rqmts will hide when closing out the file
ws Planning will hide when closing out the file
VBA coding for automatically saving an excel file as another file using the current date as part of the file name together with "32ga" as a constant add-in. I also what this macro to run at a particular time of the day let say 00:20hrs. The excel file i want to save as is always open . It has data that changes every 24-hrs.
View 1 Replies View Relatedam using Excel 2010 and having issues trying to save a worksheet to a specified file location with the save date....
I have tried several posts form this forum and elsewhere and can't seem to get the macro to do what I want.....
I want to save a 'worksheet' from an open workbook that I use for updating information to the same file path as the workbook with the date the file saved...
What I am trying to do is that I have an excel file with macros and it is a read-only file. In order for the user to save, I want them to only be able to save as a .xlsx file as it disables all macros. If for whatever reason, the user wants to save the file as another .xlsm file, they should be allowed but before they save, a "are you sure you want to save as .xlsm?" message should pop up.
All the options in the save as box should still be available in case they want to save in that particular format. Just that the .xlsx should be the default.
I have code in VBA that takes a source Excel file and parses it to multiple re-formatted worksheets. Each formatted worksheet is different depending on a variable in the source. There are n of each type of data (1:n Water Sources, 1:n Water Treatment, 1:n Water Storage). Each item needs a copy of a blank re-formatted worksheet appended to the end of the existing data-type worksheet. For example: Water Source #2 is appended to the bottom of Water Source #1 on the same worksheet.
Currently, I am opening the blank re-formatted workbook each time an additional variable of same type is found in the source file. Meaning, if there are 8 Water Sources, I am opening and closing the blank re-formatted workbook 7 times to copy a blank Water Source to the bottom of the Water Source worksheet and then populate the data. AND if there are 3 Water Treatment, I would open and close the blank formatted workbook 2 more times to copy a blank Water Treatment to the bottom of the Water Treatment worksheet. The same goes for Water Treatment.
Obviously, a huge waste of resources and performance. I would rather open the blank re-formatted workbook once (first time an additional worksheet is needed), use the worksheets as needed, and close it at the end.
Attached is my current, working code of the above.
How should I re-write it to check if the blank workbook is already open use it, if not open it?
Code:
Sub Add_Facility(ByVal Worksheet_Name, Copy_Range, Max_Limit)
Dim Last_Row As Integer
Dim Source_Range As Range
Dim Dest_Range As Range
Dim wkb As Workbook
Set wkb = ActiveWorkbook
[Code] ........
I have a macro that copy one sheet of the Active workbook and sends it via email.
I need to add a code in this sheet so when one opens it from the email, with a command button to be able to save the file to specific, fixed folder on the local network with it’s original file name.
I am trying to open a website, then for excel to download the csv file, then for it to save it in a specific folder under a specific name and file format (excel).
I am successful at opening the website with the following code, but how to do the rest.
Sub Searchez()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://quote.morningstar.ca/Quicktakes/stock/keyratios.aspx?t=clwr®ion=USA&culture=en-CA&ops=clear" 'load web page google.com
IE.Visible = True
While IE.Busy
DoEvents
Wend
'IE.Navigate2 "javascript:SRT_keystuts.exportcsv()"
'this is the name of the download link as from when i hover my pointer over download link.
End Sub
I'm working on the following
Workbooks.Open Filename:= _
"D:CommondataIBMmainBRANCHBURG-PRODUCTS-BOM-ALUMINUM-UPDATE-" & Ucase(Format(DateAdd("y", 0, Date)), "YYYY-MM-DD")&".XLS"
ChDir "D:CommondataIBMmain"
ActiveWorkbook.SaveAs Filename:= _
"D:CommondataIBMmainBRANCHBURG-PRODUCTS-BOM-ALUMINUM-UPDATE-NAFTA.XLS", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Date: 2009-06-03
What I'm trying too do is open a file, make an exact copy and save it under a new file name.
My problem is in the date formula the day is not always the same. In the sample case it's 03 at other times the day will change.
is there a way too get this too work irregardles of what the day might be?