Всем доброе время суток!
Написанные макромы работают. Однако проект с этими макросами необходимо разместить на другом компьютере. В данном случае проект необходимо разместить на ноутбуке. На ноутбуке не все макросы срабатывают. Менял MS Office (2003), переустанавливал операционную систему Windows XP, ставил дополнительные библиотеки, менял размер виртуальной памяти – ничего не помогает. На не работающих макросах одна и таже ошибка - Subsript out of range.
Например, форма с таким макросом не запускается. Ошибка в строке запуска формы - Subsript out of range.
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.
Private Sub UserForm_Initialize()
Dim intU As Integer, intH As Integer
Dim ListRng As Range
Dim ThisList As Variant
Dim arrZata() As String
Dim arrSata() As String
Dim Cnt As Long
Set ListRng = Range(Workbooks("Книга2").Worksheets("Лист1").Range("A2"), Workbooks("Книга2").Worksheets("Лист1").Range("A2").End(xlDown))
ThisList = ListRng.Value
Cnt = ListRng.Rows.Count
If Cnt = 65535 Then Let Cnt = 1
ReDim arrZata( 1 To Cnt, 1 To 2 ) As String
For intH = 1 To Cnt
arrZata(intH, 1 ) = intH
arrZata(intH, 2 ) = ThisList(intH, 1 )
Next intH
ReDim arrSata( 1 To Cnt, 1 To 2 ) As String
For intU = 1 To Cnt
arrSata(intU, 1 ) = arrZata(intU, 1 )
arrSata(intU, 2 ) = arrZata(intU, 2 )
Next intU
ListBox1.List = arrSata
End Sub
Хотя на других компьютерах макрос работает и форма запускается.
Ещё пример не работающего макроса на ноутбуке, но работающего на других компьютерах.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Application.ScreenUpdating = False
Set wb1 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга2")
ThisWorkbook.Activate
Set wb2 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга1")
Workbooks("Книга1").Worksheets("Лист1").Activate
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = True
Выдаёт ошибку в строке Workbooks("Книга1").Worksheets("Лист1").Activate - Subsript out of range. Эту ошибку можно обойти так:
1.
2.
3.
4.
On Error Resume Next
Workbooks("Книга1").Worksheets("Лист1").Activate
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
On Error GoTo 0
Однако, теряется функциональность макроса, - Книга1 не всегда открывается с Лист1.
Вопрос – что необходимо сделать, чтобы макросы срабатывали на ноутбуке?
