| Вопрос: Помогите плз!! | Добавлено: 07.07.05 09:18 |
Автор вопроса:  Vasjka
|
|
Помогите пожалуйста написать скрипт на ВБ, который открывает 2 файла в экселе, делает поиск по опр. значениям в 1ом файле, а потом копирует их в другой файл. Тут я думаю лучше через массив сделать, но чет до меня не доходит как :( есть пример скрипта, вот довести до ума не могу :) Т.е. есть к примеру в файле STA компьютеры, файл сордержит только колонку "A" надо чтоб происходил поиск по MAC, занес он к примеру все MAC в массив а потом записал всё в фаел шаблон. Программа написаная кривая как 100 китайцев :)
Заранее спасибо. 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) |
| Ответы | Всего ответов: 0 |
Страница: