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 am looking to see if a directory exists, and if it does, to save a file in it, otherwise create it, then save the file. My IsFileThere function works fine on files, but does not detect directories. The len(Dir(Filename)) statement always returns a 0, with the Dir statement always simply populating with "". It works fine on filenames - so can anyone tell me why it does not pick up directories?
Shouldn't the Dir function on a directory name return "."? I have excerpted some of my code to include here: Global Const StoredJobsSubdirectory = "Jobs"
Dim AppPath As String: AppPath = ActiveWorkbook.Path
'other code in here - activeworkbook changed, hence previous line
If IsFileThere(AppPath & "" & StoredJobsSubdirectory) Then
ActiveWorkbook.SaveAs FileName:=AppPath & "" & StoredJobsSubdirectory & _
"" & NameString & ".xls"
Else
MkDir AppPath & "" & StoredJobsSubdirectory
ActiveWorkbook.SaveAs FileName:=AppPath & "" & StoredJobsSubdirectory & _
"" & NameString & ".xls"
End If............................
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 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 an excel spreadsheet used to populate word documents based on a template file that is loaded like this....
View 9 Replies View RelatedHow can I check if a file exists with VBA?
View 3 Replies View RelatedI 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)
I have some code that will Kill a DB if it already exists, but I want to check if it exists and warn the user before this happens.
I am not that familiar with ADO, so I was fumbling through the Help topics trying to learn about ADO type names, etc. b/c i thought I could use something like:
If TypeName(MyDB) = "ADODB" Then . . .
but even if that ran, the argument in parentheses would be a string and not the actual DB object, so I am at a loss.
In the following code, What do I need to add to allow the selected file to open when I click on it? I have a drop down menu that lists my .xls files.....as of now when I choose a file nothing opens.
Sub Auto_Close()
On Error Resume Next
Application. CommandBars("Patient List").Delete
On Error Goto 0
End Sub
'================================
Sub Auto_Open()
Dim cb As CommandBar
Dim ctrl As CommandBarControl
On Error Resume Next
Application.CommandBars("Patient List").Delete
On Error Goto 0
I am trying to prompt the user for the directory to be saved in and file name to be saved as; then save the workbook in the input directory with the inputted file name.
View 3 Replies View RelatedI have some code that copies a worksheet and saves into a new workbook and saves into a specified folder and renames the new workbook.
It is all working fine however it is saving to my desktop and not the specified directory. I know there is a lot similar out there and i have exhausted my google skills trying to find the similar format to the one i am after.
Code:
Sub MonthlyReset()
Dim sourceSheet As String
Dim clearR As Range
Dim newFile As String
[Code]....
I have been trying to process Excel files in a directory with the following
Sub FindExcelFiles()
Dim foldername As String
Dim FSO As Object
Dim fldr As Object
Dim file As Object
Dim cnt As Long
foldername = "c:usersseagreendesktopTuesdayFeb102009week ending feb 7 2009 esting2"
Set FSO = CreateObject("Scripting.FilesystemObject")
Set fldr = FSO.GetFolder(foldername)
For Each file In fldr.Files
If file.Type Like "*Microsoft Office Excel*" Then
cnt = cnt + 1
End If
Application.StatusBar = "Now working on " & ActiveWorkbook.FullName
DoSomething ActiveWorkbook
Next file
Set file = Nothing
Set fldr = Nothing
Set FSO = Nothing
Range("A1").Value = cnt
End Sub
Here's the stub for the subroutine that's being called:
Sub DoSomething(inBook As Workbook) 'Massage each workbook
'Debug.Print "Hello"
Debug.Print ActiveWorkbook.FullName
End Sub
I am using Excel 2007. I found out I cannot use Application.Filesearch as Microsoft has dropped this method for 2007. My problem now is that I just see "Now working on c:usersseagreendesktopTuesdayFeb102009week ending feb 7 2009 esting2file1.xls written six times in the immediate window.
I keep getting a compile error saying that my argument is not optional, stopping on FindFolder. I am using the following to verify that a folder named with the current Fiscal Year exists before my script runs. If the folder does not exist then it needs to be created.
_____________________________________________________
Private Sub CommandButton1_Click()
CurMonth = UserForm1.ComboBox1.Value
Fyear = UserForm1.TextBox2.Value
' Prevents script from running if no Fiscal Year is entered
' or month is chosen
If CurMonth = "" Then
Dialog1
ElseIf Fyear = "" Then
Dialog2..............
i want to improve some of my application by testing if a folder is accessible to the user... i've got some code to check if a file is already is use which is useful... but before that we have folders in work that are only accessible to certain users for reporting and if the person doesn't have access to it within a macro it Errors out... i'd like some kind of macro to display a message box like windows does... Directory is not accessible, Access Violation... it has to check directly for the Accessible part and not just an error...
View 2 Replies View RelatedHi all, this might sound really easy but I have a Named Range in excel 2003.
Now I'd like to write a VBA code to check if this range exists before carrying on futher computations.
how do i check if a shape exists?
i have a shape created by a macro.
sShape
so when i get rid of this shape i use
i would like to know whether a worksheet exists or not... say, the worksheet name is sheet1, i need to check whether the worksheet exists... the point is, i need to delete the worksheet if it exists and execute a code... if the worksheet doesn't exist also, i need to execute the code... so im getting a little confused with this... i need something like this...
if sheet1_exists then
delete the sheet
end if
my_code.......
I got a pivot table that when selected will give me a value (actually its an ID number) I want in H3. I then got a list of values outside of the pivot table in column J. If H3 matched any of the values in column J, I need a “Warning”, if not “OK”. I have been using the formula =IF(H3=J3,"OK","WARNING") to match selected cells (H3 with J3) but cant get it to work to look down the column list. The OK or Warning is in cell F34 out of arms way!
View 2 Replies View RelatedI have a userform that copies a sheet in the workbook, renames the sheet & creates a hyperlink to that sheet using the following code.
Private Sub cmdEnter_Click()
Application. ScreenUpdating = False
If ActiveCell.Column <> 1 Then
MsgBox "Go to column A to before inserting a row"
Exit Sub
End If
The problem I have is I can't figure out how to incorporate error checking if the sheet already exists.
What I would like is a message stating that the sheet exists and allow the user to make required changes on the userform.
Is there a way that I can check for the occurance of a specific value in a collection object like an Array or a Range in excel through VBA code?
For example I would like to check programatically if the value "orange" is present in an array by name Fruits(), where the array Fruits (3)=("mango", "banana", "apple").
I need to check if a folder exists and if not then create it. not sure how to go about this
View 2 Replies View RelatedI have a huge database consisting of zipped file names which i created by importing the directory listing into excel. The zipped files contain two files each an mp3 and a correspondent cdg file (karaoke files).
I continue to add new disks (as I acquire them) to my collection. the trouble is that new disks have some songs already in my collection and I do not want to waste space in hard drive with duplicates. The existing data is arranged in a worksheet by columns as follows:
Discnumber | track number| artist | song name | path | complete file name
what I would like to do is to check the ** listing after import it to excel in the same format (i can do this part ) and then check it against the 10,000 plus entries that i have if the artist-song name combination already exists in the data. If so return the row in a separate worksheet or pivot table so that i can check it. this way I would only save the songs I do not have in my hard drive thus avoiding duplicates and saving precious space.
I 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 am writing a macro for a my team. I will distribute the .bas file then have them run it. I don't know what their individual sheets in their workbook are called so I need to ask them. Grab various columns from that sheet, check if they have a sheet called data import, then put in the columns in order in data import.
I have:
Code:
Private Sub checkForSheet()
Dim sh
On Error Resume Next
sh = Worksheets("Data Import").Name
If Not Err.Number = 0 Then Sheets.Add.Name = "Data Import"
On Error GoTo 0
End Sub
to check if Data import is made
Then
Code:
Sub prepareData()
Dim SCMsheet As String, TSE As String
Dim DISh As Worksheets
SCMsheet = InputBox("Enter your SCM Sheet name in entirety.")
If SCMsheet vbNullString Then
[code]....
But it doesnt stop scmsheet is not in the workbook, and the values arent put in.
If the data entered in Column "I" starting from row4, exists in range "X4:X12" then "Pend for audit" should appear in Column "R" of the corresponding row.
below is the coding Iam using.
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim StateName As String
Dim CName As String
Set Cells_Changed = Target(1, 1)
[Code]...
Is it possible to have a macro to look urls in colA and respond back in colB if the url "found" or "Not Found / #404"
Sheet1
AB1http://marketheist.com/2010/09/02/Found2http://marketheist.com/2010/01/02/Not Found / #4043http://marketheist.com/2010/09/05/Not Found / #4044
Excel 2007
I have it like this
In column A is start of holidays
In column B is end of holidays
(one date written in A and one in B, and so on)
In C and D columns are start and end dates
Now I would like to check if start and and end dates of holidays, are between those dates in C and D
22/05/2006 24/05/2006
23/05/2006 24/05/2006
Check if first range of dates is between second one. Actually if holidays are between start and end date then check how many days are actually holidays in range of start and end dates
I 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 Relatediam trying to get a messagebox to notify the user that the text he has entered into the userform textbox is already in use in a sheets column. this is what i have been trying to get to work
Private Sub txtID_Change()
If Sheet3. Range("a8:a1000") = "B" & txtID.Value Then
MsgBox "Text already in use, Please use different text"
End If
End Sub
I am writing a macro which first needs to look and see if a certain worksheet exists. If it doesn't then I want it to create it but if it does I first want it to delete the sheet then create a blank one with the same name. At trhe moment I have this but it is scrappy and doesn't work very well:
On Error Goto AddSheet
If Sheets("MONEYSHEET").Activate Then Goto Data
AddSheet:
Sheets.Add before:=Sheets("LOOKUPSHEET")
ActiveSheet.Name = "MONEYSHEET"
Data:
It also does not delete the sheet if it already exists, just edits the existing one.