Даты не даты

[Nasya]

Подскажите, кто сталкивался с проблемой, есть два файла, в одном файле есть столбцы с датами (даты распознаются), второй файл открывает программно первый файл и копирует из него данные, но после копирования даты не распознаются, только после двойного щелчка в ячейке.

 
iPath = ThisWorkbook.Path & "\"
    
     iFileName = Dir(iPath & "Сделки.csv")
    Workbooks.Open Filename:=iPath & iFileName
    Set TxtFile = ActiveWorkbook
    TxtFile.Sheets(1).UsedRange.Copy Destination:=OrigWB.Sheets("Сделки").Range("A1")
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True

И в результате вот такие даты, как во вложении, подскажите как с этим бороться.

[pashulka]

Есть предложение: не бороться с последствиями болезни (хотя, в принципе, это возможно), а открыть файл .csv как текстовый (ибо, по сути, это и есть текстовый файл) указав, при этом, формат данных для нужных столбов, как дату (ДМГ). Осуществить указанное действо можно различными способами, например, как импорт текстового файла (QueryTables.Add(Connection:="TEXT; ...) или воспользоваться методом OpenText :

iPath = ThisWorkbook.Path & "\"
iFileName = iPath & "Сделки.csv"
 
If Dir(iFileName) = "" Then
   MsgBox "Импортируемый файл изволит отсутствовать", , ""
   Exit Sub
End If
 
On Error GoTo ErrHandler
 
With Application
     .ScreenUpdating = False
     .DisplayAlerts = False
     .Calculation = xlManual
     ' и т.д. по необходимости
     
     .Workbooks.OpenText Filename:=iFileName, _
     Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _
     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
     Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
     Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 4), Array(3, 4))
     'желательно проверить правильность всех параметров
     
     '.ActiveWorkbook.Worksheets(1).UsedRange.Copy Destination:=...
     .ActiveWorkbook.Close saveChanges:=False
 
ErrHandler:
     .Calculation = xlAutomatic
     .DisplayAlerts = True
     .ScreenUpdating = True
End With

[Nasya]

Объясните, пожалуйста, а как же все таки скопировать эти данные, и как указать формат столбцов.........это ж не так ведь:

.ActiveWorkbook.Worksheets(1).Colum ns(1).NumberFormat = "dd/mm/yy;@"

в коде этого нет........а тут такая срочность..
Скопировала Ваш код, но копирование закомментировано, раскомментировала....естественно тот же результат, я бы в справке порылась про opentext, да компонент не установлен дома...

[pashulka]

Копирование можно оставить из первого примера, а за установку нужного формата, при импорте текстового файла, отвечает необязательный именованный аргумент FieldInfo, т.е. в данном примере для первого столбца устанавливается Общий формат, а для второго и третьего столбца - MDY date
P.S. Кстати, информацию касательно метода OpenText можно скачать здесь.

Если же, после открытия файла .csv, Вы всё равно столкнётесь с проблемой дат, то перед/после копирования можно использовать что-то вроде :

With .ActiveWorkbook.Worksheets(1)
     With Intersect(.UsedRange, .Range("B:C"))
          .NumberFormat = "dd/mm/yy"
          .Copy
          .PasteSpecial Paste:=xlPasteValues
 
          '.Value = .Value
     End With
End With