Tue Apr 26, 2011 8:37 am
Hello,
here are the testfiles/code to verifiy the bug:
Public Sub TestMethodOpenAndSave()
Dim wb As XlsHelper.WorkbookHandler = Nothing
Dim fileName As String = String.Empty
Dim fileNameTemplate As String = String.Empty
Dim names As New List(Of XlsHelper.WorksheetName)
names.Add(New XlsHelper.WorksheetName(0, "Index"))
names.Add(New XlsHelper.WorksheetName(1, "Overview"))
names.Add(New XlsHelper.WorksheetName(2, "Details"))
Dim autoFilters As New List(Of XlsHelper.AutoFilter)
autoFilters.Add(New XlsHelper.AutoFilter(2, 8, 1))
Dim freezedPanes As New List(Of XlsHelper.FreezedPane)
freezedPanes.Add(New XlsHelper.FreezedPane(2, 9, 1))
fileNameTemplate = System.IO.Path.Combine(_TEST_DIRECTORY, "test.xls")
fileName = System.IO.Path.Combine(_TEST_DIRECTORY, String.Format("MyExcelFile97to2003_{0}.xls", Now.ToString("yyyyMMddHHmmss")))
IO.File.Copy(fileNameTemplate, fileName)
wb = New XlsHelper.WorkbookHandler(fileName, XlsHelper.XlsHelper.ExcelVersion.Version97to2003)
wb.RenameWorksheets(names)
wb.SetAutoFilters(autoFilters)
wb.FreezePanes(freezedPanes)
wb.Save()
End Sub