Question

使用工作表中的列中的单词重命名mp3文件：

Sub rename
 Dim i as integer
 Dim new_name As String
     i=1
    Do While Range("A1").Offset(i,0)<>""
    Range("A1").Offset(i-1,0).Select
    new_name=Worksheets("Sheet1").Range("A1").Offset(i-1, 0)

    Name "G:\" &i& ".mp3" as"G:\" & new_name & ".mp3"
     i = i+1
    Loop
 End Sub

在第Name "G:\" ...行，该行以黄色突出显示..并显示错误53！

Answer 1

您不能简单地将旧名称声明为新名称。您实际上需要一个文件系统对象来重命名文件。我使用moveFile method这将重命名文件。

在声明变量时使用as关键字。您Dim variable_name具体as例如data_type

首先将这些内容添加到您的声明中

dim idx as integer

然后你替换这一行

Dim fso
Dim SrcFile As String
Dim DestFile As String

所有这些

'Name "G:\" &i& ".mp3" as"G:\" & new_name & ".mp3"

想要按顺序将mp3文件从1重命名为column1中提到的单词

1 个答案: