La instrucción ChDrive en VBA se utiliza para cambiar la unidad de disco actual en tu sistema. Esto es útil cuando necesitas cambiar entre diferentes unidades (por ejemplo, de C:\ a D:) para trabajar con archivos en diferentes unidades de disco.

Sintaxis

ChDrive "unidad:"

• unidad: es la letra de la unidad de disco que deseas establecer como la unidad de trabajo actual. Asegúrate de incluir dos puntos («:») al final de la letra de la unidad.

Ejemplo

Sub CambiarUnidadDeDisco()

    Dim NuevaUnidad As String
    Dim Directorio As String

    ' Especifica la nueva unidad de disco
    NuevaUnidad = "D:"
    
    ' Cambia la unidad de disco actual
    ChDrive NuevaUnidad
    
    ' Ahora puedes trabajar en la unidad de disco D
    ' Por ejemplo, puedes especificar un directorio en la unidad D
    Directorio = "D:\Ruta\Al\Directorio"
    
    ' A partir de este punto, el directorio de trabajo actual está en la unidad D
    
    ' Puedes realizar operaciones en la unidad de disco D, como abrir o guardar archivos
    
    ' Para volver a la unidad original, puedes usar ChDrive nuevamente
    ChDrive "C:"
    
    ' Ahora el directorio de trabajo vuelve a estar en la unidad C
    
    ' Puedes continuar con el código aquí
    
End Sub

En este ejemplo:

• Se especifica la nueva unidad de disco (NuevaUnidad) a la que deseas cambiar.
• Se utiliza ChDrive para cambiar la unidad de disco actual a la unidad especificada.
• A partir de este punto en el código, cualquier operación que realices se llevará a cabo en la unidad de disco D, ya que hemos establecido la unidad de disco actual como «D:».
• Después de realizar operaciones en la unidad D, puedes usar nuevamente ChDrive para volver a la unidad original (en este caso, la unidad C).

Es importante tener en cuenta que la instrucción ChDrive afecta la unidad de disco en todo el proyecto VBA actual. Asegúrate de utilizarla con cuidado y de volver a la unidad original cuando hayas terminado de realizar operaciones en la unidad diferente.

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