VB 对 Excel处理后，如何自动保存？

Question

在VB中，对 Excel处理后，会弹出一个是否保存的对话框，
如何让程序自动保存，而不需弹出对话框？
谢谢！

Answer 1

工作表保存：
  If not ExcelID.ActiveWorkBook.Saved then
    ExcelID.ActiveSheet.PrintPreview
    End if
工作表另存为：
   ExcelID.SaveAs( 'C:\Excel\Demo1.xls' );ExcelID.DisplayAlerts = False  '关闭时不提示保存
ExcelID.DisplayAlerts = True   '关闭时提示保存
ExcelID.Quit                '关闭EXCEL

Answer 2

首先创建 Excel 对象
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application

Answer 3

首先创建 Excel 对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID = new Excel.Application

Answer 4

DataString = Format(Now, "yyyy_mm_dd_HH_mm_ss")
      DataString = TransferProduct & " " & DataString
      vbexcel.ActiveWorkbook.SaveAs FileName:="D:\OQC_Report\Report\VisualInspection\" & DataString & ".xls", FileFormat:=xlNormal, _
         Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ConflictResolution:=xlLocalSessionChanges, CreateBackup:=False
      vbexcel.ActiveWorkbook.Close False, "D:\OQC_Report\Use\VisualInspection.xls"
      
      vbexcel.Quit
      Set vbexcel = Nothing

Answer 5

实验没能成功，请再指教！创建 Excle 对象如下：     Dim app As Excel.Application
    Dim eworkbook As Workbook
    Dim eworksheet As Worksheet
    Set app = New Excel.Application
    Set eworkbook = app.Workbooks.Open("G:\2005.xls")
    Set eworksheet = eworkbook.Sheets(1)内容代码如下：
        With eworksheet
            .Cells(1, 1) = 1
            .Cells(1, 2) = 2
        End With保存时的代码如下：        eworkbook.Close
        app.Quit我希望用
        MsgBox "Success!", vbInformation, "Stat."
        Unload Me
来结束程序，自动保存。
我应在保存时的代码中加些哪些代码？

Answer 6

//定义对象变量  Dim xlapp As Excel.Application    '也可以使用dim xlapp as New Excel.Application,这种对象定义称为“前期邦定”
  Dim xlwbM As Excel.Workbook       '定义月报表工作簿对象，源文件
  Dim xlwbY As Excel.Workbook       '定义年报表工作簿对象，目标文件
  Dim xlshtM As Excel.Worksheet     '定义月报表工作表对象
  Dim xlshtY As Excel.Worksheet     '定义年报表工作表对象
  Set xlapp = New Excel.Application
  Set xlwbY = xlapp.Workbooks.Open(YRep_path & MyFileY)//以下是读写内容的代码位置
................
...............//结束部分代码  xlwbY.Save    ''  保存目标工作簿
  xlwbY.Close   ''  关闭目标工作簿
  xlapp.Quit    ''  退出应用对象  MsgBox "Success!", vbInformation, "Stat."
  Unload Me  Set xlwbM = Nothing
  Set xlwbY = Nothing
  Set xlapp = Nothing//补充：若要保存完直接打开，则用以下代码  xlapp.Visible = True
  xlapp.WindowState = xlMaximized
  xlapp.ActiveWindow.WindowState = xlMaximized
  
  xlWb.Activate
  xlWb.ActiveSheet.Activate

Answer 7

是不是没有Save
excel_application.ActiveWorkbook.SaveAs (App.path & "\我要存Excel.xls")