Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch parameters locked
No, the trouble appears before.
At the step "With Application.FileSearch" the LookInd state is already "\\ACB0SR40\16055\", and it doesn't change after the step ".LookIn =...." and this for any directory I choose!! It's like as if it was locked, and I do'nt how to unlock it. "Brent" wrote: i think for .Filename = ".txt" it should be .Filename = "*.txt" otherwise you just get files with no name. "Shadok" wrote: Hi, I want to open all the text files of a directory with the following code : Application.ScreenUpdating = False With Application.FileSearch .LookIn = "\\ACB0SR40\16055\Celine\Autocentrage\Fichiers mesure\" .SearchSubFolders = False .Filename = ".txt" .MatchTextExactly = True .FileType = msoFileTypeAllFiles .Execute If .Execute() 0 Then For i = 1 To .FoundFiles.Count NomFichier = .FoundFiles(i) Workbooks.OpenText Filename:= _ .FoundFiles(i), Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _ Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _ Array(2, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True .......... but when I run the code step by step I can that the LookIn parameter value still only is "\\ACB0SR40\16055\" which is my default directory. So, there is no .txt files found never. How can I make my path be accepted ? Thanks a lot for your help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch parameters locked
According to the Help on the FileSearch Object:
"Use the NewSearch method to reset the search criteria ....... Having said that, I would avoid the FileSearch as it appears flakey in its results/behaviour. Also, it has been removed from Office 2007. You can achieve all the same functionality with VBA's built-in Dir( ). NickHK "Shadok" wrote in message ... No, the trouble appears before. At the step "With Application.FileSearch" the LookInd state is already "\\ACB0SR40\16055\", and it doesn't change after the step ".LookIn =...." and this for any directory I choose!! It's like as if it was locked, and I do'nt how to unlock it. "Brent" wrote: i think for .Filename = ".txt" it should be .Filename = "*.txt" otherwise you just get files with no name. "Shadok" wrote: Hi, I want to open all the text files of a directory with the following code : Application.ScreenUpdating = False With Application.FileSearch .LookIn = "\\ACB0SR40\16055\Celine\Autocentrage\Fichiers mesure\" .SearchSubFolders = False .Filename = ".txt" .MatchTextExactly = True .FileType = msoFileTypeAllFiles .Execute If .Execute() 0 Then For i = 1 To .FoundFiles.Count NomFichier = .FoundFiles(i) Workbooks.OpenText Filename:= _ .FoundFiles(i), Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _ Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _ Array(2, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True .......... but when I run the code step by step I can that the LookIn parameter value still only is "\\ACB0SR40\16055\" which is my default directory. So, there is no .txt files found never. How can I make my path be accepted ? Thanks a lot for your help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch parameters locked
I use Office 2003...but thanks a lot for the idea of Dir( ), it's easier and
it works ! "NickHK" wrote: According to the Help on the FileSearch Object: "Use the NewSearch method to reset the search criteria ....... Having said that, I would avoid the FileSearch as it appears flakey in its results/behaviour. Also, it has been removed from Office 2007. You can achieve all the same functionality with VBA's built-in Dir( ). NickHK "Shadok" wrote in message ... No, the trouble appears before. At the step "With Application.FileSearch" the LookInd state is already "\\ACB0SR40\16055\", and it doesn't change after the step ".LookIn =...." and this for any directory I choose!! It's like as if it was locked, and I do'nt how to unlock it. "Brent" wrote: i think for .Filename = ".txt" it should be .Filename = "*.txt" otherwise you just get files with no name. "Shadok" wrote: Hi, I want to open all the text files of a directory with the following code : Application.ScreenUpdating = False With Application.FileSearch .LookIn = "\\ACB0SR40\16055\Celine\Autocentrage\Fichiers mesure\" .SearchSubFolders = False .Filename = ".txt" .MatchTextExactly = True .FileType = msoFileTypeAllFiles .Execute If .Execute() 0 Then For i = 1 To .FoundFiles.Count NomFichier = .FoundFiles(i) Workbooks.OpenText Filename:= _ .FoundFiles(i), Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _ Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _ Array(2, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True .......... but when I run the code step by step I can that the LookIn parameter value still only is "\\ACB0SR40\16055\" which is my default directory. So, there is no .txt files found never. How can I make my path be accepted ? Thanks a lot for your help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Locked worksheet & hyperlinks (w/ select locked cells unchecked) | Excel Discussion (Misc queries) | |||
FileSearch - help | Excel Programming | |||
Put comments on a locked spreadsheet even though cells not locked | Excel Worksheet Functions | |||
I want the macros to be locked up when cells are locked up. | Excel Programming | |||
.FileSearch | Excel Programming |