Ignorieren "wollen Sie speichern" - box beim beenden von excel

Habe ich ein Skript öffnet eine excel-Datei und führt ein makro, dann beendet die Datei. Da die Datei im nur-Lesen-Modus, und das Skript macht temporäre änderungen an der Datei, wenn das Skript fordert myExcelWorker.Quit() excel fragt, ob ich speichern will meine änderungen und ich muss auf 'Nein'. Gibt es eine Möglichkeit das Programm zu beenden und überspringen Sie dieses Feld?

' Create a WshShell to get the current directory
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

' Create an Excel instance
Dim myExcelWorker
Set myExcelWorker = CreateObject("Excel.Application") 

myExcelWorker.Visible = True

' Tell Excel what the current working directory is 
' (otherwise it can't find the files)
Dim strSaveDefaultPath
Dim strPath
strSaveDefaultPath = myExcelWorker.DefaultFilePath
strPath = WshShell.CurrentDirectory
myExcelWorker.DefaultFilePath = strPath

' Open the Workbook specified on the command-line 
Dim oWorkBook
Dim strWorkerWB
strWorkerWB = strPath & "\BugHistogram_v2.xlsm"

Set oWorkBook = myExcelWorker.Workbooks.Open(strWorkerWB)

' Build the macro name with the full path to the workbook
Dim strMacroName
strMacroName = "CreateImagesButton_Click"
on error resume next 
   ' Run the calculation macro
   myExcelWorker.Run strMacroName
   if err.number <> 0 Then
      ' Error occurred - just close it down.
   End If
   err.clear
on error goto 0 

' oWorkBook.Save ' this is ignored because it's read only 

myExcelWorker.DefaultFilePath = strSaveDefaultPath

' Clean up and shut down
Set oWorkBook = Nothing

' Don’t Quit() Excel if there are other Excel instances 
' running, Quit() will 
' shut those down also
if myExcelWorker.Workbooks.Count = 0 Then
   myExcelWorker.Quit
End If

myExcelWorker.Quit()

Set myExcelWorker = Nothing
Set WshShell = Nothing

InformationsquelleAutor Cassandra McCarthy | 2014-07-03

7

ActiveWorkbook.Close False (zum schließen der Arbeitsmappe)

Application.Quit (zum beenden von Excel - nicht aufgefordert, änderungen zu speichern)

Vom Microsoft Support ist Wie zu unterdrücken "Änderungen Speichern" - Aufforderung beim schließen einer Arbeitsmappe in Excel:
Zu zwingen, eine Arbeitsmappe zu schließen, ohne die änderungen zu speichern, geben Sie den
folgenden code in ein Visual Basic-Modul der Arbeitsmappe:
```
Sub Auto_Close()
    ThisWorkbook.Saved = True
End Sub
```
Weil die Saved-Eigenschaft auf True festgelegt ist, wird Excel reagiert, als ob die Arbeitsmappe bereits gespeichert wurde und keine änderungen haben
aufgetreten seit dem letzten speichern.

Den DisplayAlerts Eigenschaft des Programms kann verwendet werden, für die gleichen
Zweck. Zum Beispiel das folgende makro schaltet DisplayAlerts aus,
schließt die aktive Arbeitsmappe ohne die änderungen zu speichern, und dann dreht sich
DisplayAlerts wieder.
```
Sub CloseBook()
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub
```
Können Sie auch die SaveChanges argument der Schließen Methode.

Das folgende makro schließt die Arbeitsmappe, ohne änderungen zu speichern:
```
Sub CloseBook2()
    ActiveWorkbook.Close savechanges:=False
End Sub
```
Danke!!! Ich benutzte die CloseBook () - Methode.

InformationsquelleAutor Isaac G Sivaa
2

Die Antwort, die Sie haben oben für VBA - Sie können diese Adresse in Ihrem VBS direkt mit
```
oWorkBook.Close False
Set oWorkBook = Nothing
```
statt
```
Set oWorkBook = Nothing
```
InformationsquelleAutor brettdj

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.