С момента первого нажатия на кнопку до появления файла Excel'я с результатами уходит секунд 5, а то и больше. Однако все последующие нажатия на эту кнопку обрабатываются меньше чем за секунду.
Кто-нибудь может подсказать, с чем это связано?
Подключены сборки:
Microsoft Excel 11.0 Object Library
Microsoft Office 11.0 Object Library
Microsoft Visual Basic for Applications Extensibility 5.3
Обработчик кнопки
- Код: Выделить всё
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRange As Excel.Range
Dim sFile As String
' работа с Экселем
oExcel = New Excel.Application
oExcel.Visible = True
oBook = oExcel.Workbooks.Add
oSheet = oBook.ActiveSheet
' заполнения файла Эксель
' заполнение комментариев
oRange = oSheet.Range("A1")
If Not oRange.Comment Is Nothing Then
oRange.Comment.Delete()
End If
oRange.AddComment("Комментарий")
' заполнение значений (y,x)
oSheet.Cells(1, 4).Value = "Значение ячейки Y=1 и X=4"
' работа с памятью
System.Runtime.InteropServices.Marshal.ReleaseComObject(oRange)
oRange = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)
oSheet = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
oBook = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
oExcel = Nothing
GC.Collect()
End Sub
