Блог

Главная - Вопросы по программированию - Не удается изменить формат даты ячейки с помощью VBA

Не удается изменить формат даты ячейки с помощью VBA

#excel #vba

Вопрос:

У меня проблема с приведенным ниже кодом. В основном это предполагает открытие файла excel и изменение формата даты для ряда ячеек. Когда я пытаюсь это сделать, ничего не происходит. Когда я открываю один и тот же файл вручную и применяю второй, формат даты меняется без проблем. Я должен подчеркнуть, что при открытии файла вручную в столбце, который предполагается изменить, я вижу*****, при расширении столбца двойным щелчком он показывает дату. При открытии по коду вы можете сразу увидеть дату в той же колонке.

Есть идеи, почему это происходит и как это преодолеть?

 Sub open_file()

Workbooks.Open Filename:="C:UsersrszczerbinskiDesktopFTP Filesmes_kpi_packing.csv"
'Call select_date_format

End Sub

Sub select_date_format()
'
' chage date format
'

'
    Columns("F:F").Select
    Selection.NumberFormat = "d/m/yyyy"

End Sub

Комментарии:

1. Вы пробовали «дд/мм/гггг»? Хммм. Просто попробовал это на csv, который я открыл в excel, и код в подзаголовке работал нормально… (Я предполагаю, что вы удалили комментарий из ‘Call select_date_format при его запуске?)

2. ИМПОРТИРУЙТЕ вместо ОТКРЫТИЯ , чтобы вы могли указать Excel формат даты в файле csv. (например, Рабочие книги. Откройте текст или настройте соединение с помощью устаревшего мастера или запроса питания). Не уверен, что это так . OpenText будет работать с csv-файлом или, если вам нужно изменить его на txt-файл.

3. Возможно, стоит попробовать: Workbooks.Open Filename:="C:UsersrszczerbinskiDesktopFTP Filesmes_kpi_packing.csv", Local:=True

4. Попробовал «дд/мм/гггг», это не работает, да, комментарий был удален, я просто попытался запустить коды один за другим.

5. Рабочие тетради. OpenText открывает csv, но опять же никакой разницы

Метки: