Opening Multiple text files


Posted by harish shelat on April 23, 2001 6:27 AM

Barrie,
with very few modification it did work
Thanks for your help
Harish

Posted by Barrie Davidson on April 23, 2001 6:44 AM

Glad I could help you out Harish.



Posted by Jim Krest on May 31, 2001 10:21 AM

Barrie,
I just found the code you posted for opening multiple text files. Thanks, it works great. I did make one modification of adding some error checking code in case someone hits the cancel button:

Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Error checking in case "Cancel" button is hit
On Error Resume Next
File_count = UBound(File_Names)
While Err.Number <> 0
Err.Clear
File_count = 0
Wend
Counter = 1
Do Until Counter > File_count
Active_File_Name = File_Names(Counter)