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

Страницы: 1
Сертификация Эксель, Где подтвердить и получить сертификат
 
#
05.03.2025 14:08:40
Вам наверное лучше здесь глянуть: https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=5&TID=53119
 
Перейти    
POWER QUERY. Созданиезапроса из папки с файлами, в которых данные 2-мя заголовками
 
#
05.02.2021 19:59:32
Михаил Л, Спасибо большое, результат получился тоже как надо!
Осталось понять код и осознать алгоритм  :)
Но главное, работает отлично!))
 
Перейти    
POWER QUERY. Созданиезапроса из папки с файлами, в которых данные 2-мя заголовками
 
#
05.02.2021 19:42:18
PooHkrd, Шикарно, спасибо огромное! Получилось именно так как думал  :)
 
Перейти    
POWER QUERY. Созданиезапроса из папки с файлами, в которых данные 2-мя заголовками
 
#
05.02.2021 18:10:29
Приветствую великих знатоков и пользователей Excel !

Есть папка с кучей файлов с расширением .csv, из которых нужно сделать единую правильную таблицу, чтобы потом делать сводники и прочее...
Проблема в том, что данные в файлах организованы с двумя заголовками, которые при запросе организуют неправильную таблицу с заголовками в строках (пример во вложениях)
Прошу помощи у знатоков, чтобы разъяснили как и что нужно сделать ля получения требуемого результата  :)
 
Перейти    
Сохранение вложений из нескольких писем (Outlook), batch attachments saving
 
#
01.03.2018 11:25:44
ZVI, СПАСИБО ОГРОМНОЕ!!!
:)  Все работает!
 
Перейти    
Сохранение вложений из нескольких писем (Outlook), batch attachments saving
 
#
28.02.2018 12:59:15
Добрый день
Максим Зеленский, спасибо за код
Вложения выгружает, но если у вложений одинаковое имя, то сохраняется только одно, остальные нет.

Подскажите пожалуйста, как изменить код чтобы в имени выгружаемых вложений перед расширением (".xls" или другие) стояла дата присланного письма:

Код
Sub SaveAttmnts()
Dim myobj As Object
Dim att As Attachment
Dim sPath As String
Dim Ws As Object, Fld As Object
On Error Resume Next
Set Ws = CreateObject("Shell.application")
Set Fld = Ws.BrowseForFolder(0, "Select path to save attachments:", 0, "ssfDRIVES")
If Not Err.Number = 91 Then
    sPath = Fld.self.Path
Else
    Exit Sub
End If
Set Ws = Nothing: Set Fld = Nothing
For Each myobj In Application.ActiveExplorer.Selection
    If myobj.Class = olMail Then
    For Each att In myobj.Attachments
        att.SaveAsFile sPath & "\" & att.FileName
    Next
    End If
Next
MsgBox "Attachments saved to " & sPath, vbOKOnly + vbInformation + vbSystemModal
End Sub
Изменено: viktor.petryuk - 28.02.2018 13:05:31
 
Перейти    
Генератор папок с файлами
 
#
31.10.2017 18:27:09
Еще вариант с созданием папок (3 уровня) по столбцам 1,2,3 и перемещение в них файлов погиперссылкам из 4 столбца (Спасибо Чупееву Максиму))):

КОД
Sub Creator()

'определяем корневой каталог, куда будут сыпаться все наши папки.

   Set fs = CreateObject("Scripting.FileSystemObject")
'узнать имя и путь открываемого файла
   fname = Application.GetOpenFilename
'узнать только имя файла
   s = fs.GetFileName(fname)
'убрать из полного пути файла его название, оставив только путь к папке.
   ss = Left(fname, Len(fname) - Len(s))
   
   
'делаем цикл, который прекращает работать при первой же пустой ячейке в первом столбце
   Dim i As Long
   i = 1
   Do While Worksheets("Лист1").Cells(i, 1) <> Empty
   
'на ошибке продолжаем макрос
   On Error Resume Next
   
'создаем папку из первого столбца
   fokinway1 = ss & "\" & Worksheets("Лист1").Cells(i, 1).Value & "\"
   MkDir fokinway1
   
'создаем папку из второго столбца в первой папке
   fokinway2 = ss & "\" & Worksheets("Лист1").Cells(i, 1).Value & "\" & Worksheets("Лист1").Cells(i, 2).Value & "\"
   MkDir fokinway2
