Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 След.
Поиск по всем файлам Excel в папке и всем листам, Макрос поиска в папке по всем файлам Excel и всем листам в каждом файле
 
Юрий М, написал Вам через эл.почту.
Поиск по всем файлам Excel в папке и всем листам, Макрос поиска в папке по всем файлам Excel и всем листам в каждом файле
 
Юрий М, новый тоже устроит, но код должен быть хорошо комментирован. Желательно существующий доработать. В любом случае, если новый или существующий макрос будет работать как механизм автомата калашникова оплата будет произведена. Согласны?
Поиск по всем файлам Excel в папке и всем листам, Макрос поиска в папке по всем файлам Excel и всем листам в каждом файле
 
Добрый день!

Необходимо организовать поиск по всем файлам Excel в папке и всем листам в каждом файле. И копировать всю строку, где нашелся искомый текст. Копировать все нахождения и все строки, где они находятся.
Имеется макрос, но он не работает. Нужно доработать макрос. Желательно сохранить общую структуру неработающего макроса, так как макрос для многократного использования. Плюс добавить комментарии для кода, чтобы код можно было использовать регулярно.
Проблема неработающего кода в том, что нужно дописать игнорировать ошибки и другие недочеты исправить. Так как книги и листы Excel могут быть разными.
Желательно использовать потомка объекта Range - Семейство Areas, и свойство EntireRow
Техническое описание более подробно напишу в личку, хотя программист поймет тех. задание по структуре неработающего кода. Код тоже вышлю в личку.

Бюджет 1200 руб.
Изменено: Spec - 4 апр 2021 06:52:24
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Тут у меня уже 2 часа ночи, утро вечера мудренее. На днях отпишусь, если заработает код.
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,Через строку идет вставка в Вашем новом коде A1, A3, A5  B1, B3, B5/              а нужно чтобы шло порядку А1, A2, A3   B1, B2, B3
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,29 строку как активировать после thisworkbook.Activate ? Ведь остается активированной только Thisworkbook, а надо переключиться.  Workbooks.Open(MyFiles & s).Activate не подойдет ведь.
Изменено: Spec - 2 окт 2020 19:38:50
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo, файл Macro.xlsm     (ThisWorkbook)
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,После того как перезагрузил компьютер, и очистил комп с CCleaner, пишет Runtime Error 1004 на 20 строку ThisWorkbook.Worksheets("Лист2").Select

Метод Select из класса Worksheet завершен неверно - пишет excel.
Изменено: Spec - 2 окт 2020 19:04:48
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,Даже когда удалаи с 17 по 38 строки, чтобы только выделял ячейку и сохранял при закрытии. Быстро проверить цикл. Тоже самое серый фон. Но другие макросы работают.
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,Нормально, все файлы вид, сделал обычный.
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,Как на прикрепленном файле jpeg. Серый фон в VBE.
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,15 и 28 строку сделал комментариями, все равно не работает.
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo, оба Set сделать комментарием?
Изменено: Spec - 2 окт 2020 18:02:45
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,компьютер перезагрузить нужно?   Скрытое окно - это что такое?
Изменено: Spec - 2 окт 2020 17:51:56
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,Если убрать with пишет compile error
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Hugo,А что лишнее With или Set?))) Две операции с копированием двух ячеек на разных местах как сделать?
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
New,Применил
s = Dir(MyFiles & "*.xls*")
Также прошелся по F8, серая область только.
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
 
Добрый день!

Есть задача:
1) Открывать файлы с помощью цикла
2) Копировать определенные ячейки из разных мест на листе.

3) Вставлять в список в книгу с кодом Macro.xlsm (ThisWorkbook) следующую пустую строку по столбцам А и B.

Код не работает. Идет Run, потом пропадает окно с кодом, но VBE остается. То же самое с Листом ThisWorkbook, только серая область, без разметки.

Код
Sub KopirovanieIVstavkaVSpisok()
Dim s As String, MyFiles As String, MyRange As String, MyRange2 As String, wb As Workbook


Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False

MyFiles = "C:\Users\User\Desktop\Papka3\"
s = Dir(MyFiles & "*.xls")
Do While s <> ""
    With Workbooks.Open(MyFiles & s)
        
        ' To copy file
        Set wb = Workbooks.Open(MyFiles & s)
        Range("D1").Select ' .Worksheets("Лист1").
        Selection.Copy
                        
        ' To insert file
        ThisWorkbook.Worksheets("Лист2").Select
        MyRange = "A" & ThisWorkbook.Worksheets("Лист2").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        ThisWorkbook.Worksheets("Лист2").Range(MyRange).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        
        ' To copy file
        Set wb = Workbooks.Open(MyFiles & s)
        Range("G8").Select ' .Worksheets("Лист1").
        Selection.Copy
        
        ' To insert file
        ThisWorkbook.Worksheets("Лист2").Select
        MyRange2 = "B" & ThisWorkbook.Worksheets("Лист2").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        ThisWorkbook.Worksheets("Лист2").Range(MyRange2).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        .Close SaveChanges:=True
        
    End With
    s = Dir
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.AskToUpdateLinks = True

