a macro to check if a file exists before saving. The code saves the file OK if the filename does not exist but fails if it does.
Sub CheckFileName()
Dim FName As String
FName = ThisWorkbook. Name
'saves file
Dim FPath As String
FPath = ThisWorkbook.Path & ""
Dim y As String
I'm having a slight problem with this script. What I'm looking to do is before the workbook is closed is check to see if the workbook already exisits on the users desktop if it doesnt then save it to the users desktop. if is does exists then just exit the sub. Here is what I have so far but for some reason it kept displaying the aleart message that the file already exists and wants to save it again.
I just added the displayalerts = false in but the script still does not know that file already exists. So when the file is closed it keeps saying file has been placed on your desktop.
My macro pulls data from a set of files in a folder and creates an output based on my formatting rules.
Ran into 2 issues though. The first being is after this macro is run it saves a file in the folder with the name "Data Export" and before I had it do this if "Data Export" was already there
Code:
'Check if file name to save exists If Dir$(vFolder & "" & sSubFolder & ".xls", vbNormal) = "" Then
wb.SaveAs vFolder & "" & sSubFolder & ".xls"
MsgBox "Complete!", vbOKOnly
Else
MsgBox "File already exists, could not save!", vbInformation, "COMPLETE!"
End If
What I want it to do instead is change itself and save it as Data Export A, and then also loop for A each time, if A is there go to B , so on and so forth.
-Alternate solution if this is way to challenging, can I have it pop up the Save Message box to let the user try a new name if "Data Export" exists. I was trying to think through that too..
2nd Issue is when I loop the files in the folder I selected in my macro, I want it to ignore "Data Export" files. Before I just took a shortcut and had it save outside of the data folder, which was fine but now we are running on so many files a day that we need it inside the same folder for organization purposes.
That is done with the following
Code:
'Loop through files in folder sFileName = Dir$(vFolder & "")
Do Until sFileName = ""
I was thinking maybe I can add an error handler to the loop? Before Do Until? Something like this? But how I can add it into the loop?
Code:
If sFileName Like "????.?.xls" Then
I have a list of numbers and I have corresponding text files which I named by using these numbers as reference
is there a possible macro to delete those rows which have corresponding text files by checking in a specific folder if that file name exists
I have an excel spreadsheet used to populate word documents based on a template file that is loaded like this....
View 9 Replies View RelatedThrough excel I run a dos program which spits out a results file and my macro then opens this file in excel. The only problem is the macro tries to open the file before the other program has writen it. I have tried to fix this using the
View 5 Replies View RelatedHow can I check if a file exists with VBA?
View 3 Replies View RelatedI would like to have a user designed function that will tell me if a file exists in the specified directory.
For example, my file name is wd1.xlsm. I have another udf that tells me my current file path - e.g. C:All Sales People Quotes System.
I combine these two in say, cell D4 and so have C:All Sales People Quotes Systemwd1.xlms
Now I would like a udf that I can put in E4 that will tell me if wd1.xlsm exists in the C:All Sales People Quotes System directory.
Is there a way to test (from Excel 2002) whether a specified file (not necessarily an Excel file) exists on my computer? I could specify the complete path.
View 4 Replies View RelatedI am using the following VB code to check if a file exists and if so add a formula in my workbook providing data from that file.
I have pre-pulled raw data in the directory "H:BusinessRptTest for scripts" which is named firstly by the day of the month and then what data it is.
- i.e/ 13_CAI_AgentStats.xls
The idea of my code is to check firstly whether the file exists (i.e has the data been pulled yet) and then if so to extract the data I need from the correct sheet and if not to add a zero instead.
I thought all was ok, but if the raw workbook is not open I get a #REF error.
I have looked at some posts for getting info from a closed workbook on this site but I can't get my head around incorporating them into my code!
Code listed below
Sub Check_File_Exists()
For date_test = 1 To 31
If Dir("H:BusinessRptTest for scripts" & date_test & "_CAI_AgentStats.xls") "" Then
Range("AE" & date_test + 11).Formula = "='H:BusinessRptTest for scripts[" & date_test & "_CAI_AgentStats.xls]" & date_test & "_CAI_AgentStats'!$D$4"
Else
I can use a FileDialog to have a file selected. But I still need to check if it really exists before continuing. How to do?
(I know there is a function FileExists but do not know how to use it with FileDialog if this is the way to do it)
Select Case True
Case True
If wbEXT = "C:KPI 0015 external Shortageswk" & CStr(VBAWeekNum(Now(), 1)) >= 0 And _
wbINT = "C:KPI 0044 internal Shortageswk" & CStr(VBAWeekNum(Now(), 1)) >= 0 Then
Case False
varAnswer = MsgBox("KPI Current week No missing", vbOK, "Warning")
If varAnswer = vbOK Then
Exit Sub
End If
End If
End Select
rest of code here
basically if current week files exist carry on , if they dont then pull up a msgbox with ok button to stop sub
Is it possible to search a directory looking for a particular file, then if found, copy the directory and all its contents to another location?
it should be noted that not all of the files will be *.xls.
I have written a macro to select a range of cells one by one and open the excel files mentioned in them and execute a task. It works fine. But I want the system to see if the file exists in its folder or if the file is password protected (for opening). Either of the case the file should be skipped without a warning message and any attempt to open. I need a macro for that. Following is the way the cell contents are
I:ORDERSS-S 10ALIYAMARKET ORDERSADDADD-LADIES-LEGGINGS-13246.xls
I:ORDERSS-S 10ALIYAMARKET ORDERSADDADD-LADIES-PANTS-13247.xls
I:ORDERSS-S 10ALIYAMARKET ORDERSADDADD-LADIES-SHORTS-13244.xls
I:ORDERSS-S 10MICHELLEGAMESWORLDWIDE COMPANYWORLDWIDE COMPANY - GAMES - 10014.xls
And following is the VBA code I wrote. It it almost stops when reaching a non-existing file name
I have a workbook that links to four files. I would like to automatically update the links when the file is opened and if the linked files are not available, don't display a message.
I got the first part done using the Options menu in Excel but can't figure out how to suppress the message when the linked files are not available
I have some VBA which currently creates a directory when it produces an error. the code is as follows
Function create_year()
On Error Goto makenew
ChDir "I:Reports" & Year( Date)
Goto skipmakenew
makenew:
MkDir "I:Reports" & Year(Date)
skipmakenew:
End Function
What I would like to do is have an IF statement which checks if the directory exists.
I have the following code which copies a sheet to another workbook and renames it with the current date. However I need it to check if there is a sheet already existing in the other workbook with todays date first. If there is then it should delete the old sheet and copy the new sheet or just overwrite it.
View 4 Replies View RelatedI have an array that opens a workbook containing close to 100 worksheets, and copies specific sheet names into there own individual workbooks. The problem I have now, is that I assume the worksheet exists in the workbook, but often times it does not Is there a way to add some sort of "catch" that will 1st verify the worksheet exists instead of my code crashing?
View 9 Replies View RelatedI have written a routine that automatically saves the file to a specified folder as the name of a cell from one of the worksheets. I am trying to use the following code to see if that filename already exists and stop the routine if it does. If I manually enter an existing filename the routine works well, however I cannot get it to recognise the automatically created filename, here is my .....
View 9 Replies View RelatedI have a macro that 'opens all' workbooks in the specified folder. I've copied it over, but need to only open all the wbk's if a specified worksheet exists w/in the wbk..I know there is a dim ws statement that can be used, but how do i use it w/ the current macro?
Option Explicit
Sub recTestOpenAll()
Dim x As Integer
Dim WB As String
Dim wbk As Workbook
For x = 1 To 100
WB = "G:Rule Test FilesREC " & x & ".xls"
On Error Resume Next
Set wbk = Workbooks.Open(Filename:=WB)
On Error Goto 0
If Not wbk Is Nothing Then
End If
Next
End Sub
I know this is my third thread, but I have made sure that I have trawled through other threads before posting. I have created some VBA to collect data from multiple workbooks and paste them into one workbook, Basically the copy and paste script runs according to how many tabs are in the summary workbook because each tab ( sheet) is essentially a condensed version of a workbook. Unfortunately some workbooks I am getting the info from don't have the right data that the copy and paste program is looking for or sometimes the document doesn't exist, is there anyway of telling my VBA to pass this tab if the document doesn't exist instead of throwing up a VBA debug error?
View 2 Replies View RelatedI have an Excel sheet that I convert to PDF --here is Example of the name after PDF creates"Morning Report_08.16.14" , When it runs it just overwrites the file automatically if one was already on that date - I would like it to prompt to overwrite & if they choose 'yes' to overwrite the file and if not they can change the name If the new one is in addition to the one that already exists and I want it to save the new file with in the same folder.
Also when the current code is run if the PDF was left opened it stops the macro - Is it possible to see if that file is open and if so close it down so the code will work or is it possible to overwrite the file when open.
[Code].....
I can delete Sheet5 using this macro. I would like to put this in the workbook so that when I close the workbook it will be activated if Sheet5 exists. If Sheet5 does not exist nothing will happen.
Sub DeleteSheet5 ()
Application.DisplayAlerts = False
Sheets("Sheet5").Delete
Application.DisplayAlerts = True
End Sub
how to mark the post as solved other than go advanced and selecting solved from the drop down menu can you tell me how?
suppress range name already exists when coping out workbook. I’m coping the selected worksheet out to another workbook…sometimes I get a message that a range name already exists and do I want to rename or not?. I always want to say no (don’t rename)…?
Application. ScreenUpdating = False
On Error Resume Next
Dim wb As Workbook
Dim ws As Worksheet
Set ws = ActiveSheet
Set wb = Application.Workbooks.Open("\03-serverdatadatabasemarterialListingsArchive.xls")
If Err.Number <> 0 Then
MsgBox Err.Description & "help"
Else
'ws.Copy After:=wb.Sheets(wb.Sheets.Count)
ws.Move After:=wb.Sheets(wb.Sheets.Count)
wb.Save
wb.Close
'ActiveWindow.SelectedSheets.Delete
End If
Application.ScreenUpdating = True
MsgBox "Worksheet has been Archived..."
I would like to add a visual indicator to my sheet that checks if a specific file exists in the same directory as the active workbook.
The filename format would look like: "something.invoice.(mm-dd-yyyy).xlsm"
The macro would check the =today date, calculate the previous month, and check to see if a file named that exists.
I have got a master workbook and I have written macro to copy and paste data on another workbook. write a macro to save the new workbook to a file path with a file name where both file name and path are stored in master workbook sheet...
View 5 Replies View RelatedI am trying to write some code that will copy the worksheets from one workbook (wkbSource) to another (wkbTarget), but I need it to maker sure the worksheets being copied from wkbSource don't already exist in wkbTarget. If they do exist, it just skips and moves to the next worksheet. Here is the code I have already, I thought that by adding the On Error Resume Next to the code it would just skip it, but for some reason it is still copying the first duplicate workbook, then it skips.
Code:
Dim wkbSource As Workbook
Dim wkbTarget As Workbook
Dim WorkbookName As String
WorkbookName = ThisWorkbook.Name
[Code] .........
I would like to have a macro designed. I have 2 workbooks, one having latest information and the other having the information in database already. both workbooks have 26 columns each. I would like to check if a value that exists in Column A of the "latest-information" workbook also exists in the "already-in-database" workbook. If so, I would like to update all 26 columns of that row in the "already-in-database" workbook with information from the "latest-information" workbook. If the value does not exist, I would like to add all 26 fields in that row into a new sheet on the "already-in-database" workbook.
View 3 Replies View RelatedI have numerous spreadsheets that I need to open and unhide a sheet, that has XML data stored in cell A1. What I need to do is copy that data in cell A1 and paste it into a text document and save that as an XML file saved as the XLS workbook name with a date stamp.
I'm running into many issues, the main issue is the saving as current file name, and the formatting of the text/XML file.
Here is my current code, which doesn't reference the current file name and is just very generic. Once I get the saving as file-name correct and the formatting of the xml file correct, I will work on it a bit more.
Code:
Sub Test()
Dim Rng As Range
Dim wb As Workbook
Set Rng = Range("A1:A2")
Set wb = Workbooks.Add
With wb
Rng.Copy
[code]....
I am trying to import some csv files so I can combine them, but am having probs with the filename and location.
Sub test()
Dim wsName As String
wsName = ActiveCell
Sheets("Data").Select
With ActiveSheet.UsedRange
LastRow = .SpecialCells(11).Row
End With
With ActiveSheet.QueryTables.Add(Connection:="TEXT; &thisWorkbook.Path &" " & wsName &", Destination:= Range("A" & LastRow))
.Name = wsName
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells.....................