Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос переноса строк по условию из файла в другой файл (Макросы/Sub)
Макрос переноса строк по условию из файла в другой файл
vityaba3 Дата: Суббота, 24.06.2023, 15:24 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

а потом
[vba]
Код

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

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

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

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

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

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

а потом
[vba]
Код

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

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

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

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

Автор - vityaba3
Дата добавления - 24.06.2023 в 15:24
Hugo Дата: Суббота, 24.06.2023, 16:07 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3230
Репутация: 700 ±
Замечаний: 0% ±

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


excel@nxt.ru
webmoney: R418926282008 Z422237915069


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

Автор - Hugo
Дата добавления - 24.06.2023 в 16:07
vityaba3 Дата: Понедельник, 26.06.2023, 07:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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


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

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

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

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

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

А про ии это вы идею кинули....
 
Ответить
Сообщение
Макрос ИИ писал?


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

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

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

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

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

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

Автор - vityaba3
Дата добавления - 26.06.2023 в 07:34
Hugo Дата: Понедельник, 26.06.2023, 11:44 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3230
Репутация: 700 ±
Замечаний: 0% ±

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

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

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

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


excel@nxt.ru
webmoney: R418926282008 Z422237915069


Сообщение отредактировал Hugo - Понедельник, 26.06.2023, 12:19
 
Ответить
СообщениеЯ спросил у ИИ
"Мне бы примерчик на VBA, как переносить из файла в файл данные"
и он написал код, наверное рабочий, но тоже зараза написал не по переносу, а по копированию ((
Вот ссылка, но это уже вторая версия и она чуть отличается от первой (например переменные тут на русском), но тоже только копирование

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

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

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

Автор - Hugo
Дата добавления - 26.06.2023 в 11:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос переноса строк по условию из файла в другой файл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2023 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!