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

Страницы: 1
Пополняемая таблица данными из групп файлов разной структуры
 
#
01.05.2025 04:56:38
sotnikov, Вы меня конечно извините может я в чем то не прав и не понимаю, не совсем конечно как писать код, в этом я новичок и собираю пробую по крупиночкам, в данной теме сообщении есть пример и код PQ  который нужно поправить либо дополнить чтоб ini файлы прикрутились к таблице и вышесказанное сообщение бы не писалось как сохранить эти данные при удалении файлов, так как с txt файлами это работает.    
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
30.04.2025 07:58:46
sotnikov, Спасибо работает но нужно чтоб при удалении файлов данные оставались в таблице, txt и ini лежат в разных папках то есть нужно указать два пути.  
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
29.04.2025 13:55:31
sotnikov, Спасибо домой приду проверю но что то в этом есть)
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
29.04.2025 04:22:40
Вот пример что должно из этого получиться  
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
29.04.2025 04:07:32
Aлeкceй, Первый фрагмент в txt из ini нужно
operator = "Оператор:Степанов Олег Геннадьевич"operator_tab = 23199
otk = "Контролер ОТК:Трифонова Т.А."
otk_tab = 9170
time = "0:21:17"
data = "01.04.2025"
tvel_num = 79498
part = 3439

[param]
I = 130,000000
Q = 17,000000
T = 3,000000
F = 10,000000
A = 1,500000

[welding]
Iw = 127,986783
Qw = 18,849808

[measurement]
XL = 0,144907
XR = 0,130416
YL = 0,217360
YR = 0,057963
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
28.04.2025 22:06:49
Aлeкceй, Извиняюсь дети дернули за руку).Здравствуйте, txt при обновлении данных добавляются в таблицу нужно чтоб INI тоже добавлялись в таблицу под тем же номером ТВЭЛ, а данные из INI практически нужны все.
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
28.04.2025 21:55:02
Aлeкceй, Здравствуйте, txt при обновлении данных добавляются в таблицу нужно чтоб INI тоже добавлялись в таблицу под тем же номером ТВЭЛ, а данные из INI практически нужны все.
Изменено: Oleg25897 - 28.04.2025 22:03:14
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
28.04.2025 18:41:11
Dmitriy XM, Private Sub CompareDict(dictTxt As Scripting.Dictionary, _
                       dictIni As Scripting.Dictionary

Выдает ошибку
Изменено: Oleg25897 - 28.04.2025 18:41:29
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
28.04.2025 18:01:55
Dmitriy XM,  Файлы хранятся в разных папках нужно что то по типу power query  
 
Перейти    
Пополняемая таблица данными из групп файлов разной структуры
 
#
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 08:09:26
Sanja, Благодарю всё получилось. Но не создавать же новую тему из за такого пустяка,
 
Перейти    
Изменение названия при создании архива с определенной ячейки.
 
#
14.04.2025 07:23:53
Спасибо большое всё работает, А при сохранении как дополнить код чтоб файл сохранялся с защищенной книгой?  
Изменено: Oleg25897 - 14.04.2025 07:35:24
 
Перейти    
Изменение названия при создании архива с определенной ячейки.
 
#
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
 
Перейти    
Функция подтверждения запуска макроса (да или нет)
 
#
12.04.2025 06:06:14
Спасибо большое !!!
 
Перейти    
Функция подтверждения запуска макроса (да или нет)
 
#
11.04.2025 22:32:11
Здравствуйте помогите пожалуйста разобраться с подтверждением запуска макроса либо его отменой. Есть кнопка очистить журнал, но можно случайно на неё нажать. Нужно чтобы появлялось окно с подтверждением да либо нет. Пробовал с кодом, окно подтверждения появляется, но если нажать на кнопку нет, то лист всё равно очищается.  
Скрытый текст
 
Перейти    
Импортирование из папки с txt данными
 
#
03.04.2025 12:07:15
Andrey_S, Так и делаю но файлы который лежат в следующей папке тоже заносятся в таблицу.
 
Перейти    
Импортирование из папки с txt данными
 
#
03.04.2025 11:53:17
Подскажите пожалуйста как сделать чтоб файлы txt не загружались из под папок,
Например с:новая папка\txt\1 нужно чтоб только файлы брались из папки txt
 
Перейти    
Импортирование из папки с txt данными
 
#
02.04.2025 04:27:57
Andrey_S, Спасибо большое. То что надо,
 
Перейти    
Импортирование из папки с txt данными
 
#
29.03.2025 11:15:10
sotnikov, Подскажи пожалуйста как можно сделать? Всё перепробовал ну ни как не получается. Уже весь форум перерыл.)
 
Перейти    
Импортирование из папки с txt данными
 
#
29.03.2025 10:15:00
sotnikov, А можно сделать так чтобы новые данные добавлялись ниже а старые сохранились даже при удалении txt файла?
 
Перейти    
Импортирование из папки с txt данными
 
#
29.03.2025 09:57:27
sotnikov, Спасибо тоже работает, Ну ни как не получается сделать чтоб данные сохранялись при удалении txt  . Нашел что то подобное но тут только ячейка сохраняется,

Private Sub Worksheet_Calculate()
 Dim c As Range
 Set c = Cells(Rows.Count, 2).End(xlUp)
 If [a1] <> c Then c.Offset(1, 0) = [a1]
End Sub
Изменено: Oleg25897 - 29.03.2025 09:57:50
 
Перейти    
Импортирование из папки с txt данными
 
#
27.03.2025 09:47:25
Andrey_S, Спасибо! Человеческое спасибо то что нужно, Подскажи пожалуйста как сделать чтоб при удалении файла  txt данные сохранялись, может в новом листе?
Изменено: Oleg25897 - 27.03.2025 09:47:46
 
Перейти    
Импортирование из папки с txt данными
 
#
27.03.2025 08:36:36
nilske



Добавил ,  
 
Перейти    
Импортирование из папки с txt данными
 
#
27.03.2025 06:51:15
nilske, Извиняюсь но вот что должно получиться  
 
Перейти    
Импортирование из папки с txt данными
 
#
26.03.2025 18:30:11
Здравствуйте знатоки. Подскажите пожалуйста как сделать чтоб при обновлении данных, данные нового txt файла прописывались в следующую строку  A3 A4 а не в одну строку  A1 A2)
 
Перейти    
Копирование данных в соседний столбец перед обновлением
 
#
24.03.2025 08:23:44
evgeniygeo,  Спасибо приду проверю. Я немного изменил суть вопроса.
 
Перейти    
Копирование данных в соседний столбец перед обновлением
 
#
24.03.2025 08:01:10
Извиняюсь но файл дома, как приду скину.
 
Перейти    
Копирование данных в соседний столбец перед обновлением
 
#
24.03.2025 04:31:28
Здравствуйте уважаемые профессионалы прошу вашей помощи. Вопрос такой в первый столбец при обновлении данных прилетают номера в столбец но при обновлении эти данные меняются и пропадают, как сделать так чтоб эти данные при обновлении сохронялись во втором столбце. Спасибо за помощь.
Дополню суть. На производстве при считывания штрих кода создаеться txt файл с номером к примеру 456543.txt и их за смену может достигать 90 штук этот файл попадает во временную папку где excel его подхватывает а далее этот файл уходит в склад файлов а вместо него появляются другие файлы как и в excel поэтому и нужно чтобы эти файлы сохранялись с b2-100 что бы в конце смены сформировать электронный журнал дабы в ручную не писать эти 90 штук).
Изменено: БМВ - 24.03.2025 13:12:59
 
Перейти    
Страницы: 1
Наверх