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

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 Ответов
11952 Просмотров
Последний ответ Март 26, 2010, 14:39:23
от Garrett
1 Ответов
2647 Просмотров
Последний ответ Август 24, 2010, 10:50:58
от XpycT
0 Ответов
1598 Просмотров
Последний ответ Июнь 01, 2011, 10:44:23
от uBaH
1 Ответов
1596 Просмотров
Последний ответ Октябрь 17, 2012, 16:21:04
от CreatoR
4 Ответов
1970 Просмотров
Последний ответ Апрель 17, 2013, 11:56:10
от McLotos
1 Ответов
2430 Просмотров
Последний ответ Апрель 29, 2013, 17:45:46
от WSWR
0 Ответов
1443 Просмотров
Последний ответ Июль 26, 2013, 14:12:03
от andriy111
1 Ответов
1083 Просмотров
Последний ответ Декабрь 04, 2013, 12:59:54
от Fever
1 Ответов
927 Просмотров
Последний ответ Декабрь 14, 2013, 00:46:56
от palub
2 Ответов
1546 Просмотров
Последний ответ Ноябрь 23, 2014, 18:53:41
от GUIMish