SaveCopyAs

betrifft

Die Attributfunktion SaveCopyAs speichert eine Kopie des Excel-Workbook im gleichen Format wie das Workbook der Variablen unter einem anderen Namen im Dateisystem. Spätere Aktualisierungen des Workbooks der Variablen werden nicht übernommen.

 

Syntax

SaveCopyAs(ByVal Path As String)

Rückgabewert

Long

Null, wenn erfolgreich

Parameter

Verwendung

Name

Typ

Übergabe

Beschreibung

Erforderlich

Path

String

ByVal

Pfad und Dateiname, unter der das Excelsheet gespeichert werden soll.

 

Beispiel:

Speicherung des Workbooks der Sheet-Variablen Zeitberechnung als work.xslx und Übertragung zum Client mit anschießender Anzeige des Workbooks

 

Dim FSO As TCEWindows.FileSystem

 

Zeitberechnung.SaveCopyAs("D:\Write.xlsx")

 

FSO := Client.CreateObject("TCEWindows.FileSystem")

If FSO.FileExists(Client.TranslatePath("[TMPDIR]" & "Work.xlsx")) Then

   FSO.DeleteFile(Client.TranslatePath("[TMPDIR]" & "Work.xlsx"))

End If

 

Server.TransactFileToClient("D:\Write.xlsx", "[TMPDIR]" & "Work.xlsx")

 

Dim ExApp As Excel.Application

 

ExApp := Client.CreateObject("Excel.Application")

ExApp.Workbooks.Open(Client.TranslatePath("[TMPDIR]" & "Work.xlsx"))

ExApp.Visible := True