Макрос был написан в office2000, windows 2000 prof - работает
беда у того у кого стоит либо Windows98, Office XP

Смотрел Tools-References галочки стоят также как у меня а код не хочет выполнятся.

Как бороться с этой бедой. Может какие библиотеки из какого нить MS дистриба ставить надо?

Спасибо

Scio me nihil scire

<<Jojo®>>

SinnerХоть пытаешься искать по форуму????
Тынц

я не работаю с набором ни с через ADO ни DAO ...
макрос простой идет копирование областей ...причем писал не я ...мне в облом переписывать ...неохота не мой стиль

Sub Заполнить_список()

Application.DisplayAlerts = False
DECL_FILE = ActiveWorkbook.Sheets("Данные").Cells(1, 7)
Workbooks.Open Filename:=DECL_FILE
pos = InStrRev(DECL_FILE, "\", Trim(Len(DECL_FILE)))
f_name = Mid(DECL_FILE, pos + 1)


' Определили количество строк в файле Раздел -12-22..
Set voin = ThisWorkbook.Sheets("Данные")
Set sotr = Workbooks(f_name).Sheets(1)

offset_row = 1
k = 1
While Not (IsEmpty(sotr.Cells(k + offset_row, 1)))
k = k + 1
Wend
'Делаем Фамилия И.О.
'For i = offset_row + 1 To k
' qqq = sotr.Cells(i, 2).Value & " " & Mid(sotr.Cells(i, 3).Value, 1, 1) & "." & Mid(sotr.Cells(i, 4).Value, 1, 1) & "."
' sotr.Cells(i, 60).Value = qqq
'Next i

'Описываем диапазон копирования
If k > 1 Then
'копируем коды
myrange = "A2:F" + Trim(Str(offset_row + k - 1))
Range(myrange).Select
Selection.Copy
voin.Activate
begin_offset = offset_row + 6
myrange1 = "A" + Trim(Str(begin_offset))
Range(myrange1).Select
' voin.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'копируем ФИО
sotr.Activate
myrange = "K2:S" + Trim(Str(offset_row + k - 1))
Range(myrange).Select
Selection.Copy
voin.Activate
begin_offset = offset_row + 6
myrange1 = "M" + Trim(Str(begin_offset))
Range(myrange1).Select
'voin.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'копируем коды
sotr.Activate
myrange = "AM2:AM" + Trim(Str(offset_row + k - 1))
Range(myrange).Select
Selection.Copy
voin.Activate
begin_offset = offset_row + 6
myrange1 = "AR" + Trim(Str(begin_offset))
Range(myrange1).Select
' voin.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'копируем коды
sotr.Activate
myrange = "AP2:AP" + Trim(Str(offset_row + k - 1))
Range(myrange).Select
Selection.Copy
voin.Activate
begin_offset = offset_row + 6
myrange1 = "AW" + Trim(Str(begin_offset))
Range(myrange1).Select
' voin.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Windows(f_name).Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub