Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Цикл по всем листам
 
Nordheim, Спасибо, всё работает.
Цитата
Nordheim написал:
Литературу почитайте, да и в сети куча описаний и примеров.
Читаю и просвещаюсь, просто когда не знаешь "мат.часть" а задачу нужно выполнить уже сегодня, то вынужден бегать по верхам, что я и делаю.

Вы мне помогли, благодарю Вас.
Цикл по всем листам
 
Цитата
Nordheim написал:
ут нужно разобраться с конструкцией
В том то и проблема что самостоятельно с конструкцией разобраться у меня не получается.Я не селён в этом только учусь ...
Цикл по всем листам
 
Цитата
StoTisteg написал:
Dim i As IntegerDim sht As Worksheet
Если применять код без цикла по всем страницам то он работает, так как есть.С учётом "For Each ra In ActiveSheet.UsedRange.Rows"
Цикл по всем листам
 
Nordheim, я перепробовал все ваши варианты выдаёт ошибку, возможно как то конфликтует с кодом который я использую. Причину не знаю так как не я его  составлял, Вы могли бы посмотреть применительно к моему коду.
Цикл по всем листам
 
Цитата
Александр П. написал:
Do        With ThisWorkbook.Worksheets(i)             'ваш код        End With       i = i + 1    Loop While i <= ThisWorkbook.Worksheets.CounНе
Не работает с конкретно моим кодом.
Цикл по всем листам
 
Друзья, добрый день.

Сразу говорю,что сидел день и перечитывал весь интернет и форум, пробовал различные варианты,прежде чем создать тему. У самого не получается.
Есть макрос для удаления строки по названию.
Задача состоит в том чтобы прогнать этот макрос по всем листам.
Помогите пожалуйста.
Изменено: Maksimelyan - 16.08.2018 09:12:57
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Цитата
RAN написал:
отсутствии примера
Ну я же приложил конкретный пример в сообщениях выше. Я не знаю как ещё объяснить.
МНе нужно чтобы при вставке информация скопировалась вот таким образом
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Цитата
Nordheim написал:
вот эта строка их и делает
То есть делает ,если я запускаю Ваш макрос то она не делает.Она вставляет то, что скопировала  как есть. Объединенные ячейки с данными. А мне нужно чтобы было вставлены значения без объединения, как я и привёл пример в файле: "Тест 2 ". В таком виде Ваш макрос не вставляет содержимое файла html.
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Цитата
Nordheim написал:
Как то так?
Да именно так, всё работает проверил. Спасибо.
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Цитата
Nordheim написал:
За это отвечает эта строка
Так как мне ёё изменить?  в конечном итоге, мне нужно чтобы выполнялось копирование/вставка в следующем режиме:
Cells.Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Nordheim, спасибо за то что уделили время, Ваш вариант отлично работает.

Есть пару вопросов:

1. Если файл  html лежит не в папке а просто как файл в каталоге основном, то макрос проходит мимо и не замечает его - это можно как то исправить ?
И в папках и просто файлы анализировал.

2. Подскажите пожалуйста как прописать в Вашем коде, что бы данные после копирования вставлялись  как значение пример прикладываю
Изменено: Maksimelyan - 07.08.2018 23:15:09
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Мотя, То что нужно :)  
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Цитата
Мотя написал:
Для меня, будет сложновато: Я - не ПРОФЕССИОНАЛ!
Ваш Вариант работает,мне это было не под силу. Так что для меня Вы профессионал. Спасибо что уделили время, вы мне очень помогли.
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Цитата
RAN написал:
Лично мне не удалось найти ни одной формулы.
Формул действительно нет, но я потом планирую как раз использовать формулы ВПР для обработки данных и так как там есть ячейки объединенные и мне нужны от туда данные, то хотел чтобы информация была вставлена как значение
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
RAN, уточните пожалуйста как в Вашем варианте прописать чтобы информация копировалась как значение?
Изменено: Maksimelyan - 06.08.2018 22:20:11
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Цитата
Мотя написал:
кроме листа "111"
Да,всё работает спасибо. Мотя а уточните какую роль играет вкладка 111 -она всегда должна быть?  
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Мотя, Разобрался, действительно файлы переименовал и файл с макросом убрал из папки где лежат html. Все сработало.

извините что напрягаю, но хорошая мысля приходит опосля, и у меня такой вопрос.

1. Как прописать вариант чтобы не нужно было выбирать папку а положил в папку с файлами и обработка шла в этой папке?

2. Как прописать вариант чтобы макрос при выборе основной папке обрабатывал файлы которые лежат в отдельных папках основной папки.
Изменено: Maksimelyan - 06.08.2018 21:57:55
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
Мотя, у меня выдаёт ошибку. НАзвание папки имеет значение?
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 
RAN,Спасибо,супер  Ваш вариант работает. Небольшое уточнение, а можно сделать так чтоб информация копировалась как значения?
Открыть все файлы в папке, скопировать содержимое и вставить в активную книгу
 

Друзья, добрый день.

Помогите пожалуйста доработать макрос.

На текущий момент он работает неправильно.

Задача следующая:

1. Необходимо по очереди открыть все файлы в папке с разрешением html. В папке будет много файлов с разными названиями

2. Скопировать содержимое каждого отдельного файла html

3. Создать вкладку в файле «Макрос» и вставить содержимое html в отдельную вкладку

3. Закрыть файлы с разрешением html.

Изменено: Maksimelyan - 05.08.2018 08:09:29
Поиск и замена значения через макрорекодер
 
Спасибо, за подсказку
Изменено: Maksimelyan - 23.07.2018 22:04:41
Поиск и замена значения через макрорекодер
 
Добрый вечер.

Столкнулся со следующей проблемой.
Через макрорекодер записываю команду найти "," и заменить на "."
При попытке запуска макроса ни чего не происходит, при этом если делать вручную ту же задачу то замена происходит.
Подскажите пожалуйста в чём проблема?
Файл прилагаю
Как прописать: открывать файл с расширением .xls, .xlsm, .xlsx, .xlsb
 
Жирный Тони, БМВ, спасибо.

А как изменить предложенный вами вариант ,так чтобы путь к файлу не был прописан конкретным sPath = "C:\myFolder\". У меня на текущий момент привязки нет  
Как прописать: открывать файл с расширением .xls, .xlsm, .xlsx, .xlsb
 
Файл пример относится ко второму вопросу, и в нем о макросе не слова не сказано.
Как прописать: открывать файл с расширением .xls, .xlsm, .xlsx, .xlsb
 
Друзья, всем привет.
Надеюсь на Вашу помощь.

1. У меня есть рабочий макрос, одна из задач которого открыть файл в папке скопировать в нём данные вставить эти данные в текущий активный лист и закрыть файл из которого данные скопировались. Наименования файла с которого надо скопировать всегда одинаковое. А вот формат файла может быть разным . В макросе у меня прописано следующие "Workbooks.Open Filename:=ThisWorkbook.Path & "\report.xlsx"
Вопрос, как мне прописать код,чтобы если  открывал файл с любым форматом  экселя к примеру xls, xlsm, и т.д.
2. вопрос удален

СПасибо за помощь.  
Страницы: 1
Наверх