пока сделал функцию которой скармливаю диапазон ячеек в формате R1C1
и нужный формат она бъет регион на куски порядка 200 символов
и применяет к глобальному обекту эксел
сейчас лист из порядка 300 * 200 ячеек разрисовывает и заполняет данными около 10 секунд
супротив 15 минут в предыдущем варианте существенный прогресс
можно конечно подумать о оптимизации диапазонов:
R1C1,R1C2,R1C3 - > R1C1:R1C3
но пока ничего быстрого не приходит в голову
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Private Sub ExcelOut(OutRange As String, CellValue As String, CellFormat As String)
Dim rng
Dim zpta200
If Len(OutRange) = 0 Then Exit Sub
OutRange = Mid(OutRange, 2 ) 'Обрезка первого разделителя
While OutRange <> ""
zpta200 = InStr( 200 , OutRange, ",", vbTextCompare) 'Ищем позицию разделителя после 200 позиции
If zpta200 <> 0 Then
rng = Left(OutRange, zpta200)
If Right(rng, 1 ) = "," Then rng = Left(rng, Len(rng) - 1 )
'Debug.Print rng
OutRange = Mid(OutRange, zpta200 + 1 )
Else
If OutRange = "" Then Exit Sub
rng = OutRange
OutRange = ""
End If
rng = XL.Application.ConvertFormula(rng, - 4150 , 1 , 4 )
'Debug.Print rng
rng = Replace(rng, ",", ";", , , vbTextCompare)
With XL.Range(rng)
If CellValue <> "" Then .FormulaR1C1 = CellValue
If CellFormat <> "" Then .Interior.ColorIndex = CellFormat
End With
Wend
End Sub
в данный момент мне быстрее и не надо так как планирую запихнуть
форматирование эксела в область ожидания ассинхронной загрузки данных
