Помогите плз!!

[DisconnecteD]

Помогите пожалуйста написать скрипт на ВБ, который открывает 2 файла в экселе, делает поиск по опр. значениям в 1ом файле, а потом копирует их в другой файл. Тут я думаю лучше через массив сделать, но чет до меня не доходит как есть пример скрипта, вот довести до ума не могу Т.е. есть к примеру в файле STA компьютеры, файл сордержит только колонку "A" надо чтоб происходил поиск по MAC, занес он к примеру все MAC в массив а потом записал всё в фаел шаблон. Программа написаная кривая как 100 китайцев
Заранее спасибо.
[ syntax="vb" ]
Dim objExcel: Set objExcel = WScript.CreateObject("Excel.Application")
Dim MyArray(100)
objExcel.Visible = True
objExcel.Workbook.Open("C:\шаблон.xls")
objExcel.Workbook.Open("C:\STA.xls")

i = 2
n = 0

With Workbooks("STA").Worksheets(1).Range("a1:a1000")
Set FoundValue = .Find(What:=SSID, LookIn:=xlValues)
If Not FoundValue Is Nothing Then
firstaddress = FoundValue.Address
Do
FoundValue.Select
MyArray(n) = Selection.Copy
Set FoundValue = .FindNext(FoundValue)
n = n + 1
Loop While Not FoundValue Is Nothing And FoundValue.Address <> firstAddress
End If
For K = 1 To n Do
ws.Cells(i,1).Value = MyArray(0..n)
[ /syntax ]

[Portfel]

Я думаю автор темы не будет против.Чтоб дублирующих названий не создавать..)
Вообщем в MS Acsess такую строчку выдаёт в дебагере...
"DoCmd.TransferText acImportFixed, "ImpVSS", "VSS_IN", NameFile, False" Типа False=False это под XP а в 98-ом работает на ура!...Может кто в курсе? Спасибо.