Экспорт всех листов в CSV файлы
 

Со сброшенным "Сохранять как показано"ПС. Есть ли такое в Excel?Стандартно сохраняется "как показано", т.е. с округлением.Код:Sub mysaver() Dim counter As Integer counter = 1 ' counter is for the number of sheets in the workbook Do While counter