I'm trying to create a function to count the number of files in a folder then add one.
I'd like to refer to the function in my spreadsheet, so I can generate a new reference number for my sheet.
Here is the code I've used so far, which I've made reference to in my sheet by typing "=countfiles(Q3)" (Q3 contains the name of the folder I want to search in.
Function countfiles(ByVal foldername As Integer)
With Application.FileSearch
.LookIn = "C:Temp" & foldername
.FileType = msoFileTypeExcelWorkbooks
.Execute
nooffiles = .FoundFiles.Count
End With
countfiles = nooffiles + 1
End Function
When I use simlair code in a macro, it works:
Sub countfiles2()
With Application.FileSearch
.LookIn = "C:Temp" & Range("Q3").Value
.FileType = msoFileTypeExcelWorkbooks
.Execute
MsgBox (.FoundFiles.Count)
End With
End Sub
Obviously, I would prefer the function option, with reference to it in the cell.
Is there a way that I could monitor the number of files in a folder and its contents (including subfolders)?
Folder A: (total count of files) Subfolder Folder A.1 no. of files containing boy Folder A.2 no. of files containing girl Folder A.3 no. of files containing boys and girls
I'm trying to create a macro that will find the parent folder of the active workbook, zip all files within that workbook, then email that zipped file to a distribution list that is located in a separate file within the same drive. ideally, afterwards it would also delete the zip file that had just been created. The vlookup would reference a stationary cell within each of the files i use (same tab name and cell location) 'Summary'!B2
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".
I want to allow users to place files (.jpg, .tif, .pdf, .pps etc) into a network folder and then have my program open each file and display it for 30 seconds then close the file and the application before opening the next file.
1. Set up a loop to get a directory listing of the folder and write the listing to a text file.
2. Open up the text file and get the next filename in it
3. Open the file in the associated application
4. Wait for 30 seconds (or some period of time) and then close the file
5. Repeat steps 2-4
DoIt = 1 While DoIt = 1 Open "C:TempList.txt" for output as #1 Print #1, Files In Folder Close #1
Open "C:TempList.txt" for input as #2 while not eof(2) Line input #2, MyFile Display MyFile on screen Wait for 30 seconds Close MyFile and MyApplication that opened it wend Close #2
I can get the directory listing just fine with no problems
I can open the files in the associated application just fine with no problems.
with closing the application after 30 seconds or some period of time.
I need some code that will allow me to easily send it a filename and it will know how to close the file and the application that opened it.
I have an Excel application (Excel 2003) which is stored in the default Program Files folder by the Installer; for example: c:program fileszxchello.xls. The problem I am running into is this file opens as Read Only in Vista and this is interfering with the running of the application. There is no problem opening the file normally in Windows XP.
I have been able to narrow down the cause of this to the User Account Control system in Vista - if I turn OFF User Account Control, the Excel file opens normally and my application functions normally. Is there another option to open the Excel file without turning OFF User Account Control because some users may find it unacceptable to turn OFF this security feature. Ofcourse, one option is to install the application in another location, outside the Program Folder, and the file would open normally, but the Packaging Wizard that I am using to package the application does not allow me to install the application in any other location and thus, the application installs in the Program Folder and I am running into this problem of the Exel file opening as Read Only. Is there a way out of this situation where I can open the file normally (not as Read Only)?
I is it possible to convert all comma separated text files in a single folder in to excel files. But the requirement is to have 2 sheets in each new file. first to be the full file - with all columns, and in the second sheet to keep only colum A B D G H K L M O P R S T V W from the first sheet. The second sheet name must be the same as the first one but without the first "wlist_" in the name.
One more thing. The third column in the second is called "COUL". there are short letters for colors in french
can they be converted with the sort in English like it goes:
NO = B BA = W RG = R SO = P JA = Y BE = L VE = GY GR = G VI = V MA = BR BJ = TA OR = O
Here is a link to the both CSV and an example excel file with the end result. In this example i haven`t change the shorts for the colors. It takes me too much time with the find and replace function. And at the moment i`m really pushed from time.
Is there a code that will search a pre-determined folder for all .xls files containing the word "Temp", and deleting those files?
Example: In the root of drive M, I have several Excel files. Anytime one of the original tracking logs is opened, a temp file of that log is automatically created. I would like to automatically search the drive and delete all files containin the word "Temp".
I've attached a picture of the directory tree, in case that will help. The file will always be named "PO Response Tracking - Temp#######.xls", with ###### representing a series of either 5 or 6 numbers.
vba to copy files (pdf / cad) from various source to destination folders. Column A will list the source of the PDF files, Column B with the file name, Column C with the destination folder. Column D with value Y or N with Y denoting Yes to Copy and No for No. I have like 30000 rows of data.
I would like to create a Macro which does the following task. I have a Workbook Master.xlsx with a worksheet "source". The path of Master.xlsx is C:Test
In the Directory C:Testprojects i have about 50 files which all contain the String "Forecast" in their filename. These Forecast Workbooks need an update in the Worksheet "actuals"
So, i need a Macro that copies WS "source" from WB "Master" to WS actual in all WB's Forecast.
I've (almost) got a macro that modifies & saves a file. I don't want to post it yet because I need to clean it up and I've got a ton of REM'd out statements that I need to flush before I go public....
How can I modify it to open each file in the folder? I'm looking at several thousand files that need to be changed and put away in the correct folder.
(and I say almost because I had it and accidently ran it on my personal workbook and it deleted itself....
I have a folder C:My Documents that contains excel & Pdf files. Is it possible to list all the files by name contained in this folder in a excel spreadsheet i.e one filename one cell?
I have created a Spreadsheet that does all of the calculations, analysis, graphs, etc. that i need; however every time I wish to use this spreadsheet I need to first open up a spreadsheet with data, copy it and then paste it into the original spreadsheet. While this is not horrible, it is quite tedious to do several thousand times.
Thus, I was wondering if it were possible to create a Macro that would open up all files in a specific folder, then select each one and paste the relevant data into my original spreadsheet. I know this possible for specific files; for example, I have created a Macro that will select files data.xls, dats1.xls, data2.xls, and paste these into the spreadsheet, but I was wondering if there was a way to generalize this so that it will simply open every file regardless of the name or how many files there are in the specific folder.
I'm a novice with VB, so go easy on me. I'm trying to write a macro to copy the same couple of cells from hundreds of excel files and paste them into one summary file. What I've written so far is:
I am trying to come up with a macro that is able to open a .htm file in Excel, perform a set of code, close the file, then repeat the process with the next .htm file in the folder. I found the following post which has helped me thus far, but there is something that is not allowing Excel to open the .htm files even though there is no problem opening them in Excel manually or with another macro I've made. Here is the link to the set of code I'm currently working with:
I've put some .xls and .csv files into the target folder and the program works perfectly which tells me Excel is having a problem with the .htm format for some reason. Here is the set of code I currently have which I have slightly modified for the new file format:
I have several (around 35) CSV files that I download regulary. Is there a quick way to rename all the CSV files in a given folder based on adding "Update_" to each file name.
E.g Say two of the orginal files are called:
Monday.csv Tuesday.csv
I'd like to run some kind of macro to rename them to:
In the code below I would like to add to move these files:
byemployee.csv byposition.csv status report.xls bydepartment.csv
and if the file byband.csv exists, then move also otherwise ignore. I want to move to the folder Uploads which is also found under the variable MyPath
If it cannot be included in this code, then I have no problem with a new one.
Private Sub Exitbtn_Click() Dim MyPath$, MyName$ Application.ScreenUpdating = False Call chooseView.hideSheets 'Save the file to this path and type file name
I have the following two folders located in my D Drive:
1. D:FilesData
2. D:FilesArchives
I have lots of files (.txt) in the first folder (D:FilesData) from which I need to move all the files whose first character is starting with _(underscore) to the second folder (D:FilesArchives).
I found some code on here the other day which will do though all the files in a folder and send them to a zip file which works great how to zip a single fixed file. I down load files from our oracle system daily and need to keep them but want to keep the file size down.
Code:
Sub ZipPackage() Dim ZipFile, TargetFolder, NewFileName, ofile Dim o As Object
[Code]...
But the "ofile" doesnt contain the file type. Is there away to adjust this code so it recognises what the file type is?
I have a prompt for the user to select a folder and then assign the path a variable. I would then like the VBA macro to open all files within that folder (no sub folders) that end in .xls.
Every week I get a folder full of files and I have to rename them with a week ending date...Below is what I hacked together, but it's not working...
Sub Rename()
Dim OldName, NewName, npath As String weekendingdate = InputBox("What is W/E Date??") npath = "J:Test*.pdf" While Smith "" OldName = Smith: NewName = Smith & weekendingdate Name OldName As NewName Wend
I haven't really been able to find a total solution to an issue I have had for a while and hope someone can help.
I have a series of workbooks that I create from Crystal reports, I want to do the following after clicking a button on a form:-Open up two files in a folder with similar names (IL-BA, IL-BA-19), both have the same headers
Open a Third file, this is my 'Master File' and is in a different location, this has the same headers
Copy from the two files onto 1 sheet on my master file (excluding the headers) Close the first two files without saving and move them to a 'Done' folder Save and Close the Master File
Move onto the next set of files in the folder (NE - BA,NE - BA - 19) and do the same again, until all the files in the folder have been completed.
All the files in the folder have different data, so have different headers, but the Master file for each set will always have the same headers, (if that makes sense), but they are specifically named, so cycling through the named files in the folder, merging the two together.
My main problem is that I can't seem to find all the code i need, i can merge the two files, either in different sheets(which i don't want), or with the headers for each file still attached (as i can't seem to find a robust way of removing them).
I have the below macro which had previously worked for me, but now I am getting a runtime error. I tried troubleshooting this on my own now, but am coming up with nothing.
Sub ReName_Files() Dim rFiles As Range, rCell As Range Dim StrNewName As String, strOld As String Dim strPath As String Dim wbOpen As Workbook
Application.ScreenUpdating = False
Set rFiles = Range("A1", Range("A65536").End(xlUp)) strPath = "E:FinanceUtilization Reports2008Month End"
For Each rCell In rFiles strOld = strPath & rCell StrNewName = rCell(1, 2) Set wbOpen = Workbooks.Open(strOld) wbOpen.SaveAs strPath & StrNewName wbOpen.Close Next rCell Application.ScreenUpdating = True End Sub
I would like to get some help on choosing the right files through vba codes. I have the dates in cell a3 and b3 and all my files ends with the date. The user inputs the date and the code should get the data within that date.
I would like to get some thoughts on how to get the value of cell a3 and b3 and open only those files from the folder.