Macro to build a database

[EduPAz]

Hi guys,

Can someone please can help me with this problem? I know it's a macro but I don't know how to start:


I have a folder called Data in this extension C:\Documents
There are 12 sub-folder (Jan, Feb, Mar,.., Dec) in the folder Data.
Every sub-folder (Jan, Feb, Mar,.., Dec) has 30 files (a1, a2, a3, a4, …a30)

I need to build a database (one tab) with the information from all the 30 files of every sub folder. In other words, I need to put the information of every single file (30*12) in one file.

Thanks in advance!!!

Edu

 

[EduPAz]

What kind of protected file?
-Need Password to Modif

Is the password the same for all files?
-Yes, it is.

Do you want to include the password in the code?
-Yes

 

[pbornemeier]

Add this before the Dim statements and put in the correct password

    Const sPassword As String = "password"

Change the open statement to:

    Workbooks.Open Filename:=sFilePathNameExt, ReadOnly:=True, Password:=sPassword

 

[EduPAz]

Thanks Phil!
It works. My issue is solve.