• На форуме с 11 февраля 2008г.
  • Сообщений: 63
  • Спасибо: 0

Тема: Преобразование даты

Здравствуйте. При переносе данных из Excel значение отрибута (тип Дата/время) объекта берется из ячейки типа "Дата". 

ob.Attributes("aaa").Value = Range("H1").Value

Программа выдает ошибку "Неверный индекс".  Помогите, пожалуста, решить эту проблему.

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Преобразование даты

Set tdm = GetObject(, "TDMS.Application")
Set obj = tdm.Root.Objects(0)
With ActiveSheet
    obj.Attributes("ATTR_DATE").Value = .Range("A1").Value
End With