Saber la duración de un archivo de vídeo en Excel usando VBA

Escrito por Administrador

23 de febrero de 2024

A petición de un usuario, esta semana os traigo un código para saber la duración de un archivo de vídeo en Excel usando VBA.

Para ello, simplemente he creado un botón que, al pulsarlo, nos va a mostrar un msgbox con la duración del archivo de vídeo que hayamos seleccionado.

El código que hay detrás del botón es el siguiente,

Sub ObtenerDuracionVideo()

Dim videoFilePath As String
Dim shellApp As Object
Dim folder As Object
Dim folderItem As Object
Dim duration As String

'Creamos una instancia de Shell32

Set shellApp = CreateObject("Shell.Application")

'Obtenemos el objeto FolderItem para el archivo de video. Cambia lo siguiente por tu ruta y nombre de archivo de video

Set folder = shellApp.Namespace("C:\ruta\de\tu\archivo\")
Set folderItem = folder.ParseName("nombredetuarchivo.mp4")

'Obtenemos la duración del video en formato de tiempo (hh:mm:ss)

duration = folder.GetDetailsOf(folderItem, 27)

'Mostramos la duración del video

MsgBox "La duración del video es: " & duration

End Sub

Recordad que para utilizar Shell.Application es necesario activar la siguiente referencia,

saber-usuarios-conectados-base-datos

Espero que este código te ayude a saber la duración de un archivo de vídeo en Microsoft Excel usando VBA. Descárgate el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar





Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

junio 2024
LMXJVSD
 12
3456789
10111213141516
17181920212223
24252627282930

Debates en el foro

Avatar
guardar imagenes en carpeta
Avatar
Necesito ayuda con un formulario
Avatar
Buscar Datos en Columnas

Contacto