Uložte soubor na síťovou jednotku programově v aplikaci Excel

• Platí pro:

  Microsoft Excel

Souhrn

V aplikaci Microsoft Excel můžete uložit soubor na jakoukoli jednotku, na kterou máte oprávnění pro zápis a mazání. Kromě toho můžete použít makro Microsoft Visual Basic for Applications k uložení aktivního sešitu a použití proměnné pro název souboru. Můžete použít proměnné z ActiveWorkbook.Nameproperty, z dat vstupního pole nebo z odkazu na buňku.

Poznámka

Pokud pro název souboru použijete úplnou cestu, bude Microsoft Excel přesně vědět, kam soubor uložit. Pokud cesta není zadána, aplikace Microsoft Excel uloží soubor do aktuálně aktivního adresáře nebo složky.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, Mimo jiné včetně odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění procedur. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.

Ukázkové makro 1

Chcete-li uložit aktivní sešit s proměnnou do zadané cesty, použijte následující makro:

VB

   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

Ukázkové makro 2

Použijte název souboru uložený v buňce a uložte soubor na síťový server. Chcete-li to provést, použijte následující makro:

VB

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