{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Hoja1"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Hoja1","index":0,"n_rows":46,"n_cols":2,"rows_kept":46,"cut":false,"hidden":false,"merged":[]}
["FUNCION CURDIR"]
[]
["Descripción"]
["Esta función del VB se utiliza tanto en Excel como en Acces, y sirve para devolver una cadena que represente la ruta del directorio actual."]
[]
["Sintaxis"]
["CurDir (Drive)"]
[]
["Parámetros"]
["Drive"]
["Parámetro opcional. Es una expresión que expecifica una unidad existente. Si no se especifica ninguna unidad o si Drive es una cadena de longitud cero (\"\"), CurDir devuelve la ruta de acceso de la unidad actual"]
[]
[]
["Ejemplo 1"]
["CurDir (D)"]
["Devuelve la ruta de la ubicación del archivo en el disco D:"]
["d:\\Users\\Usuario\\Documents\\"]
[]
[]
["Ejemplo 2"]
["A continuación se describe, paso a paso, cómo elaborar la función CurDir en el programador de Visual Basic"]
[]
["1) Colocar el encabezado:"]
[null,"Sub funcioncurdir()"]
[]
["2) Colocamos la variable RUTA, y le asignamos el valor del directorio actual, y además concatenamos con el \"\\\":"]
[null,"RUTA = CurDir() & \"\\\""]
[]
["3) Asignamos el valor de la variable RUTA a la celda A40, ubicada en esta hoja:"]
[null,"Worksheets(\"Hoja1\").Range(\"A46\").Value = RUTA"]
[]
["4) Lanzamos un Msgbox con la palabra Listo!:"]
[null,"MsgBox \"Listo!\""]
[]
["5) Por último, terminamos el código con End Sub"]
[]
["El código debe verse de la siguiente manera:"]
[]
[]
[]
[]
[]
[]
[]
["Aquí se muestra el resultado:"]
["C:\\Users\\toshiba\\Desktop\\"]