Salvare un file in un'unità di rete a livello di programmazione in Excel

Riepilogo

In Microsoft Excel è possibile salvare un file in qualsiasi unità in cui si dispone di privilegi di scrittura ed eliminazione. È inoltre possibile usare una macro di Microsoft Visual Basic, Applications Edition per salvare la cartella di lavoro attiva e usare una variabile per il nome del file. È possibile usare variabili dalla proprietà ActiveWorkbook.Name, dai dati della casella di input o da un riferimento di cella.

Ulteriori informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, a mero titolo esemplificativo, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare routine, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare routine atte a soddisfare specifiche esigenze.

Macro di esempio 1

Per salvare la cartella di lavoro attiva con una variabile in un percorso specificato, utilizzare la macro seguente:

   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 di esempio 2

Utilizzare un nome file archiviato in una cella e salvare il file nel server di rete. A tale scopo, utilizzare la macro seguente:

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