重命名书时出现运行时错误 13

Question

有 book1 ，其中一列是旧书的名称，另一列是新书的名称（旧书需要在新书中重命名）。 n,m-数字。

发生错误：

运行时错误‘13’行中的类型不匹配

OldName = "" + n + ".xlsm"

代码：

    Sub Кл()

    Dim OldName, NewName
    Dim book1 As Workbook
    Dim t As Long, m As Long, n As Long


    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

     Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 
           7\вспомогательные программы\Книга в лист\виз.xlsx")
     For t = 3 To 5

      n = book1.Worksheets("общ").Range("C" & t).Value
      m = book1.Worksheets("общ").Range("C" & t).Offset(0, 1).Value

      OldName = "" + n + ".xlsm"
      NewName = "" + m + ".xlsm"

      Name OldName As NewName

      OldName = "E:\Super M\Проект ставки\Поиск решения\Усов 
            7\вспомогательные программы\Книга в лист\Отборные 
            условия\Откуда\" + n + ".xlsm"
      NewName = "E:\Super M\Проект ставки\Поиск решения\Усов 
              7\вспомогательные программы\Книга в лист\Отборные 
             условия\Куда\" + m + ".xlsm"

      Name OldName As NewName

      Next t
      book1.Close

      Application.ScreenUpdating = True
      Application.Calculation = xlCalculationAutomatic
      Application.EnableEvents = True

      End Sub

Answer 1

我会尝试Dim oldName As String，因为您正在处理字符串，然后使用& 连接，而不是+。

您可以将n 显式转换为CStr(n)，而不是让它被隐式转换。

一开始"" + 的意义何在？它不会添加任何东西。只需Cstr(n) & ".xlsm" 就足够了。

n 必须包含完整的文件路径，因为Name 函数需要位置 和文件名。

Name statement:

旧路径名 必需。指定现有的字符串表达式 文件名和位置——可能包括目录或文件夹，以及驱动器。

新路径名 必需。指定新文件的字符串表达式 名称和位置 — 可能包括目录或文件夹以及驱动器。这 newpathname 指定的文件名不能已经存在。

Answer 2

我认为+ 应该是&。行应该是

oldname = "path\filename" & n & ".xlsm" 

可能cstr(n) 或text(n , "format") 也可以这样做