使用宏将csv中的datetime值复制到excel中

Question

I'm trying to open a list of csv file and copy the data into different spreadsheets of a excel file. My script is as follows

Sub importcsv()
    Dim strFile As String
    Dim strCSV As String
    strFile = "D:\15049"
    strCSV = "A4260512_ECRec.csv"
    Workbooks.Open Filename:=strFile & "\" & strCSV
    Range("A1").CurrentRegion.Copy Destination:=Workbooks("test 150302.xlsm").Sheets("test2").Range("A1")
    Workbooks(strCSV).Close
End Sub

The problem I have is in my csv file there is one colume of date time data (dd/mm/yyyy hh:mm), when copying those to excel, some are copied in the right order, some are not. For example, 31/3/1990 is copied exactly but 1/4/1990 is copied as 4/1/1990. In my region setting, date format is set as d/mm/yyyy.

Anyone has any idea? Please help.

Thanks,

Answer 1

Have you tried setting the number format for the area to be copies and to be pasted?

Worksheets("Sheet1").Columns("A").NumberFormat = "YYYY/MM/DD"

range and rows

Worksheets("Sheet1").Range("A17").NumberFormat = ""
Worksheets("Sheet1").Rows(1).NumberFormat = "hh:mm:ss"

Answer 2

You will need to specify the column as being in DMY format, at the time you open the file. You can do this in one of two ways

1. Add a connection to a QueryTable -- this done manually would be using the Data Ribbon / Get External Data tab /From Text
2. Change the file suffix to .txt and then use the Workbooks.OpenText method.

Both of the above provide options to specify that the date column format is DMY.