La instrucción ChDir en VBA se utiliza para cambiar el directorio de trabajo actual en el sistema de archivos. Esto es útil cuando deseas especificar un directorio diferente para abrir o guardar archivos en una ubicación específica.

Sintaxis

ChDir "directorio"

• directorio: es la ruta del directorio que deseas establecer como directorio de trabajo actual. Puedes proporcionar la ruta completa o una ruta relativa desde el directorio actual.

Ejemplo

Sub GuardarArchivoEnNuevoDirectorio()

    Dim DirectorioDestino As String
    Dim NombreArchivo As String
    Dim RutaCompleta As String

    ' Especifica el directorio de destino
    DirectorioDestino = "C:\Ruta\Al\Nuevo\Directorio"
    
    ' Especifica el nombre del archivo que deseas guardar
    NombreArchivo = "MiArchivo.txt"
    
    ' Construye la ruta completa al archivo
    RutaCompleta = DirectorioDestino & "\" & NombreArchivo
    
    ' Cambia el directorio de trabajo al directorio de destino
    ChDir DirectorioDestino
    
    ' A partir de este punto, el directorio de trabajo actual es "C:\Ruta\Al\Nuevo\Directorio"
    
    ' Ahora puedes guardar el archivo en el nuevo directorio
    ' Por ejemplo, guarda un archivo de texto vacío
    Open RutaCompleta For Output As #1
    Close #1
    
    ' Vuelve al directorio original
    ChDir ThisWorkbook.Path ' Cambia al directorio del libro de trabajo actual
    
    ' Ahora el directorio de trabajo vuelve a ser el directorio del libro de trabajo original
    
    MsgBox "Archivo guardado en: " & RutaCompleta
    
End Sub

En este ejemplo:

• Se especifica el directorio de destino (DirectorioDestino) y el nombre del archivo (NombreArchivo) que deseas guardar en el nuevo directorio.
• Se construye la ruta completa al archivo (RutaCompleta) combinando el directorio de destino y el nombre del archivo.
• Se utiliza ChDir para cambiar el directorio de trabajo al directorio de destino, de modo que el archivo se guarde en ese directorio.
• Luego, se abre un archivo de texto en modo de salida y se cierra de inmediato para crear un archivo vacío en el nuevo directorio.
• Después de guardar el archivo, se utiliza nuevamente ChDir para volver al directorio original (en este caso, el directorio del libro de trabajo actual).
• Finalmente, se muestra un mensaje que indica la ubicación donde se ha guardado el archivo.

Este ejemplo ilustra cómo cambiar el directorio de trabajo para realizar operaciones como guardar archivos en un directorio específico y luego volver al directorio original.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto