如何用VBA编辑文件的标题、唱片集、参与创作的艺术家等信息

无为舍

请见标题及图片，谢谢各位大神

joforn

跟VBA无关，你要修改的是MP3的字段。把对应的字段修改(如果MP3文件本身没有就新增)到MP3文件中就好了。可以搜索MP3文件格式说明。

无为舍

joforn 发表于 2019-3-19 20:27
跟VBA无关，你要修改的是MP3的字段。把对应的字段修改(如果MP3文件本身没有就新增)到MP3文件中就好了。可以 ...

右键这些文件，点击属性，点击详细信息。在这里可以手动修改标题、唱片集等描述。用VBA有没有办法自动修改呢？

joforn

https://blog.csdn.net/u010650845/article/details/53520426

方法不是告诉你了么？你照着上面链接的说明自己用代码填写相应的信息到MP3文件里就好了。
按你上面要求想修改的信息只要用到ID3V1，也就是只读写MP3文件最后的128个字节就好了。如果还要添加歌词、封面等扩展信息，就要用到ID3V2了。
要注意的是如果MP3文件本身已经存在ID3V2，要注意ID3V2中是否有和ID3V1中的字段，如果有，那么也要把ID3V2中的信息改过来。所以安全的做法是同时修改ID3V2与ID3V1两处信息，然后把ID3V2、音频数据、ID3V1重组全部写入新文件，这样更合理些。

无为舍

joforn 发表于 2019-3-20 12:37
https://blog.csdn.net/u010650845/article/details/53520426

方法不是告诉你了么？你照着上面链接的说 ...

感谢，感谢！

向東

无为舍 发表于 2019-3-20 13:27
感谢，感谢！

我觉得这些信息是可以用VBA来批量修改的

lss001

Sub mp3wjsxdx()’MP3文件属性读写
    Dim objOLE As Object, objWMP As Object, objMedia As Object, strFn$, i%
    strFn = "D:\十送红军.mp3"
    Set objOLE = ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX") '添加控件
    Set objWMP = objOLE.Object
    Set objMedia = objWMP.newMedia(strFn)
'    For i = 1 To objMedia.attributeCount '读入属性
'        Cells(i, 1) = objMedia.getAttributeName(i - 1)
'        Cells(i, 2) = objMedia.getItemInfo(Cells(i, 1).Value)
'    Next
    objMedia.setItemInfo "Author", "新作者" '写入属性
    objMedia.setItemInfo "Title", "新标题"
    objMedia.setItemInfo "Album", "新专辑"
    objOLE.Delete
End Sub

stupiddong

lss001 发表于 2019-3-22 01:12
Sub mp3wjsxdx()’MP3文件属性读写
    Dim objOLE As Object, objWMP As Object, objMedia As Object, st ...

请教：WAV格式怎么弄？

ts_2000

添加windowsmediaplay控件，也可以轻松实现上述的功能

perfect131

获取并修改文件所有属性
https://club.excelhome.net/thread-1665893-1-1.html