Macro fails to import text files

[Rick_Stanich]

The only reason I can think of is moving from Excel 2003 to 2007.

My macro imports text files based on certain criteria in a folder "_chr.txt", the macro runs through, show in a message box that x files were imported but nothing is there. I get a small, strange character in cell A1 (Upper left corner) and the entire row (A) is highlighted.

I cant figure out what needs to be modified, except maybe in my Function (ImportFile)?

Please Login or Register  to view this content.

Attached is a sample text file.
Imported as "comma delimited" (The only delimiter is "Tab"), inserted into Cell A1.

Any help, hints or tips are appreciated.

[Rick_Stanich]

Added image to show cell A1 after running macros

[mike7952]

Heres a little different approach

Please Login or Register  to view this content.

[Rick_Stanich]

I hate you people and your simple solutions!

Thank you.

[Rick_Stanich]

Heres a little different approach

Please Login or Register  to view this content.

I'm bringing up this older post because I am trying to utilize the code in Office365.
It fails at:

Please Login or Register  to view this content.

With "Run-time error '9': Subscript out of range

I want to read a text file:
3031879-001_-_Block Shaft Assy-Addendum_10-03-2023_Serial No._1_2023-10-05_9_30_59 AM_chr.txt
(Attached) and place the data on Sheet4.
(I will eventually be reading in many text files at once).

Any assistance is appreciated.

[Artik]

Verify that the full path to the FOLDER ends with a path separator.

Artik