Макрос переноса строк по условию из файла в другой файл

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макрос переноса строк по условию из файла в другой файл (Макросы/Sub)

vityaba3 Дата: Суббота, 24.06.2023, 15:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Я почти уверен, что где-то в интернете есть готовое решение переносящее строки из файла в файл.

Я думаю, это выглядеть будет так:
[Руками]
Открываем эксель. Выставляем фильтр по столбцу (то самое условие). Нажимаем кнопку.
[Макрос]

Открывает файл:

destFileName = Application.GetOpenFilename(FileFilter:="Excel Workbooks,*.xl*", _ Title:="Выбери файл, который надо открыть", _ MultiSelect:=False) 'Need block like {Try: ... ... Except: ....} Workbooks.Open FileName:=destFileName

а потом

lastRow = Cells(Rows.Count, "B").End(xlUp).Row Rows("2:lastRow").Select Selection.Copy Application.CutCopyMode = False Selection.Delete Shift:=xlUp End Sub

Но я вообще не понимаю, что и как варить тут...
Я полный 0 в VBA (Я написал то, что нужно на питоне и заплакал от того, как медленно копирует стили библиотека openPyXl).

Может у кого-нибудь валяется примерчик?
(Можно с десяток...)

Все что есть в интернете работает с одним файлом.... Немного не то...

Ответить

Hugo

Дата: Суббота, 24.06.2023, 16:07 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Макрос ИИ писал?
Сейчас в коде ошибка, и он недописан.
Но делает примерно так - выбрали файл, открыли, ИЗ НЕГО из первого попавшегося листа скопировали в буфер кусок.
Далее нужно этот кусок сперва куда-то выгрузить, и уже затем его можно удалить из источника.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Суббота, 24.06.2023, 16:10

Ответить

vityaba3

Дата: Понедельник, 26.06.2023, 07:34 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Цитата Hugo, 24.06.2023 в 16:07, в сообщении № 2 (

писал(а)):

Макрос ИИ писал?

Меня уже до ИИ повысили... Неплохо...

Макрос делал Я (ctrl+c | ctrl+v | и немного поправил (Я знаю, что он не работает)).

Я вообще 0 в vba, но не сильно далек от программирования в общем (python, arduino (c++ + Wiring lib)).

Мне бы примерчик, как переносить из файла в файл данные... (Я на 99.98% уверен, что у кого-нибудь есть такое, но я не смог за пол часа нагуглить (или не понял, что нашел))

=========================================================

А про ии это вы идею кинули....

Ответить

Hugo

Дата: Понедельник, 26.06.2023, 11:44 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Я спросил у ИИ
"Мне бы примерчик на VBA, как переносить из файла в файл данные"
и он написал код, наверное рабочий, но тоже зараза написал не по переносу, а по копированию ((
Вот ссылка, но это уже вторая версия и она чуть отличается от первой (например переменные тут на русском), но тоже только копирование

https://chat.openai.com/share/28e38d40-0c5b-4a92-b682-83d5558e6e04

P.S. глючит что-то ИИ - я спросил
Целевой файл разве не нужно сохранить?
и он извинился и написал новый код.

Тут на форуме можете макросы посмотреть, например:
http://www.excelworld.ru/forum/3-176-1

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Понедельник, 26.06.2023, 12:19

Ответить

Макрос переноса строк по условию из файла в другой файл (Макросы/Sub)

Страница 1 из 1
1