Помогите с экспортом???
в Graphworx-e есть объект AlarmWorx32 Report ActiveX, туда поступают данные каждый 5 минут.
Мне нужно эти данные экспортировать в Excel.
Я написал скрипт в VBA:

Sub ExpExcel(o As GwxPick)
Dim EXC11 As Excel.Application
Set EXC11 = New Excel.Application
Set Workbok = EXC11.Workbooks.Add
Set SH = Workbok.Worksheets.Add
Workbok.Application.Visible = True

SH.Cells(1, 1) = "Дата/Время"
SH.Cells(1, 2) = "ФФФ"
SH.Cells(1, 3) = "ВВВВ"
SH.Cells(1, 4) = "ППП"
For i = 1 To ThisDisplay.AWXRep2.GetGridRowCount()
SH.Columns.AutoFit
SH.Cells(i + 1, 1) = ThisDisplay.AWXRep2.GetCellText(1, i)
SH.Cells(i + 1, 2) = ThisDisplay.AWXRep2.GetCellText(2, i)
SH.Cells(i + 1, 3) = ThisDisplay.AWXRep2.GetCellText(3, i)
SH.Cells(i + 1, 4) = ThisDisplay.AWXRep2.GetCellText(4, i)
Next i
Set EXC11 = Nothing
Set Workbok = Nothing
Set SH = Nothing
End Sub

Проблема в том, что после экспорта в Excel-e половина данных отображается звездочками *