Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
I am using a macro with FileSearch in both office and
home computers. It works perfect in my office, but not work at home. The problem is in FileSearch. The code is as follow: With Application.FileSearch .NewSearch .LookIn = FilePath .FileName = SumBookName .FileType = msoFileTypeExcelWorkbooks .MatchTextExactly = True If .Execute() 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles(i) = FilePath + SumBookName Then FileExist = True Exit For End If Next i Else FileExist = False End If End With By using debug.print, I found Execue() is 0. I am using same Excel 2002 at my office and home but at differnt OS. Office is Windows2K, home is WinXP. What is the problem? Anybody can help me? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
try commenting out
.FileType = msoFileTypeExcelWorkbooks and/or put " " around sumbookname .FileName = SumBookName -- Don Guillett SalesAid Software Granite Shoals, TX "Bin" wrote in message ... I am using a macro with FileSearch in both office and home computers. It works perfect in my office, but not work at home. The problem is in FileSearch. The code is as follow: With Application.FileSearch .NewSearch .LookIn = FilePath .FileName = SumBookName .FileType = msoFileTypeExcelWorkbooks .MatchTextExactly = True If .Execute() 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles(i) = FilePath + SumBookName Then FileExist = True Exit For End If Next i Else FileExist = False End If End With By using debug.print, I found Execue() is 0. I am using same Excel 2002 at my office and home but at differnt OS. Office is Windows2K, home is WinXP. What is the problem? Anybody can help me? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
I am sorry. It doesn't work.
SumBookName is an variable, can not pu "" around it. I deleted FileType code, but it still doesn't work. What can I do else? Thanks. Bin -----Original Message----- try commenting out .FileType = msoFileTypeExcelWorkbooks and/or put " " around sumbookname .FileName = SumBookName -- Don Guillett SalesAid Software Granite Shoals, TX "Bin" wrote in message ... I am using a macro with FileSearch in both office and home computers. It works perfect in my office, but not work at home. The problem is in FileSearch. The code is as follow: With Application.FileSearch .NewSearch .LookIn = FilePath .FileName = SumBookName .FileType = msoFileTypeExcelWorkbooks .MatchTextExactly = True If .Execute() 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles(i) = FilePath + SumBookName Then FileExist = True Exit For End If Next i Else FileExist = False End If End With By using debug.print, I found Execue() is 0. I am using same Excel 2002 at my office and home but at differnt OS. Office is Windows2K, home is WinXP. What is the problem? Anybody can help me? . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
Sorry. I can not use a real file name. It is input by
user. Since I am using the same Excel 2002, same CD, for both computers with different OS, is it OS problem? -----Original Message----- try it using a real file name like thisismyfile.xls -- Don Guillett SalesAid Software Granite Shoals, TX "Bin" wrote in message ... I am sorry. It doesn't work. SumBookName is an variable, can not pu "" around it. I deleted FileType code, but it still doesn't work. What can I do else? Thanks. Bin -----Original Message----- try commenting out .FileType = msoFileTypeExcelWorkbooks and/or put " " around sumbookname .FileName = SumBookName -- Don Guillett SalesAid Software Granite Shoals, TX "Bin" wrote in message ... I am using a macro with FileSearch in both office and home computers. It works perfect in my office, but not work at home. The problem is in FileSearch. The code is as follow: With Application.FileSearch .NewSearch .LookIn = FilePath .FileName = SumBookName .FileType = msoFileTypeExcelWorkbooks .MatchTextExactly = True If .Execute() 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles(i) = FilePath + SumBookName Then FileExist = True Exit For End If Next i Else FileExist = False End If End With By using debug.print, I found Execue() is 0. I am using same Excel 2002 at my office and home but at differnt OS. Office is Windows2K, home is WinXP. What is the problem? Anybody can help me? . . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileSearch Problem
There have been lots of posts that say that .filesearch is flakey in xl2002.
And some posts that say it's even worse under winXP. Bin wrote: I am using a macro with FileSearch in both office and home computers. It works perfect in my office, but not work at home. The problem is in FileSearch. The code is as follow: With Application.FileSearch .NewSearch .LookIn = FilePath .FileName = SumBookName .FileType = msoFileTypeExcelWorkbooks .MatchTextExactly = True If .Execute() 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles(i) = FilePath + SumBookName Then FileExist = True Exit For End If Next i Else FileExist = False End If End With By using debug.print, I found Execue() is 0. I am using same Excel 2002 at my office and home but at differnt OS. Office is Windows2K, home is WinXP. What is the problem? Anybody can help me? -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
FileSearch Excel 2007 | Excel Discussion (Misc queries) | |||
Application.FileSearch | Excel Discussion (Misc queries) | |||
Lookin property of the FileSearch object | New Users to Excel | |||
FileSearch in a combo box | Excel Discussion (Misc queries) | |||
Exclude directory from .FileSearch | Excel Programming |