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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка размера фала и контрольной суммы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вставка размера фала и контрольной суммы
Ибет Дата: Понедельник, 09.01.2023, 17:49 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, ничего не понимаю в vba, необходимо вставить в ячейку размер файла в байтах (другого файла на который указан путь) и контрольную сумму md5. (по возможности в одной ячейке указываешь путь, в других появляется размер и контр. сумма). Полазив по форуму удалось сделать только автоматическую вставку даты и времени. Похожие темы видел, но что-то не смог сам сделать
К сообщению приложен файл: 0252171.xlsm (18.8 Kb)


Сообщение отредактировал Ибет - Понедельник, 09.01.2023, 17:52
 
Ответить
СообщениеЗдравствуйте, ничего не понимаю в vba, необходимо вставить в ячейку размер файла в байтах (другого файла на который указан путь) и контрольную сумму md5. (по возможности в одной ячейке указываешь путь, в других появляется размер и контр. сумма). Полазив по форуму удалось сделать только автоматическую вставку даты и времени. Похожие темы видел, но что-то не смог сам сделать

Автор - Ибет
Дата добавления - 09.01.2023 в 17:49
Nic70y Дата: Вторник, 10.01.2023, 08:16 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
[f6] = FileLen(FilePath)
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
[f6] = FileLen(FilePath)
[/vba]

Автор - Nic70y
Дата добавления - 10.01.2023 в 08:16
Ибет Дата: Вторник, 10.01.2023, 09:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Спасибо большое, получилось, ещё разобрался как брать путь из ячейки. Осталось разобраться как md5 файла вставить
 
Ответить
СообщениеСпасибо большое, получилось, ещё разобрался как брать путь из ячейки. Осталось разобраться как md5 файла вставить

Автор - Ибет
Дата добавления - 10.01.2023 в 09:59
Nic70y Дата: Вторник, 10.01.2023, 10:41 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
как брать путь из ячейки
так, например[vba]
Код
FilePath = Range("a1").Value
[/vba]
может это подойдет


ЮMoney 41001841029809
 
Ответить
Сообщение
как брать путь из ячейки
так, например[vba]
Код
FilePath = Range("a1").Value
[/vba]
может это подойдет

Автор - Nic70y
Дата добавления - 10.01.2023 в 10:41
Ибет Дата: Вторник, 10.01.2023, 10:58 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Не подошло)
 
Ответить
СообщениеНе подошло)

Автор - Ибет
Дата добавления - 10.01.2023 в 10:58
bmv98rus Дата: Вторник, 10.01.2023, 20:33 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4115
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
Sub MifV()
        
        Dim fsoFile, FileDateTime, s
        Dim FilePath As String
            Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
            'FilePath = "C:\Users\Альберт\Desktop\УЛ\Раздел ПД №5 подраздел ПД №6 ИОС6.pdf"
            FilePath=[a1]
            Set fsoFile = objFSO.GetFile(FilePath)
            FileDateTime = (fsoFile.DateCreated)
            [d4] = FileMD5(FilePath)
            [d6] = FileDateTime 'в ячейку d6 текущего листа вставляем дату создания файла
            [f6] = FileLen(FilePath)
End Sub
Function FileMD5$(sFilePath$)
    On Error GoTo err
    Dim byteArr() As Byte
    With CreateObject("adodb.stream")
        .Type = 1: .Open: .LoadFromFile sFilePath
        byteArr = .read
    End With
    With CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
        FileMD5 = Join(Application.Dec2Hex(.ComputeHash_2(byteArr), 2), "")
    End With
    Erase byteArr
    Exit Function
err: Debug.Print "Err: " & err.Number & " - " & err.Description
FileMD5$ = err.Description
End Function
[/vba]


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Вторник, 10.01.2023, 21:13
 
Ответить
Сообщение[vba]
Код
Sub MifV()
        
        Dim fsoFile, FileDateTime, s
        Dim FilePath As String
            Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
            'FilePath = "C:\Users\Альберт\Desktop\УЛ\Раздел ПД №5 подраздел ПД №6 ИОС6.pdf"
            FilePath=[a1]
            Set fsoFile = objFSO.GetFile(FilePath)
            FileDateTime = (fsoFile.DateCreated)
            [d4] = FileMD5(FilePath)
            [d6] = FileDateTime 'в ячейку d6 текущего листа вставляем дату создания файла
            [f6] = FileLen(FilePath)
End Sub
Function FileMD5$(sFilePath$)
    On Error GoTo err
    Dim byteArr() As Byte
    With CreateObject("adodb.stream")
        .Type = 1: .Open: .LoadFromFile sFilePath
        byteArr = .read
    End With
    With CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
        FileMD5 = Join(Application.Dec2Hex(.ComputeHash_2(byteArr), 2), "")
    End With
    Erase byteArr
    Exit Function
err: Debug.Print "Err: " & err.Number & " - " & err.Description
FileMD5$ = err.Description
End Function
[/vba]

Автор - bmv98rus
Дата добавления - 10.01.2023 в 20:33
  • Страница 1 из 1
  • 1
Поиск:

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