Excel VBA：如果单元格以“2”开头，则保存到目录

我有一些工作表需要保存到不同的目录中，这些目录依赖于单元格A10中的编号系统

如果A10中的数字以2开头，则需要将其保存到一个位置，如果以其他任何内容开头，则可以将其保存到第二个目的地

我已经在热键上设置了保存功能，但似乎无法使INTR功能正常工作

---

谢谢

您可以通过以下方式更改要保存文件的文件夹：

 If Left(Range("A10").Value,1) = 2 then
     ChDir MainFolder
 Else
     ChDir OtherFolder
 End If
 ActiveWorkbook.SaveAs Filename:=Gradesbook_File

---

如果RangeA10.Value=2，我认为这不起作用，因为单元格值是201456000。我需要的东西，决定只是第一个字符=2OK，我编辑了它的代码，以拿起第一个数字汉克，工作完美！有没有关于如何使它循环所有打开的文件或循环一个特定文件夹的工作簿的想法？很高兴我能帮上忙！这是一个新问题的好素材，或者更好的是，搜索SO或整个网络。我知道这里有不止几个问题显示在目录中循环。FileSystemObject是您要查找的对象。此外，如果您单击解决问题的答案上的复选标记，这将有助于社区。谢谢！我已经核对了你的答案，我将搜索循环。

If left(Range("A10"),1) = 2 then
  Activeworkbook.saveas Path1 & FileName
else
  ActiveWorkbook.SaveAs Path2 & FileName
End If