Loop Code to extract information from all files in a folder to a mastersheet

[flaire14]

Hello I am new to VBA. I am a nurse so I don't know most of the proper jargons to use so please bear with me.

I am currently working on a macro that will extract all encoded information from all files in the specified folder to my mastersheet.
The code I made was successful. However, I noticed that when my folder is located to D:\, all newly added files in my folder were not extracted unless if I move the folder to another directory (e.g. to C:\). But if I place the folder in C:\ directory and add new files, it works perfectly. Here is my code so you may help me.

PS: May I also ask if anyone can give me a code to rename the files that I already extracted? Just to append the word "Extracted" after their file names (e.g. from PHP.Jeff.xlsm -> PHP.Jeff(Extracted).xlsm).

TYIA.

Please Login or Register  to view this content.

[dangelor]

A quick look suggests that this If statement may be the problem..

Please Login or Register  to view this content.

[flaire14]

A quick look suggests that this If statement may be the problem..

Please Login or Register  to view this content.

Hi dangelor, yes this statement is the one causing the problem. My masterfile starts with a letter "x" so it will be placed last in this list so this code will works. However if I add new files. Even if their first letter starts the same with my previous files. Excel always identify the new one as the last files, so before the code executes in these files, the macro already ended. Refresh does not work. It might appear in order if we view them through windows explorer, but in the excel itself, its not yet reorganized. The way to reorganize it is only by placing the whole folder in C:\ directory and run the macro.

[dangelor]

Try replacing

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.