Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как опрашивать несколько Excel документов

Автор: Ch_dima 5.7.2004, 10:59

Уважаемые любители и профи помогите новичку пожалуйста.
Суть вопроса такова
Есть несколько файлов Excel имя файла это номер месяца от 1 до 12, в каждом файле по 7 листов с именем от 1 до 7
Вопрос.
Как грамотно организовать доступ и обработку нескольких файлов в цикле
Как правильно написать условие (Если Документ(File)Лист(List)Ячейка(i,2) = NumberCheta то ... )

Sub www()
NumberCheta = InputBox("Введите номер счета", "Диалог ввода счета", "")
Data1 = Val(InputBox("Введите номер месяца начала расчета", "Диалог ввода периода", ""))
Data2 = Val(InputBox("Введите номер месяца конца расчета", "Диалог ввода периода", ""))

For File = Data1 To Data2
For List = 2 To 6

For i = 1 To 310
If .....................Then
..............
...............

End If
Next i
Next List
Next File

End Sub

Автор: bankuss 5.7.2004, 12:05

используй
workbooks(имя.файла)
worksheets(индекс)
подробнее почитай здесь - http://www.firststeps.ru/ раздел VBA by steps

Автор: Guest 6.7.2004, 03:49

Цитата

Решал подобного рода задачу.............вопросов не вознокло.
1. Открвыаешь 1-й файл, делаеш с ним что нужно
2. Закрываеш 1-й файл
3. Открвыаешь 2-й файл, делаеш с ним что нужно
..............
..........
...................
и т.д. !!!!!!!!!!!!!

В чем проблема???????

Автор: Guest 6.7.2004, 03:51

БЛИИИИИИИИИИИИИН
товарисчи читайте ХЕЛПППППППППППППП!!!!!!!!!!!!!