Application File Search Finds Nothing
Jun 23, 2009
I'm simply trying to search a directory for .xls files and count them. I have previously used the following code successfully to do so, but for some reason it has recently stopped working. Debugging shows .FileSearch.Count() = 0 after every search. I have atleast half a dozen .xls files in the "Reports" folder relative to the active workbook.
strReportDirectory = ActiveWorkbook.Path & "Reports"
With Application.FileSearch
.NewSearch
.LookIn = strReportDirectory
.SearchSubFolders = False
.Filename = "*.xls"
.Execute
'loop through each workbook in the directory
For i = 1 To .FoundFiles.Count
msgbox("I found: " & .FoundFiles(i))
next i
View 9 Replies
ADVERTISEMENT
Jul 28, 2008
in adapting the previous code to MS Excel 2007. I have found that the "application.filesearch" object no longer exist in 2007! The code goes to a file path and extracts the text and places the data in the specified excel column.
here's the original code as given by Parry:
[url]
View 9 Replies
View Related
Feb 13, 2010
I am trying to use Application.GetOpenFilename to search for a several (.jpg) files and list the file paths on a worksheet.
View 2 Replies
View Related
Nov 7, 2008
Search Column A for a name (using an array if possible). If it finds this name, add a string of text to the AA cell on the same row that it found the name on.
For example,
If in A1 it finds the specified name. It then adds a string of text to AA1.
View 2 Replies
View Related
Apr 4, 2007
I am trying to determine in code whether a file exists in a certain location. This seems to be very slow even in a folder which contains just one file. Is there any way to speed up this process? Three seconds seems like a long time especially given that I will have to loop through this Sub many times. The files I am looking for are CSV so I can't use msoFileTypeExcelWorkbooks unless I can modify what file extensions this looks for. I only started dabbling with VBA a few weeks ago so it is entirely possible I'm barking up the wrong tree and should be using another method to acheive my aims.
Sub CISORTEST()
With Application.FileSearch
.NewSearch
.LookIn = "C:TEMP"
.SearchSubFolders = False
.Filename = "MYCSVFILENAME"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute > 0 Then
Call DoStuff()
End If
End With
End Sub...........................
View 6 Replies
View Related
Dec 16, 2009
I need to open/launch
-applications like Outlook, IE
-files like .bat, .xls,
-folders (with windows explorer)
using VBA.
How to code this?
View 9 Replies
View Related
Feb 11, 2009
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.
View 9 Replies
View Related
May 21, 2007
I have embeded a PDF file in an Excel Worksheet. When I double-click to open the PDF file the I get an error message: "Cannot start the source application for this object." However, the pdf file opens anyway. how to prevent the error message from displaying (without stopping real error messages)? (...happens in Excel 2000 and Excel 2003) NB: I researched this site first - user "Ed" raised the same issue 27/1/03 - but it doesn't appear to have been resloved.
View 4 Replies
View Related
Jul 14, 2006
Im copying and pasting data from one workbook to another but when I want to close the source workbook, it comes up with this message that I have much data and if I want to keep this in a clipboard. I thought I could disable this with Application.DisplayAlerts = False but when I do this, Excel freezes. Im I doing something wrong. How can I supress this window?
Public path As String
Sub Get_data()
path = "\Nlchoosa.nlOPS_Processes$OPS_ProcessesReports Sector performance"
Workbooks.Open Filename:=path & "ReportsSector Performance Reporting week.xls"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
Windows("Sector Performance report Week.xls").Activate
ActiveSheet.Paste
Application.DisplayClipboardWindow = False
Windows("Sector Performance Reporting week.xls").Activate
Application.DisplayAlerts = False
End Sub
View 6 Replies
View Related
Jun 16, 2007
I'm practicing my VBA and can't get this practice code to work, the syntax looks good but all it does is set the current cell to 23. and I want it to keep going up the column until it find a cell with any value and then change it to say 23. if the value is empty it should keep going up.
Sub chngevalue()
If ActiveCell.Value Is Nothing Then
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell = 23
End If
End Sub
I did check the internet and my reference books and wasn't able to find a clear reason.
View 3 Replies
View Related
Jul 14, 2009
I have an excel book open called MIC and my code has a certain cell activated, and has a string stored in memory. What I need to do is search for that string in another Excel file (MCMAP) and once I find it select the entry directly to the left of it and then use whatever value that is to fill in the active box on the MIC file.
What I'm doing is mapping a abbreviation to it's full name which is stored in a file called MCMAP.
My main problem is how do I search for this string in another file? It will be somewhere in the "B" column and then get the info from the cell directly to the left of it (somewhere in column "A").
View 4 Replies
View Related
Jan 5, 2010
I need to create a search element in Excel. What I would like is to be able to enter a file or part file name into a cell and then push a button and the file is found and opened for me. How would I go about doing this. The files searched for would all be in the same folder so the whole hard drive would not have to be searched
View 14 Replies
View Related
Jan 2, 2007
I have a excel sheet and a pdf file. I want to search values of excel file in the pdf file. How can i do this via VBA-Excel. How to write a program, that will search data in pdf file.
View 2 Replies
View Related
May 1, 2007
I need to search for values from my excel spreadsheet row A ('Picture #') in a folder on my C:, with a match from the spreadsheet in the file name of the folder I am searching, I need the matching file copied down to a different file. Also, I would like it to keep a record of error searches. So I separate tab on the spreadsheet being searched from to show which of the values from row A were not found.
View 9 Replies
View Related
Mar 13, 2014
i want delete row E&F depends upon blank cells in range of F:F column...though vba
View 6 Replies
View Related
Dec 23, 2009
deletes a row if it finds a specified value in a specified column (in this instance, "NB" in column E). However, it is very slow and some end users are complaining about the amount of time it takes to run. Here's what I'm using at the moment:
View 5 Replies
View Related
Dec 17, 2007
I have a macro that needs to walk down a list of values and when it finds breaks in the values, it will insert a formula for a calculation. The problem I'm having is getting the code to loop correctly until it finally finds the value "End" when it should stop (when I play around with the code, sometimes I can get it to continue the loop, but it blows past "End" and then it experiences an error because it can't end.
Sheets("Master").Select
Range("B1").Select
ActiveCell.Offset(1, 0).Select
AssetIDStartRange = ActiveCell.Address
X = 0
Do
ActiveCell.Offset(1, 0).Select
X = X + 1
Loop Until ActiveCell.Value ""
SortCriteriaName = ActiveCell.Value
ActiveCell.Offset(-1, 1).Select
ActiveCell.Formula = "=SUMIF($B13:$B5000," & """" & SortCriteriaName & """" & ",$H$13:$H$5000)"
ActiveCell.Offset(0, -1).Select
If ActiveCell.Value "End" Then....................
View 9 Replies
View Related
Aug 17, 2009
I'm tying to finds the most recent X or O. Then takes the price on that day and compares it to the current price and based on the difference either higher or lower puts out an X if the current price is higher and an O if the current price is lower by the Half StartData - however when i get to about 6 IF statement it freeze up and it wont give me the X or O's ...
View 9 Replies
View Related
May 20, 2006
I'm trying to get a count of the number of workbooks in a directory and it keeps returning 0 when there are three WBs in the directory. What am I doing wrong?
Here is my code.
With Application.FileSearch
.LookIn = "C:Documents and Settingsdt64864DesktopTesting"
.Filename = "*.xls"
.FileType = msoFileTypeExcelWorkbooks
.Execute
MsgBox (.FoundFiles.Count)
End With
View 9 Replies
View Related
Dec 17, 2008
I'm using Excel 2007, so no .filesearch
I want to search a folder for a file containing a certain phrase. Would like to use a case option like in java.
search for file containing "aaa", "bbb", "ccc", or "ddd"
then if file exists
View 14 Replies
View Related
Oct 1, 2012
I have created a file which generates a file name from information entered in certain cells
Code:
Sub SaveAsExample() On Error GoTo Err1:
Dim FName As String
Dim FPath As String
FPath = "O:PHC BomsDropbox - Stage & Gate"
FName = Sheets("Control Sheet").Range("B1").Text & " " & Sheets("Control Sheet").Range("B2").Text
ThisWorkbook.SaveAs Filename:=FPath & "" & FName
Err1:
Exit Sub
End Sub
Control sheet B1 = SG999
Control sheet B2 = Product Description
EG - SG999 Prod Description.xlsm
Now here's the problem -
Very occasionally some users may edit the Prod Description & then need to re-save
So i need to create some code which looks for an element of the current file name in a Directory (O:PHC BomsDropbox - Stage & Gate) EG "SG999" (Which could be 5 or 6 characters in length (if we go over 1000)
Delete this file, replaces it with the new file with the edited information.
View 3 Replies
View Related
Feb 1, 2008
I'm looking to have a row at the top of a worksheet which I can type in, so that only the rows below which contain that information will show up. For example, say I have the following 3 rows, 2 columns each:
Cat Feet
Cat Head
Dog Feet
I'd like to have an additional row so that if I typed in "Cat" only the "Cat Feet" and "Cat Head" rows would show up. Likewise, if I typed in "Head" in the proper column only ""Cat Head" would show up.
View 10 Replies
View Related
Apr 30, 2009
On Error GoTo importError
For Each b In Range("names")
If b = FILE.Sheets("Sheet2").Range("e3") Then
ThisWorkbook.Activate
ThisWorkbook.Sheets("Sheet2").Select
b.Row.Value = n
For Each c In Range("dates")
If c = FILE.Sheets("Sheet2").Range("e5") Then
ThisWorkbook.Activate
ThisWorkbook.Sheets("Sheet2").Select
c.Column.Value = m
ActiveCell = nm
Set Targ = ActiveCell
Targ = system
Targ = FILE.Sheets("Sheet2").Range("e20")
End If
Next
It doesnt work, it gets to b.row.value and throws up an error, i realise im using the wrong code but I dont know enough vba script to resolve the issue
I have a timesheet and a data base spreadsheet, the db spreadsheet opens the timesheet (many, one after another) and I want it to look for each name in the db and if the name cell on the timesheet it has open matches then i want it to remember the row value (on the db), then look through the dates in the db until it finds the matching date to the one in the timesheet, i want it to store this column value (in the db) so I can concat the row and column to get the activecell where I will be putting the total hours (a single cell reference) from the timesheets into the db.
View 9 Replies
View Related
Jan 25, 2010
I need to add a space in front of a string of numbers/letters, but it still doesn't seem to match what's in the lookup range. Granted, i get the lookup range from HQ, so there may be a formatting issue.
View 2 Replies
View Related
Oct 17, 2006
I need a piece of VBA code to assign to an Excel form that determines the maximum value of a subset of one column whose cognate rows in an adjoining column satisfy a particular value.
View 2 Replies
View Related
Jun 14, 2007
I am trying to make a macro, but because of my inexperience, it's not working out. I have got a big list (list 1) of numbers in column E. each number has some information in the cells of columns C, D and L, all in the same row. on the same sheet, I have got another, smaller set of numbers (list 2), also in column E but at the bottom of the sheet. the numbers in list 2 are all present in list 1 (but not all numbers in list 1 are present in list 2). the columns C, D and L on the same row of the numbers in list 2 are empty...............
View 4 Replies
View Related
Aug 8, 2014
I have a macro that saves zip files automatically from outlook every day and saves over those zip files (which I want). But now I need to unzip those files and save their csv files in a different folder. I will be saving over the same csv files everyday.
(I have 5 zip files saved and named and each file contains just 1 csv file)
I have had a look at Ron de Bruin's code but he requires you to open the and search for the zip file. I would like this to unzip and save automatically without having to use "Application.Getopen".
View 1 Replies
View Related
Dec 8, 2003
The mini project I've been working on does pretty much what I want it to do. It takes a list of script names and by providig it with the scripts folder/server and database the scripts are run and the log files are dumped in a newly created folder named logs.
Now that I have established how to check for the existence of a folder and creating new folders in Excel VBA, the next step is to check for the existence of a particular text file and if it exists, search the contents of that file for a specific word or sentence.
I need to know which objects and methods provide such capability [if any]
View 4 Replies
View Related
Jun 20, 2014
I need to read an excel file on share point. The file name is like 'file_name.Vx.x.xls'
Where x.x is an incremental and can change. How can I retrive the correct name?
View 1 Replies
View Related
Feb 13, 2008
I would like to write a mocro which open the search files in a folder window. The window will get parametrs through the macro and should show the results.
I tried to record it from file menu, but it didn't work.
View 9 Replies
View Related