mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin) Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
örneğin A5 hücresine C:zeynel.mp3 yazın ve a5 hücresini seçin

Option Explicit
' Modul
' benötigte API-Deklarationen
Private Declare Function mciSendString Lib "winmm.dll" _
  Alias "mciSendStringA" ( _
  ByVal lpstrCommand As String, _
  ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Long, _
  ByVal hwndCallback As Long) As Long

Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" ( _
  ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long

' Ermittelt die Länge einer MP3-Datei
Sub Länge_MP3()
    Dim song As String
    Dim zeile As Integer
    zeile = ActiveCell.Row
    song = Cells(zeile, 1).Value '"C:My MusicMP3ABBA - Mamma Mia.mp3"
    MsgBox ("Titellänge: " & Chr(13) & Chr(13) & FormatTime(GetMP3Length(song)) & " min.")
End Sub
' in Millisekunden
Function GetMP3Length(ByVal strFileName As String) As Long
  
  Dim strBuffer As String
  Dim lRet As Long
  Dim sReturn As String

' Da die mciSendString Funktion mit langen Dateinamen
  ' nicht korrekt arbeitet, muss zuvor der kurze
  ' 8.3 Dateiname der MP3-Datei ermittelt werden.
  strBuffer = Space$(255)
  lRet = GetShortPathName(strFileName, strBuffer, Len(strBuffer))
  
  If lRet  0 Then
    strFileName = Left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
  End If
  
  ' MP3-Datei öffnen
  mciSendString "open " & strFileName & _
    " type MPEGVideo alias mp3audio", 0, 0, 0
     
  ' Länge der Datei in Millisekunden auslesen
  sReturn = Space$(256)
  lRet = mciSendString("status mp3audio length", _
    sReturn, Len(sReturn), 0&)
    
  ' MP3-Datei schliessen
  mciSendString "close mp3audio", 0, 0, 0
  
  GetMP3Length = Val(sReturn)
End Function

' Für das Umwandeln der Zeitrückgabe (Millisekunden) in ein besser
' lesbares Format (Minuten:Sekunden) können Sie zusätzlich nachfolgende
' Funktion einsetzen:

' Millisekunden in lesbares Zeitformat umwandeln
Function FormatTime(ByVal lMSec As Long) _
  As String
  
  Dim iMin As Integer
  Dim iSec As Integer
  
  iSec = Int(lMSec / 1000)
  iMin = Int(iSec / 60)
  iSec = iSec - (iMin * 60)
  
  FormatTime = Format$(iMin, "00") & ":" & _
    Format$(iSec, "00")
End Function

Benzer Sonuçlar
No	Makro Adı
1	mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin)
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	açık iki excel dosyasından sadece birini kapatmak.
4	a1 hücresini b1 hücresine yapıştır c1 gitsin
5	dosyanın yolunu ve ismini hücreye yazdırır
6	Dosyayı kim açtı 2
7	dosyayı kim açtı
8	excel dosyası belirli bir tarihten sonra açılmasın
9	dosyanın tarihini yazın kaç gün geçtiğin hesaplasın
10	renkli hücreleri toplama / sayma (İstediğim renkte kaç tane hücre var)
11	dosya adı, yolu ve çalışma sayfası adını fornsiyonlarla yazdır
12	dosya arama 2
13	mp3 dosyası çalma
14	veri değiştirirken uyarı alma
15	kullanıcı adı ve parola eklemek
16	hücrelerin başindaki ( ) tek tirnak sembolünü makro ile nasıl kaldirabilirim.
17	aynı makroyla birden çok sayfaya kayıt yapmak
18	dosyanın bayt cinsinden büyüklüğü nedir?
19	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
20	excel dosyamin kisayolunu masaüstünde oluşturmak için api

Benzer Sonuçlar

Makro Adı

mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin)

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

açık iki excel dosyasından sadece birini kapatmak.

a1 hücresini b1 hücresine yapıştır c1 gitsin

dosyanın yolunu ve ismini hücreye yazdırır

Dosyayı kim açtı 2

dosyayı kim açtı

excel dosyası belirli bir tarihten sonra açılmasın

dosyanın tarihini yazın kaç gün geçtiğin hesaplasın

renkli hücreleri toplama / sayma (İstediğim renkte kaç tane hücre var)