Contenido
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
VBA
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
VBA
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.