提取歌曲名

dyzx

请问各位老师：能否将歌曲文件夹中的歌曲名提取到EXCEL中，多谢指教。

苏子龙

1. Sub tt()
   
2.     Dim GqName$, myPath$, i%, Gqhz$, Hz$
   
3.     Sheet1.Range("a:d").Clear
   
4.     Sheet1.Range("a1:d1") = Array("序号", "歌曲名", "歌曲格式", "艺人")
   
5.     myPath = ThisWorkbook.Path & "\歌曲\*.*"
   
6.     Gqhz = ".mp4.mp3.avi.wma.mpg.mpeg.rm.mov.wmv.asf.dat" '歌曲后缀目录，没有的可以自己加进去
   
7.     GqName = Dir(myPath) 'dir路径
   
8.     Do While GqName <> "" '当没有时退出do loop
   
9.         Hz = Mid(GqName, InStrRev(GqName, ".")) '文件后缀
   
10.         If InStr(Gqhz, Hz) > 0 Then     '当存在时，把数据写入excel
    
11.             i = i + 1
    
12.             With Sheet1
    
13.                 .Cells(i + 1, 1) = i
    
14.                 .Cells(i + 1, 2) = Left(GqName, InStrRev(GqName, ".") - 1)
    
15.                 .Cells(i + 1, 3) = Mid(GqName, InStrRev(GqName, ".") + 1)
    
16.             End With
    
17.         End If
    
18.         GqName = Dir
    
19.     Loop
    
20. End Sub

复制代码

爱疯

Sub test()
    Dim p As String
    Dim f As String
    Dim i As Integer

    Range("a1").CurrentRegion.Offset(1, 0) = ""
    p = ThisWorkbook.Path & "\歌曲\"
    f = Dir(p)
   
    Do While f <> ""
        i = i + 1
        Cells(i + 1, 1) = i
        Cells(i + 1, 2) = Split(f, ".")(0)
        f = Dir
    Loop
End Sub

老司机带带我

你们能专业点吗？{:091:}楼主这个问题的关键难点在于艺术家信息的读取！！！可以考虑使用Open语句和Get语句来实现，但目前我弄出来还是乱码，不知道是不是公司电脑加密的原因导致的，晚上回家试试！

dyzx

苏子龙 发表于 2016-12-26 15:03

苏子龙老师：可以提取歌曲名，但不能提取艺人名，多谢

dyzx

爱疯 发表于 2016-12-26 15:12
Sub test()
    Dim p As String
    Dim f As String

爱疯老师：提取的歌曲名不够全，有时只是部分名，多谢

老司机带带我

GET函数读取MP3格式的没问题，但读取WMA的会乱码，具体什么原因没深究，百度了一种方法，非常完美，现学现卖，具体代码如下：

1. Sub 提取信息()
   
2.     Dim myPath As String, myName As String, i As Integer
   
3.     Dim oFile, oDir, oShell
   
4.     Set oShell = CreateObject("Shell.Application")
   
5.     myPath = ThisWorkbook.Path & "\歌曲"
   
6.     myName = Dir(myPath)
   
7.     Set oDir = oShell.Namespace(ThisWorkbook.Path & "\歌曲")
   
8.     Do While myName <> ""
   
9.         i = i + 1
   
10.         Cells(i + 1, 1) = i
    
11.         Set oFile = oDir.ParseName(myName)
    
12.         Cells(i + 1, 2) = oDir.GetDetailsOf(oFile, 21)
    
13.         Cells(i + 1, 3) = oDir.GetDetailsOf(oFile, 2)
    
14.         Cells(i + 1, 4) = oDir.GetDetailsOf(oFile, 13)
    
15.         myName = Dir
    
16.     Loop
    
17. End Sub

复制代码

老司机带带我

这里案例非常特别，学习了很多新的东西，收录案例！

dyzx

老司机带带我 发表于 2016-12-27 08:51
GET函数读取MP3格式的没问题，但读取WMA的会乱码，具体什么原因没深究，百度了一种方法，非常完美，现学现 ...

老司机带带我老师：好像有点可以提取，有些不可以提取，请指教，多谢

老司机带带我

dyzx 发表于 2016-12-27 10:27
老司机带带我老师：好像有点可以提取，有些不可以提取，请指教，多谢

你的歌曲类型有哪些？最好把完整的附件上传！