首页 文章

如何在不提示的情况下从VBScript关闭Excel文件？

提问于
浏览 次
6

我有一个VB脚本打开一个Excel文件并运行一个宏 . 我试图关闭此excel文件（不保存任何更改），而不提示保存 . 我已将'已保存'属性设置为true . 但我仍然会在“保存”窗口中提示我 . 我读到某处我必须禁用宏 . 不确定怎么样？我想关闭excel文件而不保存和没有提示 .

Dim objExcel, objWorkbook 

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("c:\aaa\Test.xls")
objExcel.Visible = True
objExcel.Run "Extract_PLStatements"
objworkbook.Saved = True
objWorkbook.Close

objExcel.Quit

Set objWorkbook = Nothing
Set objExcel = Nothing

WScript.Quit
excel vbscript

4 回答

  • 1

    这应该这样做：

    objExcel.DisplayAlerts = False

objWorkbook.Close False
    回复于
  • -2

    你有没有尝试过：

    objWorkbook.Close False
    回复于
  • -2

    试试这个，更容易！

    FILENAME CMDS DDE 'Excel|system'; 

DATA _NULL_; 
FILE CMDS; 
PUT '[Workbook.Activate("FILENAME.XLS")]';
PUT "[SAVE()]";
PUT "[CLOSE("'"'"C:\FILENAME.XLS"'"'")]"; 
RUN;

    对不起，这是使用SAS .

    回复于
  • 19

    试试这个 . 这将关闭所有excel实例而不要求保存 . 但是，您将丢失任何未保存的数据 .

    Do While  True  
    Dim objExcel
    On Error Resume Next
    Set objExcel = GetObject(,"Excel.Application")
    If Err.Number <> 0 Then
        Exit Do
    End If
    On Error GoTo 0
    objExcel.DisplayAlerts = False
    objExcel.Quit
    Set objExcel = nothing
Loop
    回复于

相关问题