End Sub
Изменено: Spec - 2 окт 2020 17:37:02
VBA. Создать файлы Excel в одной папке с названиями файлов из списка (Range) с помощью цикла, Применение цикла к диапазону для создания файлов Excel в папке
 
Заказ принял в работу Михаил Лебедев.

Спасибо, заказ выполнен в полном объеме. 10 из 10 баллов.
Тему можно закрыть.
Изменено: Spec - 22 сен 2020 09:23:13
VBA. Создать файлы Excel в одной папке с названиями файлов из списка (Range) с помощью цикла, Применение цикла к диапазону для создания файлов Excel в папке
 
Добрый день!

Есть задача.
1) Создать Excel файлы в одной директории по адресу: C:\Users\User\Downloads\Papka
2) Названия Excel файлов берутся из файла List_of_New_Files_Names , листа "List2", столбца "A".
3) Одна ячейка из файла List_of_New_Files_Names , листа "List2", столбца "A"  равна одному Excel файлу в C:\Users\User\Downloads\Papka
4) Применить цикл.
5) В  файле List_of_New_Files_Names , лист "List2", столбец "A" могут попадаться пустые строки, их нужно пропускать, типа что сделать - Nothing, но цикл должен обработать весь диапазон.
6) Цикл For Each...Next, либо что-то подобное, счетчик не нужен.
7) Будет создано примерно 2000 файлов Excel.

VBA код должен быть помещен в файл:  Coding.xlsm

List_of_New_Files_Names.xlsx хранится отдельно от Coding.xlsm

Файл не грузится, пишет загружаемые файлы не должны быть размером более 100 Кб.
Файл  List_of_New_Files_Names.xlsx отправлю исполнителю по эл.почте.
Результат: нужен именно сам VBA код с комментариями.
Для многоразового использования кода.
Код должен быть лаконичным и понятным.  

Бюджет 700 руб.
Изменено: Spec - 16 сен 2020 11:23:34
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
doober провел ликбез по XML, PHP и Python, после которого решил, что лучше отказаться от этой затеи)))
Тему можно закрыть.

 
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
doober, PHP бюджет 1500 рублей, согласны?
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
doober,Я не программист по образованию. VBA также толком не понимаю, как функционирует. Я на хлеб не программированием зарабатываю. В ручную все перелопатить такой большой объем информации невозможно.. Что гугл выдает, тот инструментарий и выбираю. Про парсинг на Python и PHP много информации. На VBA ничего вразумительного на просторах интернета нет, либо глубоко запрятан. Первые 8-9 страниц выдачи гугл только ведь обычные юзеры используют))
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
doober,1000 рублей, Но только в скрипте должны быть комментарии:
1) где вставлять путь папки;
2) где вставлять теги между которыми искомые значения столбца (столбцы в MySQL, я  XML открываю через Excel, и там столбwы, если через браузер, то там Теги в виде дерева)/
3) где ставить необходимое значение, 2019 год на столбце (теге) RATING_YEAR         Т.е. Фильтр
4) где ставить необходимое значение, для пропуска 2018, 2017 и т.д. годов.  Также Фильтр.
Я и другие папки на локальном диске буду парсить с XML.
Универсальный скрипт нужен, для многоразового использования.

Согласны на бюджет?
Изменено: Spec - 14 сен 2020 16:08:25
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
doober,По книге PHP и MySQL, 2-издание, Бретт Маклафлина только устанавливаю WAMP на Windows 10.
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
В ТЗ добавил возможность применения сценария PHP.
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
Видимо любители python редко заходят в форумы посвященные MS Excel))
Парсинг из набора открытых данных, Осуществить парсинг открытых данных, сохранить в базу данных Mysql, экспорт в CSV, экспорт Excel.
 
Задача решена. Тему можно закрыть.
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
В каждой шутке есть доля правды  :)

А у Вас про бензин - не шутка, а конкретный вопрос, хоть и в шуточной манере.
Парсинг набора файлов xml из директории локального диска в базу данных MS Access на Python, Парсинг кучи Xml файлов из папки на локальном диске в базу данных MS Access на Python
 
Игорь,
1. Куча XML файлов в одной папке
далее
2. Одна таблица в базе данных MS Access
далее
3. Экспорт в одну таблицу Excel.
Все дороги ведут в Рим, все скрипты ведут к экспорту в Excel.
Изменено: Spec - 7 сен 2020 09:45:39
Страницы: 1 2 3 След.
Наверх