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,
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
Últimas publicaciones
0 comentarios