none
Excel из WinForms RRS feed

  • Вопрос

  • Здравствуйте!

    Я обращаюсь к файлу Excel из WinForms, программно форматирую его и сохраняю под тем же именем:

     Public Sub ExcelFormat(filename, intcount)
            Const xlCenter = -4108
     
            Dim xlApp As Microsoft.Office.Interop.Excel.Application
            Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
            Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
            Dim range As Microsoft.Office.Interop.Excel.Range
            Dim rCnt As Integer = 0
            Dim cCnt As Integer = 0
     
            xlApp = New Microsoft.Office.Interop.Excel.Application
            xlWorkBook = xlApp.Workbooks.Open(filename)
            xlWorkSheet = xlWorkBook.Worksheets(1)
            range = xlWorkSheet.UsedRange
    
            For cCnt = 1 To range.Columns.Count
                xlWorkSheet.Columns(cCnt).AutoFit()
            Next
      
            xlWorkSheet.Cells(1, 1).Font.Bold = True  
    
            xlWorkSheet.SaveAs(filename)
            xlWorkBook.Close(True)
           
            xlApp.Quit()
    
            releaseObject(xlApp)
            releaseObject(xlWorkBook)
            releaseObject(xlWorkSheet)
        End Sub

    Но, когда я открываю файл, вижу, что изменения НЕ сохранены, он как был до обращения к нему из моего приложения, так и остался. Я могу сохранить в другой файл (xlWorkSheet.SaveAs(filename1)), но результат тот же.

    Что я делаю не так?

    30 января 2021 г. 16:53

Ответы

Все ответы