A questo punto avrei pensato di inserire una UserForm (nome Userform1)
Nella quale inserirai un TextBox (nome TextBox1) con appropriate dimensioni in lunghezza e nelle proprietà metterai Multiline True.
Poi Menu Strumenti -> Controlli Aggiuntivi (in fondo a quelli disponibili) trovi il componente Windows Media Player e lo selezioni
a questo punto lo avrai disponibile nella Casella degli strumenti e lo inserisci nella Userform1 il nome sarà WindowsMediaPlayer1
Ora nel modulo inserirai questa macro al posto della precedente
- Codice: Seleziona tutto
Public Riga As Integer
Sub LeggiTxt()
Perc = "C:\Temp\" '<<<< Percorso File testi canzoni
PercM = "C:\Users\NomeUtente\Music\" '<<<<Percorso File Mp3
FTesto = Range("A" & Riga).Value
If FTesto = "" Then
MsgBox "Manca titolo canzone"
Exit Sub
End If
Esten = ".txt"
FileT = FTesto & Esten
If Dir$(Perc & FileT) = "" Then
MsgBox "ATTENZIONE!!! Testo della canzone non trovato", vbCritical
Range("A" & Riga).Font.Color = -16776961
Exit Sub
Else
Range("A" & Riga).Font.Color = 0
End If
Path = Perc & FileT
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile(Path)
Testo = oFile.ReadAll
oFile.Close
Close
UserForm1.TextBox1.Text = Testo
UserForm1.WindowsMediaPlayer1.URL = PercM & FTesto & ".mp3"
UserForm1.Show
'MsgBox Testo
End Sub
Devi solo sostituire i percorsi dei file Testo e Mp3 con quelli a tua disposizione.
Quando cliccherai su un nome della canzone (in colonna A) si aprirà la userform con testo e player che farà ascoltare la canzone selezionata
ciao