Inserting File name inside the Text files

Hello,

Could someone provide me a VBA for updating the name of the file in Text files.

I have multiple Text files in a location; I need a VBA which can automatically update file name to these Text files.

I have attached the simple formats which i needed.

Before.txt - Original File.

After.txt - After updating the File name.

Thanks in Advance.

Hi,

I need a help with below code;

I found a code which is able to open the Text files in excel and also updating the FILE NAME in "A" but i have a multiple Text Files in a location and this code getting error once it exceeds the sheet range.

I need to have this to be continued in the next sheet as soon as one sheet is filled.

Kindly help me.

HTML Code: 

Try:

Please Login or Register  to view this content.

It (as the original code did) assumes that no single textfile is too big to fit in one sheet.

hello kaper,

i am getting error after appending the above code.

This is not continued in the next sheet.

Please help me.

Those file names look the same to me. However, you can use code similar to this I think:

Please Login or Register  to view this content.

are you getting the error message or it simply does not do what expected (is new sheet created? where it stops?)

may be add one more line just for tracing - and check the output in "immediate window" (once you run the procedure).

I also made one more step with refering explicite to workbook with macro

So the whole code:

Please Login or Register  to view this content.

Hi Kaper,

Still i am getting error with your new code.

This code is able to create a new sheet initially and when it going to exceed the sheet range it is unable to create ta new sheet to continue the next files.

For your reference i have attached the error message.

Kindly look into this and provide the code..

Thanks in advance.

Hello

I have multiple Textfiles in a location and this need to be added inside the Text files.

Kindly provide the code for making this to be happen

Sorry, I misunderstood, try this:

Please Login or Register  to view this content.

Hello

Your code updates only 0001 as file name.

I have more than 100 Text files in a location which need to update the filename.

So could please provide the code which can run and update the File name for Multiple Text files.

Please Login or Register  to view this content.

You mean like that? not sure I understand...

This is not working.

I have attached one more file for your reference and i need file name to be added in the text file.

As for Updating ...


the whole code again (see line with 3 thisworkbook references ):

Please Login or Register  to view this content.

Please Login or Register  to view this content.

?