excel - subcarpetas - obtener ruta actual vba

cómo especificar el directorio actual como ruta en VBA

Question

Tengo una hoja habilitada para macro. Necesito especificar la carpeta actual en la cual el archivo macro habilitado está presente como la ruta. Intenté establecer

 path = ActiveWorkbook.Path 

y

 path = CurDir() 

Ambas cosas no funcionan para mí. Alguna idea sobre esto?

Answer 1

Pensé que había entendido mal, pero tenía razón. En este escenario, será ActiveWorkbook.Path

Pero el problema principal no estaba aquí. El problema fue con estas 2 líneas de código

strFile = Dir(strPath & "*.csv")

Que debería haber escrito como

strFile = Dir(strPath & "/*.csv")

y

With .QueryTables.Add(Connection:="TEXT;" & strPath & strFile, _

Que debería haber escrito como

With .QueryTables.Add(Connection:="TEXT;" & strPath & "/" & strFile, _

Answer 2

Si la ruta que desea es la del libro de trabajo que ejecuta la macro, y ese libro ha sido guardado, entonces

ThisWorkbook.Path

es lo que usarías