Автор Тема: Не всегда устанавливаются комментарии к ячейке Excel  (Прочитано 5927 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Cornet [?]

  • Новичок
  • *
  • Сообщений: 31
  • Репутация: 6
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Кто ни будь работал с комментариями в Excel?
Есть вот такой код:
Код: AutoIt [Выделить]
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" изначально может быть пустой
Проблема в том что значение ячейки записывается, а комментарий к ней нет.
если убрать последнюю строку
Код: AutoIt [Выделить]
$oExcelDoc.close

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

Русское сообщество AutoIt


Оффлайн Cornet [?]

  • Новичок
  • *
  • Сообщений: 31

  • Автор темы
  • Репутация: 6
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Сам собственно решил. По другому открыл, вместо
Код: AutoIt [Выделить]
Local $sFileName = "W:\Temp\Temp2.xlsx"
Local $oExcelDoc = ObjGet($sFileName)

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

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

Русское сообщество AutoIt

Re: Не всегда устанавливаются комментарии к ячейке Excel
« Ответ #1 Отправлен: Июнь 15, 2015, 14:18:42 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
9 Ответов
12815 Просмотров
Последний ответ Март 26, 2010, 14:39:23
от Garrett
1 Ответов
2844 Просмотров
Последний ответ Август 24, 2010, 10:50:58
от XpycT
0 Ответов
1696 Просмотров
Последний ответ Июнь 01, 2011, 10:44:23
от uBaH
1 Ответов
2678 Просмотров
Последний ответ Апрель 29, 2013, 17:45:46
от WSWR
0 Ответов
1547 Просмотров
Последний ответ Июль 26, 2013, 14:12:03
от andriy111
1 Ответов
1233 Просмотров
Последний ответ Декабрь 04, 2013, 12:59:54
от Fever
1 Ответов
1055 Просмотров
Последний ответ Декабрь 14, 2013, 00:46:56
от palub
2 Ответов
2071 Просмотров
Последний ответ Ноябрь 23, 2014, 18:53:41
от GUIMish
0 Ответов
503 Просмотров
Последний ответ Март 14, 2017, 15:44:56
от Pahuchiy
3 Ответов
210 Просмотров
Последний ответ Ноябрь 30, 2017, 09:17:01
от ra4o