Microsoft Excel 2013 - separe a planilha para novas pastas de trabalho e salve na mesma pasta que a planilha pai

Question

Eu encontrei algum código feito por mtone em 5 de março de 2012 para "Posso dividir uma planilha em vários arquivos com base em uma coluna no Excel 2007?" neste link Posso dividir uma planilha em vários arquivos com base em uma coluna no Excel 2007? . Ele funciona muito bem, mas eu gostaria que ele salvasse as pastas de trabalho na mesma pasta que o arquivo principal. Isso é possível? obrigado Lynn

    

Answer 1

Perto do final do código está:

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

Mude para

 ash.SaveAs sFilePath + sSectionName, fileFormat

Além disso, você pode remover o código anterior que faz o diretório dividido:

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