Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mismatch Error 13
Why do I get the error? Oddly enough, I can use the commented line for the
debug.print, but when I try to assign to an array it gives the error. I'm totally confused. Bob Dim FName as Variant Set fs = Workbooks.Application.FileSearch With fs .LookIn = "E:\Stott\Inventory" '.FileType = msoFileTypeExcelWorkbooks .FileName = "Input??.xls" .Execute End With For i = 1 To fs.FoundFiles.Count FName(i) = fs.FoundFiles(i) 'Debug.Print fs.FoundFiles(i) Next i |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mismatch Error 13
Hi
You need to redim your array after the End With statement: Redim fName(1 to fs.foundfiles.count) Hopes this helps. .... Per On 15 Jul., 22:55, Bob Zimski wrote: Why do I get the error? Oddly enough, I can use the commented line for the debug.print, but when I try to assign to an array it gives the error. I'm totally confused. Bob Dim FName as Variant Set fs = Workbooks.Application.FileSearch * *With fs * * * .LookIn = "E:\Stott\Inventory" * * * '.FileType = msoFileTypeExcelWorkbooks * * * .FileName = "Input??.xls" * * * .Execute * *End With * *For i = 1 To fs.FoundFiles.Count * * * FName(i) = fs.FoundFiles(i) * * * 'Debug.Print fs.FoundFiles(i) * *Next i |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mismatch Error 13
I tried it and it just gave a new error 'Subscript out of range.'
Like I eluded to earlier, if I commented out the line where I try to assign FName and uncomment the debug.print, the debug print works and shows three values as expected. While when I try to do the assignment it gives the Type Mismatch Error 13. Still a mystery to me. Bob "Per Jessen" wrote: Hi You need to redim your array after the End With statement: Redim fName(1 to fs.foundfiles.count) Hopes this helps. .... Per On 15 Jul., 22:55, Bob Zimski wrote: Why do I get the error? Oddly enough, I can use the commented line for the debug.print, but when I try to assign to an array it gives the error. I'm totally confused. Bob Dim FName as Variant Set fs = Workbooks.Application.FileSearch With fs .LookIn = "E:\Stott\Inventory" '.FileType = msoFileTypeExcelWorkbooks .FileName = "Input??.xls" .Execute End With For i = 1 To fs.FoundFiles.Count FName(i) = fs.FoundFiles(i) 'Debug.Print fs.FoundFiles(i) Next i |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mismatch Error 13
Hi
This worked for me: Dim FName As Variant Set fs = Workbooks.Application.FileSearch With fs .LookIn = "E:\Stott\Inventory" '.FileType = msoFileTypeExcelWorkbooks .Filename = "Input??.xls" .Execute End With ReDim FName(1 To fs.FoundFiles.Count) For i = 1 To fs.FoundFiles.Count FName(i) = fs.FoundFiles(i) Debug.Print fs.FoundFiles(i) Next i Regards, Per "Bob Zimski" skrev i meddelelsen ... I tried it and it just gave a new error 'Subscript out of range.' Like I eluded to earlier, if I commented out the line where I try to assign FName and uncomment the debug.print, the debug print works and shows three values as expected. While when I try to do the assignment it gives the Type Mismatch Error 13. Still a mystery to me. Bob "Per Jessen" wrote: Hi You need to redim your array after the End With statement: Redim fName(1 to fs.foundfiles.count) Hopes this helps. .... Per On 15 Jul., 22:55, Bob Zimski wrote: Why do I get the error? Oddly enough, I can use the commented line for the debug.print, but when I try to assign to an array it gives the error. I'm totally confused. Bob Dim FName as Variant Set fs = Workbooks.Application.FileSearch With fs .LookIn = "E:\Stott\Inventory" '.FileType = msoFileTypeExcelWorkbooks .FileName = "Input??.xls" .Execute End With For i = 1 To fs.FoundFiles.Count FName(i) = fs.FoundFiles(i) 'Debug.Print fs.FoundFiles(i) Next i |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mismatch Error 13
Hi
Don't know why it worked for me now and not before. Must have been a brain freeze. Thanks much. "Per Jessen" wrote: Hi This worked for me: Dim FName As Variant Set fs = Workbooks.Application.FileSearch With fs .LookIn = "E:\Stott\Inventory" '.FileType = msoFileTypeExcelWorkbooks .Filename = "Input??.xls" .Execute End With ReDim FName(1 To fs.FoundFiles.Count) For i = 1 To fs.FoundFiles.Count FName(i) = fs.FoundFiles(i) Debug.Print fs.FoundFiles(i) Next i Regards, Per "Bob Zimski" skrev i meddelelsen ... I tried it and it just gave a new error 'Subscript out of range.' Like I eluded to earlier, if I commented out the line where I try to assign FName and uncomment the debug.print, the debug print works and shows three values as expected. While when I try to do the assignment it gives the Type Mismatch Error 13. Still a mystery to me. Bob "Per Jessen" wrote: Hi You need to redim your array after the End With statement: Redim fName(1 to fs.foundfiles.count) Hopes this helps. .... Per On 15 Jul., 22:55, Bob Zimski wrote: Why do I get the error? Oddly enough, I can use the commented line for the debug.print, but when I try to assign to an array it gives the error. I'm totally confused. Bob Dim FName as Variant Set fs = Workbooks.Application.FileSearch With fs .LookIn = "E:\Stott\Inventory" '.FileType = msoFileTypeExcelWorkbooks .FileName = "Input??.xls" .Execute End With For i = 1 To fs.FoundFiles.Count FName(i) = fs.FoundFiles(i) 'Debug.Print fs.FoundFiles(i) Next i |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
runtime error 13 - type mismatch error in Excel 97 on Citrix | Excel Programming | |||
Conditional Formatting - Run Time Error '13' Type Mismatch Error | Excel Programming | |||
Help: Compile error: type mismatch: array or user defined type expected | Excel Programming | |||
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming |