сохранение даты при копировании из др. книги

[lobot]

Всем доброго времени суток!
Есть макрос позволяющий последовательно копировать данные из закрытой книги. Все хорошо работает только в исходном файле в первом столбце дата в текстовом формате, в итоге после копированияи дата отображается не верно. Подскажите как поправить код для корректного отображения данных. Заранее спасибо.

[Step_UA]

для ячеек столбца A (лист "Комплект") установите предварительно текстовый формат

[lobot]

Step_UA , спасибо большое, но в данном случае я буду иметь тот же текст, а мне нужно именно в формате даты. Подскажите, что можно сделать.

[Step_UA]

Сообщение от lobot

... после копированияи дата отображается не верно

предварительно установите требуемый формат даты для ячеек столбца А ...

[lobot]

Сообщение от Step_UA

предварительно установите требуемый формат даты для ячеек столбца А ...

Step_UA
если просто поменять формат ячеек, то вместо 1.04.2013 получаем 04.01.2013

[Step_UA]

При записи вида 01/04/13 указывается месяц/день/год

[lobot]

Сообщение от Step_UA

При записи вида 01/04/13 указывается месяц/день/год

а если преобразовать в дату то день-мес-год

[Step_UA]

Sub копирование()
  Dim a, i&, ii&, vFile
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        If .Show = False Then Exit Sub
        For Each vFile In .SelectedItems
            With Workbooks.Open(Filename:=vFile, AddToMRU:=False)
                With .Sheets(1)
                    a = .Range(.[A2], .Range("b" & .Rows.Count).End(xlUp)).Value
                End With
                .Close SaveChanges:=False
            End With
            ii = 0
            For i = 1 To UBound(a)
                If a(i, 2) <> "расходники" Then
                    ii = ii + 1
                    a(ii, 1) = Join(Split(a(i, 1), "/"), ".")
                    a(ii, 2) = a(i, 2)
                End If
            Next
            If ii > 0 Then
                With ThisWorkbook.Sheets(1)
                    .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(ii, 2).Value = a
                End With
            End If
        Next vFile
    End With
End Sub

[lobot]

Step_UA, спасибо большое за помощь!, но формат все равно остается текстовым, у меня не получается потом привязать данные по месяцам формулами Наверно нужно будет с исходными данными бороться, в части отображения дат.

[Step_UA]

Для отображения года из 4 цифр замените

a(ii, 1) = Join(Split(a(i, 1), "/"), ".")
на
a(ii, 1) = CDate(Join(Split(a(i, 1), "/"), "."))

... для года представленого 2 цифрами - формулы нормально работают: