VBA Code To Find A Folder Name Within Parent Folder That Contains Defined Text

Jul 23, 2014

I have an Excel VBA Macro for creating/logging drawing numbers. Each drawing belongs to a job number. Each job number has a folder name containing the job number followed by a description (ie 999999 - bracket assembly) for storing drawing pdf's. The job number is only known as a 6 figure number in the drawing creation process BUT for the PDF saving process it is a string value...as my example above

I have to change my process by pre-creating the Job Number folder, then have the macro look for the appropriate folder by searching the parent folder for a sub folder containing the job number (always the first 6 figures).

I want to insert in my macro some code that searches...

The parent folder for a folder containing the job number. The macro value for the parent folder is P:engineeringdrawings (this never changes). the macro value for the job number is iOpenair (it's an entry that is entered as start the macro). Imagine the value for the job number is "999999"...so the search would be for "999999*.*" The code needs to search the parent folder, find the folder name that begins with a six digit number. Capture the complete name of the folder and store that name as a Dim value that I can call up elsewhere in my macro.

View 9 Replies


FORMULA To Display Parent Folder Name

Dec 18, 2008

a FORMULA (not a macro) that can be used to diplay the parent folder name in a cell? I don't need the file name or workbook name, just the folder name.

My Workbook is stored in the following location: C:FilesExcelFiles

I want a fromula to return "ExcelFiles", since that is the parent folder

I have searched previous threads but found no resoultion.

View 9 Replies View Related

Lookup Folder From Cell Text Then Save Excel File In This Folder

May 14, 2014

I have alot of project folders on my harddrive.

All in format: I:/12345-costumer-projectname/

The five digits are unique for each project.

I make calculations for these projects using an excel file. In this excel I also type the projectnumber (cell J2)

Now i would like to make a button. When pressed, it checks the projectnumber cell J2, looksup the corresponding folder and saves the excelfile in PDF format in this folder.

I have found macro to find files in folders, but none which do the above.

View 4 Replies View Related

VBA Code To Find Last Modified Document In A Folder

Dec 18, 2012

I currently have a code that searches a folder, opens a spreadsheet, and then copies over the "Status" tab to the Master document.

New spreadsheets will be created a couple times a week, so I would like the code to be able to search this folder for the most recently modified document and then open THAT document.

So, if my folder has..

Report 10May11
Report 05May11
Report 17May11

Then, I would want a code to search in this folder for the most recently updated document (in this case "Report 17May11.xlsx) and then go through the step I have above where it copies over the various tab.

Basically, this code would I guess replace the example code I have below.

Sub WorkbookOpen()
End Sub

View 8 Replies View Related

Excel 2003 :: Extract Variable Rows Of Cells From Files In A Folder To Existing File In Folder

Mar 15, 2013

I need a macro in a workbook to look at all the files in the same folder that have "*att*.xls" in the name and determine and copy from the range A15:W515 only the rows that have data in at least columns A, C and D. Each file will vary as to how many rows there will be and there are more than the files with "*att*.xls" in the folder. The data will be on the only worksheet in each file and the worksheet is named "G2WAttendee_xls" the data from all the files need to be copied to the file called "Consolidated webinar reports.xls" (I am using Excel 2003) and to a sheet called "Attendance Data" and added to the end of the last paste.

At the start of the macro the current file "Consolidated webinar report.xls" should be saved to a sub folder of the current directory and have the date saved added to the name. The sub folder is called "Completed reports". The data in the original file on worksheet "Attendance Data" should be deleted.

At the end of the process all the files that have had data copied from them should be moved to the sub folder "Attendance reports consolidated" (This could be done as each file is closed if that is easier).

I have headings in row 1 of the "Attendance Data" worksheet that match the headings in the various files in the folder (which will always be in row 14 of the individual "*att*.xls" files).

The folder with all the files and the "Consolidated webinar report.xls" file is at path "Z:P and S MEvaluationsWebinar series 2012-13TB".

View 9 Replies View Related

For All Workbooks In Folder - Copy Range To Different Workbook - Save To New Folder?

Apr 21, 2014

I have up to 50 workbooks in one folder with data in a specific range. I also have one workbook which includes additional data, including conditional formatting and dropdowns. I need to copy the desired range from the first workbook in the source folder to the second workbook, then save the latter to my destination folder, using the same name as the first. I need to repeat this process for all workbooks in the source folder.

View 2 Replies View Related

Excel Starts With Blue Window When Alternate Startup Folder Is Defined

Jul 10, 2013

I have tried to define an alternative start-up folder (my goal is to have a PUBLIC.XLSB to store Macros every one can use)

BUT: When I do this, Excel does not start with any open workbook anymore. It starts with a blue background, and need to click "New" first for a workbook to open and work in.

How do I avoid this? One solution that would work, but requires the user to have Macros activated, is to add a workbook during the opening of Excel, but I would like to avoid this.

View 7 Replies View Related

Change (Browse For Folder) To Automatically Locate Sub Folder

Jul 23, 2012

I am creating a document for work that automatically generates hyperlinks to pdf files in a given sub folder. Currently I have a section of code that opens a window to choose the folder location.

'Prompt user to select a directory
Problem = False
Set ShellApp = CreateObject("Shell.Application"). _
Browseforfolder(0, "Please choose a folder", 0, "c:\")

On Error Resume Next

[Code] ........

What I actually want is to not have the window open, but excel automatically choose the sub folder location.

The directory looks like this

The xlsm file is stored in the DRAWINGS folder, and I need it to point to the PDF folder.

View 9 Replies View Related

Image Folder - Save 500 Images In Another Folder?

Jul 18, 2014

I have a list of items in an excel sheet... 500 of them... and there are images for them in an other folder... The problem is those images are in 1000's and I only need those 500 images.. Images are saved as "SKU.jpg eg NS2354.jpg and we have an SKU column in excel as well .. SKU and their images have same name...

Is there any solution to pick up only those 500 images from those thousands of images?

Is it possible to save those 500 images in an other folder?

View 2 Replies View Related

Macro To Locate Folder In A Folder And Save

Apr 13, 2009

looking for some code to save to a destination

destination address is
C:Documents and SettingsstDesktopOJF

now the problem is OJF has folders named 1 to 500

so if cell d5 = 487 it will need to look in the above desination and then open the folder and save it there.

View 10 Replies View Related

Loop Through A Folder And Save In Different Folder

Apr 26, 2014

I would like to create a code that will open all workbooks in folder "A" one at a time and then close the work book after another code is executed. So one workbook will open and while the workbook is open, I will call another code to format the active workbook and then the active workbook will be saved in folder "B" and closed and go to the next workbook in folder "A" to start all over. The folders are saved on the desktop.

View 5 Replies View Related

Locate Folder From Part Of Folder Name

May 23, 2007

if it's possible to use XlDialogOpen to open up a folder that you only have part of the name.

For example, say you have the following folder paths:

C:Main FolderSubfolder1Smith,Billy 2413
C:Main FolderSubfolder1Brown,Charlie Ray 2416
C:Main FolderSubfolder1Bunny,B 3619
C:Main FolderSubfolder1Fudd,E-G 1864

What I'm hoping to do is just look for the 4 digit number on the end finding that folder name and opening it up. The name conventions before the 4-digit serial number are quite random. Sometimes it includes their full first name, other times it's just an initial for the first name and other times there are other characters included in the name. The one thing that is constant is the 4 digit serial number on the end.

how I could get the Open dialog box to pop up and have the chosen folder number open?

View 6 Replies View Related

Find Any Ones Desktop Folder

Jun 3, 2009

I am having an issue with trying to find anyone's desktop folder. I'm trying to write a path to the desktop but once again the desktop is different on every computer. The problem line is in red.

View 8 Replies View Related

Find Path With Only Having Folder Name

Apr 11, 2012

Is there a way to find a folders path? I have a folder Dropbox

I want to find the path up to this folder on the current computer. Is there a method to accomplish this?

I am fine if you want to give VBA code so I can put it in my immediate window for now and then I can attempt to add it to existing code later.

So an Example of the possible result would be
Directory is C:MyNameUserDropbox
Or on another computer maybe C:User1ListingFilesDropbox

View 9 Replies View Related

Find Filename In Folder

Apr 10, 2007

I have created a separate SAVE button that when the user hits that button, it saves the file in a network drive using the current date as part of the save-file name. Ie: Sheet20070408.xls, Sheet20070409.xls, Sheet20070410.xls, and Sheet20070411.xls.

I am currently working out all the "idiot proof" safety features. My code looks something like this:

oldfilename = ActiveWorkbook.FullName
newfilename = "C:NetworkFolder" & format(date, "yyyymmdd") & ".xls"
ActiveWorkbook.SaveAs Filename:=newfilename
ActiveWorkbook.SaveAs Filename:=oldfilename

Why am I saving it twice? When the user clicks SAVE, I want to save over the copy of the current sheet they use, even if they save it on their desktop, and then save it to the network drive. This way, if they keep a second copy in an easy to find location, it will save the data to that sheet as well. Just in case they forget to save on the current sheet. I need to be sure each copy of the file has the most up-to-date information, as well as save a copy for retention.

My question is this: Can I search a folder for an existing file name? If the user goes into the network drive to open an old file for retention and they click SAVE, I don't want to accidentally overwrite a file in the retention folder.

View 4 Replies View Related

Code To Select A File Instead Of Folder

Jun 2, 2014

I have a code that gives me path of all files inside a folder. I want to modify it.

I want to select files (individually or in group) inside a folder and then get the path. All files are .xlsx in folder.

[Code] .....

View 1 Replies View Related

Getting Source Code From HTM File On Folder

Jun 11, 2014

I want to get source code of htm file. The files are on my folder (E:SepehrData).

The files names are like A2 [F1].htm, E2 [F4 conv].htm, E2 (DC L180G).htm and etc.

I want to bring all source code (with the tags, ) on a worksheet at column A in cell A1.

Example below.

HTML Code:
<!DOCTYPE "-//DTD HTML //EN " html public>
****** content="Vanemeze">
****** charset="ISO">
<BODY>******** type="text/javascript" src="..showHide.js">

[Code] ..........

View 2 Replies View Related

Code To Check For And Create New Folder

Sep 13, 2006

I have a macro that creates a spreadsheet on a weekly basis and have been using it for quite sometime. Due to the large number of spreadsheets I would like to incorporate some code that would create a folder every month. I would assume that the code would need to include a check routine to see if a folder for that month exsists.

View 3 Replies View Related

Find A Folder Extension Macro

May 23, 2008

this query has now took a peculiar twist in the fact that my boss now wants to change the goalposts

here is a thread with the code in


View 14 Replies View Related

Find Newest File In A Folder

Oct 29, 2008

I am doing a project for work at the moment where by I have to manipulate a report compiled by an external program and do various bits and bobs to it. Trouble is, the other program creates a new version every time it runs the report (i.e filename.1.xls, and the next day filename.2.xls, and so on). Is there any way of searching the folder these files are in to find the newest file and select that one as the one to open and manipulate? There will be no files other than these in the folder.

View 5 Replies View Related

How To Find The Next Workbook In Curent Folder

Apr 10, 2009

How could I find the next .xls file in the current folder using VBA?

View 9 Replies View Related

Find Workbook Name In Specific Folder

Oct 27, 2006

I am trying to have a worksheet linked to another workbook, but this workbook name will change. It will always start with Blockbuster - Valuation but the rest of the file name is the date and the version of the workbook. Do you know how VBA can go in a folder and look for the entire file name of a workbook starting with Blockbuster - Valuation.

View 3 Replies View Related

Code To Create Folder And Inside Subfolder

Mar 7, 2014

The code below is sending back an error. It's supposed to create a folder and a subfolder within it and if the folder already exists then a msg box should pop up saying that folder already exists.

[Code] ....

View 14 Replies View Related

Import From Specific Folder - Merge And Find

Apr 4, 2014

I have the attached xl. I want to make import from a specific folder other xl files and after that I want the sheet 1 to find if the values in column g and m (together in the same time) can find it in other xl files. If yes then this values in sheet 1 must turn to red. Can this done?

View 1 Replies View Related

Find And Open File In Specific Folder

Mar 13, 2007

I am trying to write a macro to find a file in a specific folder. The file name changes weekly. (Ex. C:My Folder31207.xls). I need to find the most recently modified version of the file and open it.

View 4 Replies View Related

Excel 2010 :: VBA Code To Open Save As Box In Specified Folder

Apr 24, 2014

I have windows 7 and excel 2010 and am using a macro that opens up a csv file(I think) of daily reports into Excel and then automatically delineates it and formats it how I want it. I will be using this to save a new file every day for the reports from the previous day and want to include at the end of that macro a way to prompt the user to "save as" so that each day they can run the macro and enter in the date and save that report for further use. I am wondering what VBA code I could use at the end of the macro code to prompt the Save As box and if I could already have the save us set up in the following folder... "W:Daily to Fortis Excel2014(the user will put in the date here)".

I've been looking around sites and trying to figure it out. I need the file format to be the same as when you save as "Excel Workbook". I was trying to use the Saveas (filename) function and could get it to save every time as a specific file name in that location but when I run it the next day it has the same name and saves over itself. So I need the user to be able to put in todays date as the filename to create a new one every day.

View 7 Replies View Related

Run The 'loop Through A Folder' Code On Multiple Workbooks I Receive

Jun 5, 2008

I am trying to run the 'loop through a folder' code on multiple workbooks I receive.

The workbooks I receive are full of drop downs that have associated values of 1-3 on the first sheet. (About 100 in total) This particular workbook has the drop downs on one worksheet and the numeric results on another worksheet 'Results'

The second workbook 'Totals' (very basic) , just referenced each 'Results' worksheet and had equations that averaged all the drop downs cell by cell.

I would love to be able to use the 'loop through a folder' code to open them and then average them on the 'Totals' sheet. The main reason is that I am delegating this to another person and would like to eliminate the risk or human error. ( unless it is my own)

I am a total VBA n00b. Any assistance would be appreciated.

If needed I can upload the code or sheet as an example.

The base folder would always be the same. ie c: estresults*.xls

The naming would be very similar.

This loop code seemed relevant as it did not seem to require any file naming and would run through a folder and process all XLS files.


View 14 Replies View Related

Macro Code To List Files In Specific Folder

Apr 15, 2008

I am unable to install a disk catalog and have been trying with no success to try and get something in excel that will look at a directory and display the contents of that folder with the file attributes etc

View 2 Replies View Related

Find And Replace Values In Closed Workbooks From A Folder

Jul 15, 2009

Is there a way to find and replace the values from a closed workbooks of a folder.
say i have some 15 files in a folder c:/test

I want to find all "Ltd" and replaceAll with Limited
and find all "Co" and replaceAll with "Company" etc (some 20 different values to be found and to be replaced) if this is in a single file i can easily record a macro to this job, i am stuck for doing 15 files at one shot.

View 9 Replies View Related

Importing Text From Folder

Aug 10, 2009

every quarter we are getting information in the form of txt. what i would like is a simple macro to import all the text files in the folder. importing txt files are easy when u know the name of the exact file however i want to import every txt file from the folder.

Sub EasytxtImport()
ActiveWorkbook.XmlImport URL:="D:DocumentsSettingsDesktop emp rans.txt", ImportMap:=Nothing, Overwrite:=0, Destination:=Range("$a$1")
End Sub

View 9 Replies View Related

Copyrights 2005-15 www.BigResource.com, All rights reserved