使用 VBA 编辑 mp3 标签

问题描述

我使用 CddbID3Tag dll 并且可以完美地检索标记，但是如果我尝试更改它们然后保存什么都不会发生

我使用此代码更改标签

在一个模块中

Public Sub SetTagItem(ByVal Path As String,ByVal Item As TagItem,ByVal Value As String)

  Dim id3Tag As Object ' CDDBCONTROLLib.CddbID3Tag

  Set id3Tag = CreateObject("CDDBControl.CddbID3Tag")
  id3Tag.LoadFromFile Path,False
  Select Case Item

    Case Album: id3Tag.Album = Value

    Case BeatsPerMinute: id3Tag.BeatsPerMinute = Value

    Case comments: id3Tag.comments = Value

    Case copyrightholder: id3Tag.copyrightholder = Value

    Case copyrightyear: id3Tag.copyrightyear = Value

    Case FileId: id3Tag.FileId = Value

    Case Genre: id3Tag.Genre = Value

    Case ISRC: id3Tag.ISRC = Value

    Case Label: id3Tag.Label = Value

    Case LeadArtist: id3Tag.LeadArtist = Value
    
    Case Movie: id3Tag.Movie = Value
    
    Case PartOfSet: id3Tag.PartOfSet = Value

    Case Title: id3Tag.Title = Value

    Case TrackPosition: id3Tag.TrackPosition = Value

    Case Year: id3Tag.Year = Value

  End Select

  id3Tag.SavetoFile Path

  Set id3Tag = nothing

End Sub

而不是按钮

SetTagItem "m:\tst\test.mp3",LeadArtist,"Bob Dylan"

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）