我现在有一个程序,在点击打开按钮事打开一个新的EXCEL,并对打开的EXCEL进行了修改,现在在界面中要求点击一个保存按钮在不关闭这个EXCEL的情况下,将修改过的EXCEL用一个指定好的名字保存到一个指定的目录下面,并且不会弹出提示保存路径提示框!

解决方案 »

  1.   

    Try                For i As Integer = 0 To products.Length - 1                    Dim product As String = products(i)
                        sheet = DirectCast(wbook1.Worksheets.Item(i + 1), Excel.Worksheet)                    Dim tb As DataTable = dbtool.getProductInfo(_vendor, product, 0)
                        sheet.Cells(2, 2) = dbtool.getVendorNameByvendorID(_vendor)
                        sheet.Cells(4, 2) = product                 
    .....
                    Next           
                    'save as new file 
                    wbook1.SaveAs(Excel_oOutputXls, missing, missing, missing, missing, missing, _
                    Excel.XlSaveAsAccessMode.xlNoChange, missing, missing, missing, missing, missing)                'close without change template file 
                    wbook1.Close(False, missing, missing)
                    excelApp.Quit()
                    GC.Collect()
                
                Next
            Catch ex As Exception            wbook1.Close(False, missing, missing)
                GC.Collect()
                disply("Err:" & ex.Message, Color.Red)
                appendToErrDescription("Err:" & ex.Message)
            End Try
      

  2.   

     忘记开始的声明了:Dim excelApp As New Excel.ApplicationClass()
            excelApp.Visible = true
            Dim wbook1 As Excel.Workbook = Nothing
            Dim sheet As Excel.Worksheet = Nothing--------------------------------------------------------
      

  3.   

    编辑器
    http://www.itwriting.com/htmleditor/index.php  
    打开excel编辑,保存后 
    file.Move复制到其他路径
      

  4.   


    你给的代码是不是在EXCEL的编辑器的代码吧?我现在保存这些操作是在WINFORM中界面的代码进行操作的!
      

  5.   

    可能是我问题说的不够明白吧,就是说现在对EXCEL保存的操作是在WINFORM界面中用代码进行操作,而不是要对EXCEL进行直接操作
      

  6.   

    xBook.SaveAs(@"D:\CData.xls",
    Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,
    Excel.XlSaveAsAccessMode.xlNoChange,Missing.Value,Missing.Value,Missing.Value,
    Missing.Value,Missing.Value); xBook.AlertBeforeOverwriting=false;
      

  7.   

    我这个文件打开的是通过打开Office路径下面的EXCEL.EXE文件的,所有无法使用你提供的打开指定路径下的EXCEL代码
      

  8.   


    请问这位仁兄 xBook 这个变量如何声明的!
      

  9.   

    可能我没说明白,就是要在WINFORM中做EXCEL的保存功能