Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Путает местами день и месяц
 
#1
11.02.2016 17:01:13
Здравствуйте! У меня есть много текстовых файлов в папке (в примере только один). Когда при выполнении макроса я выбираю целевую папку "Папка с файлом", чтобы импортировать текстовые файлы в Excel, то у меня меняются местами число и месяц. Дело в том, что число меньше 12, поэтому прога видимо думает, что это месяц.
И еще такая ерунда вылезает, из-за тысячных долей секунды. Помогите, пожалуйста, исправить ситуацию. Спасибо!

P.S.:Импорт файлов могу делать только указанным способом, так как в реальной жизни в папке много-много текстовых файлов и все работает.  
 
 
 
#2
11.02.2016 18:01:54
Попробуйте использовать формат "mm/dd/yyyy h:mm:ss"
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#3
12.02.2016 12:27:45
TheBestOfTheBest, конечно же, так получится, но дата-то неправильная. Далее при обработке данных это все вылезает. А нужно правильную дату слепить
 
 
 
#4
12.02.2016 12:30:33
TheBestOfTheBest, и если импортировать другой файл, где число больше 12, например, 26.01.2016, то тогда при формате "mm/dd/yyy" будет выводиться 01.26.2016. И нормальную сортировку между датами, где число меньше 12 и где больше - не проведешь
Изменено: Oda412 - 12.02.2016 12:31:38
 
 
 
#5
12.02.2016 12:40:35
При импорте есть выбор формата столбцов - там настраивайте.
 
 
 
#6
12.02.2016 12:41:43
Hugo, я это делаю не вручную. В каком месте кода поменять настройку импортируемых столбцов?
 
 
 
#7
12.02.2016 12:43:48
Так еще бы у вас они не менялись местами!!!
Исправьте Sheets(tws).Range(Cells(2, 1), Cells(Cells(1, 1).End(xlDown).Row, 1)).NumberFormat = "dd/mm/yyyy h:mm:ss"
на Sheets(tws).Range(Cells(2, 1), Cells(Cells(1, 1).End(xlDown).Row, 1)).NumberFormat = "DD/MM/YYYY h:mm:ss"

а то сейчас у вас вместо месяца считываются минуты
Для день, месяц, год - используются большие буквы. Ну для месяц точно, чтобы отделить от минут
 
 
 
#8
12.02.2016 12:59:36
StepanWolkoff, заменила строчку кода, но все равно ничего не изменилось. Может, у меня настройки даты на компе не те стоят?
 
 
 
#9
12.02.2016 13:06:44
Я код не вижу - не могу качать архивы, т.ч. я пас.
 
 
 
#10
15.02.2016 10:11:03
Нашла выход
Код
                    Workbooks.OpenText file, DecimalSeparator:=".", Local:=True
                    Set wb = ActiveWorkbook
 
 
 
Страницы: 1
Читают тему
Наверх