Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Oleg25897
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Пополняемая таблица данными из групп файлов разной структуры
 
#
28.04.2025 16:15:24
Здравствуйте уважаемые форумчане. Прошу помощи. Есть таблица данные берутся из 79491.txt 79494.txt и так далее а часть данных не могу к таблице вставить так как эти данные уже из других файлов берутся   2025_04_01_00_08_54_0079491.ini 2025_04_01_00_10_57_0079494.ini помогите чтоб эти данные добавлялись в таблицу соответствующему номеру txt и ini и после удаления этих файлов данные сохранялись в таблице. Спасибо . Для примера 2025_04_01_00_08_54_0079491.ini 2025_04_01_00_10_57_0079494.ini
переименовал в txt так как ini не может загрузиться  
Изменено: Sanja - 01.05.2025 08:43:30
 
Перейти    
Изменение названия при создании архива с определенной ячейки.
 
#
14.04.2025 05:08:13
Здравствуйте подскажите пожалуйста как сделать чтоб название файла при сохранении бралось дополнительно с определенной ячейки.
Код
Sub Архив ()
On Error Resume Next
' название подпапки, в которую по-умолчанию будет предложено сохранить файл
Const REPORTS_FOLDER = "Архив \ "
' создаём папку для файла, если её ещё нет
MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
' выбираем стартовую папку
ChDrive Left(ThisWorkbook.Path, 1): ChDir "C:\" & "\" & REPORTS_FOLDER
' вывод диалогового окна для запроса имени сохраняемого файла
Filename = Format(Now, "DD-MM-YYYY-HH-NN") & ".xlsx"
' копируем активный лист (при этом создаётся новая книга)
Err.Clear: ActiveSheet.Copy: DoEvents
If Err Then Exit Sub ' произошла какая-то ошибка при попытке копирования листа


' убеждаемся, что активной книгой является копия листа
If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
' сохраняем файл под заданным именем в формате Excel 2003
ActiveWorkbook.SaveAs Filename, xlOpenXMLWorkbook
' закрываем сохранённый файл
' (удалите следующую строку, если закрывать созданный файл не требуется)
ActiveWorkbook.Close False
End If
End Sub
 
Перейти    
Функция подтверждения запуска макроса (да или нет)
 
#
11.04.2025 22:32:11
Здравствуйте помогите пожалуйста разобраться с подтверждением запуска макроса либо его отменой. Есть кнопка очистить журнал, но можно случайно на неё нажать. Нужно чтобы появлялось окно с подтверждением да либо нет. Пробовал с кодом, окно подтверждения появляется, но если нажать на кнопку нет, то лист всё равно очищается.  
Скрытый текст
 
Перейти    
Импортирование из папки с txt данными
 
#
26.03.2025 18:30:11
Здравствуйте знатоки. Подскажите пожалуйста как сделать чтоб при обновлении данных, данные нового txt файла прописывались в следующую строку  A3 A4 а не в одну строку  A1 A2)
 
Перейти    
Копирование данных в соседний столбец перед обновлением
 
#
24.03.2025 04:31:28
Здравствуйте уважаемые профессионалы прошу вашей помощи. Вопрос такой в первый столбец при обновлении данных прилетают номера в столбец но при обновлении эти данные меняются и пропадают, как сделать так чтоб эти данные при обновлении сохронялись во втором столбце. Спасибо за помощь.
Дополню суть. На производстве при считывания штрих кода создаеться txt файл с номером к примеру 456543.txt и их за смену может достигать 90 штук этот файл попадает во временную папку где excel его подхватывает а далее этот файл уходит в склад файлов а вместо него появляются другие файлы как и в excel поэтому и нужно чтобы эти файлы сохранялись с b2-100 что бы в конце смены сформировать электронный журнал дабы в ручную не писать эти 90 штук).
Изменено: БМВ - 24.03.2025 13:12:59
 
Перейти    
Страницы: 1
Наверх