Spara en fil på en nätverksenhet programmässigt i Excel
Anteckning
Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.
Sammanfattning
I Microsoft Excel kan du spara en fil på valfri enhet där du har skriv- och borttagningsbehörighet. Du kan dessutom använda ett Microsoft Visual Basic for Applications makro för att spara den aktiva arbetsboken och använda en variabel för filnamnet. Du kan använda variabler från ActiveWorkbook.Nameproperty, från data i en indataruta eller från en cellreferens.
Anteckning
Om du använder den fullständiga sökvägen för filnamnet vet Microsoft Excel exakt var filen ska sparas. Om sökvägen inte anges sparar Microsoft Excel filen i den aktiva katalogen eller mappen.
Mer information
Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar, men inte begränsat till, underförstådda garantier om säljbarhet eller lämplighet för ett visst ändamål. Den här artikeln förutsätter att du är bekant med det programmeringsspråk som demonstreras och med de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov.
Exempelmakro 1
Använd följande makro för att spara den aktiva arbetsboken med en variabel till en angiven sökväg:
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
Exempelmakro 2
Använd ett filnamn som lagras i en cell och spara filen på nätverksservern. Använd följande makro för att göra det:
Sub SaveWithVariableFromCell()
Dim SaveName As String
SaveName = ActiveSheet.Range("A1").Text
ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & _
SaveName & ".xls"
End Sub