Vba 修改路径

我有这个代码，可以打开所有文件。路径写入单元（1,1）中。最后，在路径的末尾，我必须放置\，所以我想知道是否有什么可以为路径的末尾自动放置\做的事情

Sub openfiles()
   Dim directory As String, fileName As String, sheet As Worksheet, i As  Integer, j As Integer, finalRow As Integer
   Application.ScreenUpdating = False
   directory = Cells(1, 1)
   fileName = Dir(directory & "*.xl??")
   Do While fileName <> ""
      Workbooks.Open (directory & fileName)
      fileName = Dir()

   Loop
   Application.ScreenUpdating = True

End Sub

子openfiles（）
Dim目录为字符串，文件名为字符串，工作表为工作表，i为整数，j为整数，finalRow为整数
Application.ScreenUpdating=False
目录=单元格（1，1）
fileName=Dir（目录&“*.xl？？”）
文件名“”时执行此操作
工作簿.打开（目录和文件名）
fileName=Dir（）
环
Application.ScreenUpdating=True
端接头

在字符串末尾添加一个“\”

directory = Cells(1,1).Value & "\"

---

您是否询问如何修改

单元格（1,1）

以添加“\”？@user45您可能需要检查

单元格（1,1）的最后一个字符。Value

以确保在追加斜杠之前，它没有尾部斜杠。