Что нового

Не всегда устанавливаются комментарии к ячейке Excel

Cornet

Знающий
Сообщения
41
Репутация
6
Кто ни будь работал с комментариями в Excel?
Есть вот такой код:
Код:
Local $sFileName = "W:\Temp\Temp2.xlsx"
Local $oExcelDoc = ObjGet($sFileName)
Global $WorkSheet = $oExcelDoc.ActiveSheet
$Count = $WorkSheet.cells(1, 1).value
If Not $Count Then $Count = 2
$WorkSheet.Cells(1, $Count).Value = "Экспорт" & $Count
$Comment = $WorkSheet.Cells(1, $Count).AddComment
If @error Then ConsoleWrite("Ошибка" & @LF)
$WorkSheet.Cells(1, $Count).Comment.Visible = False
$WorkSheet.Cells(1, $Count).Comment.Text("Дата:" & @LF & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC)
$WorkSheet.Cells(1, 1).Value = $Count+1
$oExcelDoc.Windows(1).Visible = True
$oExcelDoc.Save
$oExcelDoc.saved = 1
$oExcelDoc.close

файл "W:\Temp\Temp2.xlsx" изначально может быть пустой
Проблема в том что значение ячейки записывается, а комментарий к ней нет.
если убрать последнюю строку
Код:
$oExcelDoc.close

то после второго запуска скрипта комментарии начинают записываться.
 
Автор
C

Cornet

Знающий
Сообщения
41
Репутация
6
Сам собственно решил. По другому открыл, вместо
Код:
Local $sFileName = "W:\Temp\Temp2.xlsx"
Local $oExcelDoc = ObjGet($sFileName)

сделал более наверное правильное открытие:
Код:
Local $sFileName = "W:\Temp\Temp2.xlsx"
$oExcel = ObjCreate("Excel.Application")
$oExcelDoc = $oExcel.WorkBooks.Open($sFileName)

почему частично не работает предыдущий метод — непонятно.
 
Верх