Excel VBA复制日期错误的数据

Question

Hi recently i have generated a csv data file using Foxpro 7.0. So I were going to use VBA to copy the data from A.csv to the reporting excel file B in the format of xlsm.

Workbooks("A")
Range("A2:AB300000").Copy
Workbooks("B").Activate
Sheets("C").Select
Range("B6").Select
ActiveSheet.Paste
Workbooks("A").Close 

and there are multiples files for me to copy. My problem is I got different type of results in the date column, which contains randomly generated US/UK date with either general or date format. Please help and thanks in advance!

Answer 1

I use this code.

Sub TransToXLSFromCSV()
Dim vFile As Variant
Dim vDB
Dim fn As String
Dim strPath As String
Dim i As Long
Dim Wb As Workbook
    strPath = ThisWorkbook.Path
    vFile = Application.GetOpenFilename("Csv Files *.csv,*.csv;*.csv", _
      Title:="Select the Csv Files!", MultiSelect:=True)
    If TypeName(vFile) = "Boolean" Then Exit Sub
    Application.ScreenUpdating = False

    For i = 1 To UBound(vFile)
        fn = Dir(vFile(i))
        fn = Left(fn, Len(fn) - 4)

         Set Wb = Workbooks.Open(Filename:=vFile(i), Format:=2)
         vDB = Wb.ActiveSheet.UsedRange
         Wb.Close
         Set Wb = Workbooks.Add
         With Wb
            .ActiveSheet.Range("a1").Resize(UBound(vDB, 1), UBound(vDB, 2)) = vDB
            .SaveAs Filename:=strPath & "\" & fn & ".xlsx"
            .Close (0)
         End With
    Next i
    Application.ScreenUpdating = True
End Sub