Salvar um arquivo em uma unidade de rede programaticamente no Excel

• Aplica-se a:

  Microsoft Excel

Resumo

No Microsoft Excel, você pode salvar um arquivo em qualquer unidade na qual tenha privilégios de gravação e exclusão. Além disso, você pode usar uma macro do Microsoft Visual Basic for Applications para salvar a pasta de trabalho ativa e usar uma variável para o nome do arquivo. Você pode usar variáveis do ActiveWorkbook.Nameproperty, de dados da caixa de entrada ou de uma referência de célula.

Observação

Se você usar o caminho completo para o nome do arquivo, o Microsoft Excel saberá exatamente onde salvar o arquivo. Se o caminho não for fornecido, o Microsoft Excel salvará o arquivo no active directory ou pasta no momento.

Mais informações

A Microsoft oferece exemplos de programação somente para ilustração, sem garantias expressas ou implícitas. Isso inclui, entre outras coisas, as garantias implícitas de qualidade comercial ou conformidade para uma determinada finalidade. Este artigo supõe que você conhece a linguagem de programação que está sendo demonstrada e as ferramentas usadas nos processos de criação e depuração. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.

Macro de Exemplo 1

Para salvar a pasta de trabalho ativa com uma variável em um caminho especificado, use a seguinte macro:

   Sub SaveWithVariable()
       Dim MyFile As String

       MyFile = ActiveWorkbook.Name
       ' Do not display the message about overwriting the existing file.
       Application.DisplayAlerts = False
       ' Save the active workbook with the name of the
       ' active workbook. Save it on the E drive to a folder called
       ' "User" with a subfolder called "JoeDoe."
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & MyFile
       ' Close the workbook by using the following.
       ActiveWorkbook.Close
   End Sub

Macro de Exemplo 2

Use um nome de arquivo armazenado em uma célula e salve o arquivo no servidor de rede. Para fazer isso, use a seguinte macro:

   Sub SaveWithVariableFromCell()
       Dim SaveName As String
       SaveName = ActiveSheet.Range("A1").Text
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & _
           SaveName & ".xls"
   End Sub