обрабатывает файлы выгрузки из SAP (кривые минуса, точки, не верные пробелы не числовые значения и прочую прелесть SAP) в нормальный вид
Возможно кому то пригодится при миграции из SAP в 1C для сопоставления данных.
Внимание уберет 3 строки сверху - там обычно не нужные заголовки. (файлы можно выбирать группой по шифт, все файлы должны быть закрыты - перенесет в себя листами) пустые листы в обрабатываемых файлах лучше удалить.
обрабатывает файлы выгрузки из SAP (кривые минуса, точки, не верные пробелы не числовые значения и прочую прелесть SAP) в нормальный вид
Возможно кому то пригодится при миграции из SAP в 1C для сопоставления данных.
Внимание уберет 3 строки сверху - там обычно не нужные заголовки. (файлы можно выбирать группой по шифт, все файлы должны быть закрыты - перенесет в себя листами) пустые листы в обрабатываемых файлах лучше удалить.andrey-ru-ar
Мои "претензии" к решению таковы: * нужно приложить пример разбираемого файла, хотя бы одного;
* нужны ПОЛЕЗНЫЕ комментарии в коде - 95 % пользователей раздела VBA форума знают смысл оператора Application.ScreenUpdating = False и без комментария, а вот там, где идёт обработка контента, комментариев хотелось бы неколько больше, чем просто "проходим по всем выбранным файлам";
* нужно нормальное форматирование кода, с логично расставленными индентами (отступами) - пока выглядит неряшливо; а обильное использование Select наводит на мысль о том, что это записано макрорекордером на скорую руку и не до конца "причесано";
* константа 23 в операторе [vba]
Код
Set inRange = Selection.SpecialCells(xlCellTypeConstants, 23)
[/vba] заставила меня полезть в справку по VBA, чтобы понять, что число это означает сумму констант от включенных "галочек" диалога "Выделить группу ячеек" (Ctrl+G \ Выделить): [vba]
[/vba] но об этом, конечно, кто-то должен рассказать в первый раз (например, я )
Мои "претензии" к решению таковы: * нужно приложить пример разбираемого файла, хотя бы одного;
* нужны ПОЛЕЗНЫЕ комментарии в коде - 95 % пользователей раздела VBA форума знают смысл оператора Application.ScreenUpdating = False и без комментария, а вот там, где идёт обработка контента, комментариев хотелось бы неколько больше, чем просто "проходим по всем выбранным файлам";
* нужно нормальное форматирование кода, с логично расставленными индентами (отступами) - пока выглядит неряшливо; а обильное использование Select наводит на мысль о том, что это записано макрорекордером на скорую руку и не до конца "причесано";
* константа 23 в операторе [vba]
Код
Set inRange = Selection.SpecialCells(xlCellTypeConstants, 23)
[/vba] заставила меня полезть в справку по VBA, чтобы понять, что число это означает сумму констант от включенных "галочек" диалога "Выделить группу ячеек" (Ctrl+G \ Выделить): [vba]