Есть два xls файла. В каждом (как ни странно) есть таблица. Первый файл - это прайс-лист вида:
[номер товара] - [цена]
Второй файл - факт наличия вида:
[номер товара] - [остаток]
Задача простейшая: во второй файл переместить свежие цены. Эта задача решена и работает. Всё было хорошо, пока менеджеры не вошли во вкус и не стали гонять прайсы по 8000-10000 наименований.
Сейчас скрипт берет номер товара из файла-остатков, ищет полным перебором совпадение номера в файле-прайсе и при совпадении переносит цену.
Посовейтуйте что-нибудь. А то у меня мысли уже остановились...
Требуется оптимизация скрипта:
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.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
Sub svedenie()
Dim fi_so, fi_dis As String
Dim k As Double
' считываем параметры
fi_so = Range("H5").Value ' имя файла источника
le_so = Range("H6").Value ' буква столбца, из которого берутся данные
le_id_so = Range("H7").Value ' буква столбца, по которому смотрится совпадение
fi_dis = Range("H11").Value ' имя файла вставки
le_dis = Range("H12").Value ' буква столбца вставки
le_id_dis = Range("H13").Value ' буква столбца совпадения
fi_so = Format(fi_so) + ".xls"
fi_dis = Format(fi_dis) + ".xls"
src_last_row = Windows(fi_so).ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
dst_last_row = Windows(fi_dis).ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Windows(fi_dis).Activate
' Идем по цели
For m = 1 To dst_last_row
kod = le_id_dis + Format(m)
dst_id = Range(kod).Value
kod_dst = le_dis + Format(m)
' Ищем в исходном файле совпадение
For n = 1 To src_last_row
kod = le_id_so + Format(n)
src_id = Windows(fi_so).ActiveSheet.Range(kod).Value
' если значение не пустое и есть совпадение - переносим данные
If src_id > "" And src_id = dst_id Then
kod_src = le_so + Format(n)
Range(kod_dst).Select
Range(kod_dst).Value = Windows(fi_so).ActiveSheet.Range(kod_src).Value
Exit For
Else
' отмечаем ячейку, которая сейчас обрабатывается
k = m Mod 20
If k = 0 Then
Range(kod_dst).Select
End If
End If
Next n
Next m
End Sub
