Microsoft Excel 2013 - разделить электронную таблицу на новые книги и сохранить в той же папке, что и родительская таблица

Я нашел код, созданный mtone 5 марта 2012 года для «Можно ли разбить электронную таблицу на несколько файлов на основе столбца в Excel 2007?» по этой ссылке Можно ли разбить электронную таблицу на несколько файлов на основе столбца в Excel 2007? , Это работает очень хорошо, но я хотел бы сохранить рабочие книги в той же папке, что и родительский файл. Это возможно? Спасибо Линн

В конце кода:

 ash.SaveAs sFilePath + "\Split\" + sSectionName, fileFormat

Изменить на

 ash.SaveAs sFilePath + sSectionName, fileFormat

Кроме того, вы можете удалить предыдущий код, который делает разделенный каталог:

If Dir(sFilePath + "\Split", vbDirectory) = "" Then
    MkDir sFilePath + "\Split"
End If