Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
FriendSergey
1

Cоздание БД из N-го кол-ва однотипных файлов Excel (>1000)

11.07.2008, 12:50. Просмотров 1454. Ответов 1
Метки нет (Все метки)


Здравствуйте, коллеги.
Изначальная задача. которая реализовалась - создание БД из N-го кол-ва однотипных файлов Excel (>1000). Модуль написан и работает. Трудность заключается в том, что выгружает данные он с 1го листа в книге, а необходимо загружать с листа с определенным названием, а лист этот не всегда присутствует в книге.
Прошу gjlcrfpfnm rfr дополнить модуль функцией проверки наличия в книге листа с заданным именем и вставить в тело программы комманду о соответствующей проверке и выгрузке данных, если лист есть.
За основу можно взять лист "Заемщик".

С программированием знаком, но с VBA не сталкивался, а во времени ограничен.
Буду благодарен за понимание и Ваше время.
Вложения
Тип файла: rar 1 БД из N-файлов Excel.rar (27.2 Кб, 60 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.07.2008, 12:50
Ответы с готовыми решениями:

Можно ли программно подсчитать кол-во однотипных файлов в папке?
Подскажите, пожалуйста, как подсчитать программно количество файлов (например .bmp), находящихся в...

Перенос однотипных данных из 20 файлов более 15млн строк Excel в Access
Добрый день, Есть 15 файлов Excel. В каждом файле есть от одной до 3 вкладок. На каждой вкладке...

Cоздание текстовых файлов в цикле
Подскажите, как реализовать создание количество n текстовых файлов в цикле. В силу ограничений...

Cоздание кнопки для запуска Excel
Помогите пожалуйста, нужно для курсовой по информатике. Как создать в Access 2007 на кнопочной...

1
117 / 117 / 10
Регистрация: 12.05.2010
Сообщений: 1,207
18.07.2008, 21:08 2
Visual Basic
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
Sub ReadFiles_()
    Dim fs As Object, xl As Object, v_Path As String, i As Long
    Dim j As Byte
    '
    Range("a4:p" & Rows.Count).ClearContents
    Range("a4:p4") = Array("Файл", "Отделение", "Сума кредиту", "Срок кредиту міс.", "Щомісячний платіж", "Ціль кредиту", "% ставка", "Прізвище", "Ім'я", "По батькові", "Дата народження", "Стать", "Відношення до армії", "Громадянин України", "Серія", "Номер")
    v_Path = Range("a3") ' путь к исходным файлам
    Set fs = Application.FileSearch
    Set xl = CreateObject("Excel.application")
    fs.LookIn = v_Path
    fs.Filename = "*.xls" ' мака файлов
     If fs.Execute > 0 Then
        For i = 1 To fs.FoundFiles.Count
            xl.DisplayAlerts = False
            xl.Workbooks.Open fs.FoundFiles(i)
            For j = 1 To xl.Sheets.Count
                If xl.Sheets(j) = "Заемщик" Then
                    With xl.Sheets(j)
                        Range(Cells(i + 4, 2), Cells(i + 4, 16)) = _
                            Array(.Range("a1"), .Range("g6"), .Range("g7"), .Range("g8"), .Range("g9"), .Range("g10"), .Range("g12"), .Range("g13"), .Range("g14"), .Range("g15"), .Range("g16"), .Range("g17"), .Range("q16"), .Range("g20"), .Range("g15"))
                        Cells(i + 4, 1) = fs.FoundFiles(i)
                    End With
                    xl.Workbooks(1).Close
                    Exit For
                End If
            Next j
        Next i
        xl.Quit
     End If
    Set fs = Nothing
    Set xl = Nothing
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.07.2008, 21:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

правильное использование однотипных файлов БД
здравствуйте ! есть программа 'редактор тестов'.. Программа записывает в файл БД информацию об...

Создание множества однотипных XML файлов
Есть достаточно простая программа, по нажатию кнопки создается пару xml документов. Подскажите как...

Копирование однотипных файлов - MultiDRIVE File Copier
В качестве приятного бонуса к этой теме: https://www.cyberforum.ru/cmd-bat/thread763672.html...

Создание файла-библиотеки из нескольких однотипных файлов
Всем привет. У меня возникла идея создания вот такой вот программки. Что необходимо? Чтобы из всех...

Поиск количества однотипных файлов в директории включая вложенные папки
Доброго времени суток, подскажите пожалуйста, каким образом можно реализовать поиск количества...

Как создать и наполнить множество таблиц данными из однотипных локальных файлов?
Доброго времени суток, дамы и господа! Подскажите новичку, пожалуйста! У меня на харде лежат...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.