Кто ни будь работал с комментариями в Excel?
Есть вот такой код:
файл "W:\Temp\Temp2.xlsx" изначально может быть пустой
Проблема в том что значение ячейки записывается, а комментарий к ней нет.
если убрать последнюю строку
то после второго запуска скрипта комментарии начинают записываться.
Есть вот такой код:
Код:
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
то после второго запуска скрипта комментарии начинают записываться.