I've been working on writing an Excel file that will read the music files from a folder path and will display the ID3 properties, then allow you to modify/save your changes. The code for gathering the data works great, however, the updating code seems to cause a random Automation Error that crashes Excel and doesn't allow me to retrieve an error code. I've narrowed it down to the section where it loads/saves the ID3 properties, but I can't seem to track it down. I've attached the file below for reference, but here's the section of code of updating:
Do
strNewFileName = strPath & "\" & Cells(intRow, intSongNumCol).Value & " - " & Cells(intRow, intTitleCol).Value & Cells(intRow, intFileTypeCol).Value
If Cells(intRow, intCol).Value <> strNewFileName Then
Name Cells(intRow, intCol).Value As strNewFileName
End If
Cells(intRow, intCol).Value = strNewFileName
id3.LoadFromFile Cells(intRow, intCol).Value, False
'id3.Title = Cells(intRow, intTitleCol).Value
'id3.Album = Cells(intRow, intAlbumCol).Value
'id3.TrackPosition = Cells(intRow, intSongNumCol).Value
'id3.LeadArtist = Cells(intRow, intArtistCol).Value
'id3.Genre = Cells(intRow, intGenreCol).Value
'id3.Year = Cells(intRow, intYearCol).Value
id3.SaveToFile Cells(intRow, intCol).Value
Cells(intRow, 10).Value = "Complete"
intRow = intRow + 1
'Sleep 500
Set id3 = Nothing
Loop Until Cells(intRow, intCol).Value = ""
Any assistance that you guys can provide would be great! Thank you very much in advance!Test2.xlsm
Bookmarks