'создаем папку из третьего столбца во второй папке
   fokinway3 = ss & "\" & Worksheets("Лист1").Cells(i, 1).Value & "\" & Worksheets("Лист1").Cells(i, 2).Value & "\" & Worksheets("Лист1").Cells(i, 3).Value & "\"
   MkDir fokinway3
'при желании можно продолжить кол-во папок...
   
'узнаем имя файла из четвертого столбца (без пути)
   fokinfile = Worksheets("Лист1").Cells(i, 4)
   fokinfilename = fs.GetFileName(fokinfile)
   
   
   Dim sFileName As String, sNewFileName As String
'старое название файла и путь - в столбце 4
   sFileName = Worksheets("Лист1").Cells(i, 4)
   
'новое название файла и путь - путь последней созданной папки+название файла
   sNewFileName = fokinway3 & fokinfilename
   Name sFileName As sNewFileName
   
'следующая строка
   i = i + 1
'вернуться к началу цикла
   Loop

   
End
Изменено: viktor.petryuk - 03.11.2017 13:31:33 (Решение)
 
Перейти    
Автоматический выбор максимального значения по двум критериям из двух разных таблиц
 
#
15.12.2016 17:20:38
Спасибо большое, это упрощает работу excel! =)

Столько интересных формул узнаю, спасибо Вам большое за отзывчивость!
 
Перейти    
Автоматический выбор максимального значения по двум критериям из двух разных таблиц
 
#
15.12.2016 16:06:20
Сергей, Вы мастер excell!!
Немного подправил формулу, но главное это то что Вам удалось таки это сделать!:

=ЕСЛИ(МАКС(СУММПРОИЗВ(ЕСЛИОШИБКА(('РУЧНОЙ Реестр'!$A$4:$A$153=Лист2!$A4)*('РУЧНОЙ Реестр'!$D$3:$BA$3=Лист2!D$3)*'РУЧНОЙ Реестр'!$D$4:$BA$151;0));СУММПРОИЗВ(ЕСЛИОШИБКА(('SAP РЕЕСТР ПЛН МСК СМ'!$B$3:$B$119=Лист2!$A4)*('SAP РЕЕСТР ПЛН МСК СМ'!$C$2:$BB$2=Лист2!D$3)*'SAP РЕЕСТР ПЛН МСК СМ'!$C$3:$BB$119;0)))=0;"Нет";МАКС(СУММПРОИЗВ(ЕСЛИОШИБКА(('РУЧНОЙ Реестр'!$A$4:$A$153=Лист2!$A4)*('РУЧНОЙ Реестр'!$D$3:$BA$3=Лист2!D$3)*'РУЧНОЙ Реестр'!$D$4:$BA$151;0));СУММПРОИЗВ(ЕСЛИОШИБКА(('SAP РЕЕСТР ПЛН МСК СМ'!$B$3:$B$119=Лист2!$A4)*('SAP РЕЕСТР ПЛН МСК СМ'!$C$2:$BB$2=Лист2!D$3)*'SAP РЕЕСТР ПЛН МСК СМ'!$C$3:$BB$119;0))))
Изменено: viktor.petryuk - 15.12.2016 17:13:11
 
Перейти    
Автоматический выбор максимального значения по двум критериям из двух разных таблиц
 
#
15.12.2016 15:37:27
Сергей, спасибо Вам огромное!

В текущей версии при ошибке показывает о, и так как формат ячеей датой, то показывают дату 00.01.1900, по задумке должен быть текст "нет"
 
Перейти    
Автоматический выбор максимального значения по двум критериям из двух разных таблиц
 
#
15.12.2016 14:09:07
Уважаемые знатоки, здравствуйте!

Есть 2 таблицы из которых нужно выбрать максимальную дату по двум критериям отбора, причем если в старой таблице вместо цифровых данных стоят текстовые, то нужно вставить данные цифровые из новой таблицы, а если в новой текстовые а старой цифровые, то нужно вставить текстовые.

Помогите если хватит знания и навыков)
Пример таблицы во вложенном файле.

Заранее спасибо за отзывчивость!
 
Перейти    
Страницы: 1
Наверх