Привет всем.
Есть файл Эксела с рабочей областью около 20000 ячеек, с помощью макросов на VBA обеспечивается передача данных на сервер вычислителю и обработка поступивших от него данных.
Данные посылаются и принимаются в виде строки. Для данного файла это около 200 кБ.
Основная проблема во времени. Для 7000 ячеек, например, формирование строки занимает около 10 секунд, а обработка поступивших данных и их отображение в таблице - около 1 мин 20 сек. Для такого размера таблицы это много.
А для 20000 ячеек вообще чуть ли не 20 минут все это делается.
Конечно, можно передавать только изменившиеся по сравнению с прошлым вариантом ячейки, но если их будет много, то все равно нужно ускорить это.
Сейчас все это делается в цикле, каждой ячейке присваивается полученное значение. Здесь в принципе тоже можно сократить объем данных, если обновлять только изменившиеся ячейки.
Но даже так может получаться общее время около 1 мин. Нет ли способа принципиально это ускорить? Может быть, с помощью базы данных - генерировать файл БД в формате .mdb, а затем макросом вставлять данные из неё.
Сам код функции разбора полученной с сервера строки (лишние маловажные части убраны):
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.
31.
32.
33.
34.
35.
Sub Parse(serverres)
Application.ScreenUpdating = False
Application.EnableEvents = False
If (Mid(serverres, 1 , 3 ) = "!!!") Then MsgBox (Mid(serverres, 5 ))
If (Not Mid(serverres, 1 , 3 ) = "!!!") Then
result = Split(serverres, "~~~END~~~")
Dim color As Integer
If (Mid(serverres, 1 , 12 ) <> "~~~END~~~") Then
znach = Split(result( 0 ), "`")
For Each zn In znach
If (Len(zn)) Then
parts = Split(zn, "|")
listname = parts( 0 )
yach = parts( 1 )
Value = parts( 2 )
color = "0"
vych = True
If (Trim(Worksheets(listname).Range(yach).Value) <> Value) Then color = 1
If (Trim(Worksheets(listname).Range(yach).Value) = Value) Then color = 2
Worksheets(listname).Range(yach).Value = Value
If (color = 1 ) Then Worksheets(listname).Range(yach).Font.color = vbBlue
If (color = 2 ) Then Worksheets(listname).Range(yach).Font.color = vbBlack
End If
Next zn
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Что-то можно с этой проблемой сделать или нет (очень долгая обработка)?
