VBA - Dosya Adlarını Tıklanabilir Bağlantılara Aktar

Bu, bir kullanıcının birden çok dosya seçmesine ve dosya adlarını tıklanabilir bağlantılar olarak bir elektronik tabloya almasına izin veren bir Makrodur.

Bu Makro için ilham kaynağı olarak mp3 problemini kullandım, ancak sadece eksiksiz bir mp3 çözümü geliştirme konusunda ipuçları verdim.

Aşağıdaki Makro şunları yapar:
1. Ortak bir iletişim kutusu gösterir
2. Bir kullanıcının birden fazla mp3 dosyası seçmesine izin verir (bunu herhangi bir dosya türüyle değiştirebilirsiniz, örneğin *.mpg)
3. Seçili dosya adlarını e-tablonuzdaki tıklanabilir bağlantılara aktarır(Sayfa1)

Aşağıdaki Makro bilerek yapmaz:
1. Bir mp3 dosyasının oynatma süresini gösterin
Bunun için bir API çözümü buldum, ancak muhtemelen daha iyi bir yol var

2. Etiket bilgilerinden herhangi birini gösterin (Sanatçı, Yıl, Tür, vb.)
Mp3'ü ikili olarak oku, benim için yeni ama harika çalıştı

3. Birden fazla dizinden içe aktarmaya izin verin
Şu anda eski verilerin üzerine yazıyor

Excel'deki tıklanabilir bağlantılara dosya adlarını içe aktarmayı sunuyorum.

Public Sub ImportMP3()

Dim sayacı Tamsayı olarak
Varyant Olarak YolAdı Karartın
Dim MP3name As String

Sheet1.Cells.Clear 'eski verileri temizle

'mp3'leri al
PathName = Application.GetOpenFilename _
("MyMusic (*.mp3), *.mp3", "mp3 Seçicim", , True)

sayaç = 1

Hatada İptal Et' durumunda iptal düğmesi

'seçili dosyalar arasında dolaş
Sayaç <= UBound(YolAdı) 'yoldan dosya adını alırken MP3adı = Mid(YolAdı(sayaç), _ InStrRev(YolAdı(sayaç), "\") + 1) 'köprüsü Sheet1.Cells(counter, 1) _ oluşturun. Hyperlinks.Add Anchor:=Sheet1.Cells(counter, 1), _ Address:= PathName(counter), TextToDisplay:=MP3name sayaç = sayaç + 1 Wend Columns("A:A").EntireColumn.AutoFit Cancel: End Sub