Автоматическое сохранение + Печать. Продолжение темы "Перенос данных из Excel в Word"

[EducatedFool]

можно как нибудь средствами VBA посчитать контрольную сумму и вставить её например в Excel?

Да, можно. Когда-то давно видел пример кода.
Вообще, средствами VBA можно сделать почти всё, что угодно (используя WinAPI)
В этом плане VBA мало отличается от других языков программирования.

CRC какого файла надо подсчитать?
Вставить в тот же файл точно не получится, т.к. после вставки CRC файла изменится.
Впрочем, можно вставить CRC в имя файла.

Для exe-файлов всё просто:

Private Declare Function MapFileAndCheckSumA Lib "Imagehlp.dll" _
                                             (ByVal FileName As String, HeaderSum As Long, CheckSum As Long) As Long

'crc уже прошита в экзешник,
'данная функция читает его из экзешника
Public Function GetHeadCrc(ByVal Path As String) As Long
    Dim lRet&, crcH&, crcC&
    lRet = MapFileAndCheckSumA(Path, crcH, crcC)
    GetHeadCrc = crcH
End Function

'здесь вызывается функция, которая пересчитывает crc любого переданного файла
'результат данной функции обязан совпадать с результатом функции написанной выше
'иначе файл однозначно модифицирован!
Public Function GetRealCrc(ByVal Path As String) As Long
    Dim lRet&, crcH&, crcC&
    lRet = MapFileAndCheckSumA(Path, crcH, crcC)
    GetRealCrc = crcC
End Function

Public Function IsEXECorrupted(ByVal Path As String) As Boolean
    Dim lRet&, crcH&, crcC&
    lRet = MapFileAndCheckSumA(Path, crcH, crcC)
    IsEXECorrupted = crcH <> crcC
End Function

Sub test()
    FileName = "C:\Documents and Settings\Игорь\Рабочий стол\Regmon.exe"
    Debug.Print IsEXECorrupted(FileName)
End Sub

А в случае с офисными документами придётся придумывать что-то другое...
Точнее, считать-то CRC не проблема, а вот проверить его сложнее.
Если же он записан где-то в другом файле, сравнить значения не представляет никаких сложностей.

[The_Andrei]

В Excel нужно вставить контрольную сумму архива (.rar).
Было бы вообще замечательно, если бы вставлялось в одну ячейку название архива а в другую контрольная сумма - это возможно?

[EducatedFool]

Ну так в чём проблема?

Используй код из предыдущего поста + простейший макрос:

Sub test()
    FileName = "C:\Documents and Settings\Игорь\Рабочий стол\МойАрхив.rar"
    [a1] = GetRealCrc(FileName): [b1] = Dir(FileName)
End Sub

[The_Andrei]

Сообщение от EducatedFool

Ну так в чём проблема?

Используй код из предыдущего поста + простейший макрос:

Sub test()
    FileName = "C:\Documents and Settings\Игорь\Рабочий стол\МойАрхив.rar"
    [a1] = GetRealCrc(FileName): [b1] = Dir(FileName)
End Sub

Спасибо огромное щас попробую.

Я поправил макрос (Макрос сохранения и вставки.txt), посмотрите пожалуйста его. При выполнении выскакивает ошибка (на картинке)
2 ошибка макрос создает документ из 2 страниц, хотя 2 страница пустая как её убрать?

Расчет CRC суммы у меня не получается мой код (CRC.txt), на любой архив он ставит значение "0" как быть?

[The_Andrei]

Сообщение от The_Andrei

Спасибо огромное щас попробую.

Я поправил макрос (Макрос сохранения и вставки.txt), посмотрите пожалуйста его. При выполнении выскакивает ошибка (на картинке)
2 ошибка макрос создает документ из 2 страниц, хотя 2 страница пустая как её убрать?

Все свои глупые вопросы сам решил.
Подскажите с расчетом CRC.
У меня такая ситуация.
Мне периодически нужно рассчитывать CRC сумму архивов (.rar), требуется чтобы в excel подтягивалась название архива и контрольная сумма , в
какие-нибудь ячейки допустим A2 B2. Как это реализовать.

[The_Andrei]

Сообщение от EducatedFool

Да, можно. Когда-то давно видел пример кода.
Вообще, средствами VBA можно сделать почти всё, что угодно (используя WinAPI)
В этом плане VBA мало отличается от других языков программирования.

CRC какого файла надо подсчитать?
Вставить в тот же файл точно не получится, т.к. после вставки CRC файла изменится.
Впрочем, можно вставить CRC в имя файла.

Для exe-файлов всё просто:

Private Declare Function MapFileAndCheckSumA Lib "Imagehlp.dll" _
                                             (ByVal FileName As String, HeaderSum As Long, CheckSum As Long) As Long

'crc уже прошита в экзешник,
'данная функция читает его из экзешника
Public Function GetHeadCrc(ByVal Path As String) As Long
    Dim lRet&, crcH&, crcC&
    lRet = MapFileAndCheckSumA(Path, crcH, crcC)
    GetHeadCrc = crcH
End Function

'здесь вызывается функция, которая пересчитывает crc любого переданного файла
'результат данной функции обязан совпадать с результатом функции написанной выше
'иначе файл однозначно модифицирован!
Public Function GetRealCrc(ByVal Path As String) As Long
    Dim lRet&, crcH&, crcC&
    lRet = MapFileAndCheckSumA(Path, crcH, crcC)
    GetRealCrc = crcC
End Function

Public Function IsEXECorrupted(ByVal Path As String) As Boolean
    Dim lRet&, crcH&, crcC&
    lRet = MapFileAndCheckSumA(Path, crcH, crcC)
    IsEXECorrupted = crcH <> crcC
End Function

Sub test()
    FileName = "C:\Documents and Settings\Игорь\Рабочий стол\Regmon.exe"
    Debug.Print IsEXECorrupted(FileName)
End Sub

А в случае с офисными документами придётся придумывать что-то другое...
Точнее, считать-то CRC не проблема, а вот проверить его сложнее.
Если же он записан где-то в другом файле, сравнить значения не представляет никаких сложностей.

Спасибо за скрипт.
Но скрипт выводит значение : 9942821 Макросы_).rar
А total commander : Макросы_).rar 4C135E37
как реализовать чтобы скрипт выводил такое значение как и total commander ?