Excel VBA：如果单元格以＆＃34; 2＆＃34;开头，则保存到目录

Question

我有一些工作表需要保存到单独的目录，这取决于单元格A10中的编号系统。

如果A10中的号码以＆＃34; 2＆＃34;开头，则需要将其保存到一个地方，如果它以其他任何东西开头，则可以将其保存到第二个目的地。

我已经在热键上创建了保存功能，但似乎无法让INTR功能正常工作。

由于

Answer 1

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

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

Answer 2

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