VBA Excel Issue – Abrir carpetas y files usando criterios

Actualmente estoy tratando de trabajar en un script de VBA para usarlo con un nuevo informe que he creado. El problema es hacer completamente este informe; requiere la información de 224 informes individuales cada mes.

Ahora puedo ir y extraer manualmente la información, pero VBA sería una opción más rápida. Toda la información se descarga y almacena en carpetas individuales que representan los nombres de las tiendas y luego se desglosa por meses. (C: Carpeta \ Informes \ ShopName \ January) etc.

Lo que me gustaría poder hacer es establecer un criterio o, al less, crear una opción que busque las carpetas con ShopName y Month según lo determine el usuario al inicio del formulario. (Simplemente escriben ambos detalles en un área de la spreadsheet) El VBA luego irá y exportará la información de las carpetas y files relevantes.

Puedo ejecutar el VBA para formatear, seleccionar y presentar los datos que necesito, pero no puedo encontrar la manera de hacer que el VBA vaya solo a estas carpetas.

Escribí un control de VBA para ver si las carpetas existen, pero esto me sirve para definir la location en la macro.

En este ejemplo, solo estoy verificando si existen carpetas

Sub sbCheckingIfAFolderExists() Dim FSO Dim sFolder As String sFolder = "W:\Simon Docs\Shop Reports\Weston Favell\Jan" Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(sFolder) Then MsgBox "Specified Folder Is Available", vbInformation, "Exists!" Else MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!" End If End Sub 

Lo que necesito cambiar en lo anterior es dónde está Weston Favell \ Jan … ¿tiene que ser = A1 \ = A2 si tiene sentido? A1 y A2 son las ubicaciones de input del usuario que desean extraer.

Cualquier ayuda que alguien pueda dar sería genial.

Gracias

el nombre de la tienda y el mes se pueden agregar como variables a la statement que escribió:

 Sub sbCheckingIfAFolderExists() Dim FSO Dim sFolder As String Vshop = Range("B1").value Vmonth = Range("B2").value sFolder = "W:\Simon Docs\Shop Reports\" & Vshop & "\" & Vmonth Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(sFolder) Then MsgBox "Specified Folder Is Available", vbInformation, "Exists!" Else MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!" End If End Sub