Como truncar o cortar nombre archivo a cantidad de carateres especificos

Posteriormente se obtiene el nombre del archivo, que puede ser mayor a 60 caracteres que es lo que en el ejemplo se determina como máximo de caracteres para el nombre del fichero que se intenta guardar, para determinarlo se establece la cantidad de caracteres del nombre que se intenta dar en caso de ser mayor a 60 se extraen los primeros 60 caracteres truncando o acortando el nombre del archivo a la cantidad de 60 caracteres, eso se hace con el siguiente código:

If Len(nom) > 60 Then nom = Mid(nom, 1, 60)

Posterior a ello, ya teniendo el nombre del archivo con un máximo de caracteres de 60, se procede a guardar el archivo:

ActiveWorkbook.SaveAs Filename:=myfile, FileFormat:=xlOpenXMLWorkbook

Desde el final de post descarga el ejemplo como truncar o acortar el nombre del archivo a una cantidad de caracteres determinados, es código es libre y el archivo no contiene restricción alguna.

Recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Formulario que solicita password, buscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, como copiar o exportar tabls de Excel a Word y muchos ejemplos más.

if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}