Reverse date Import from .csv file

[GhostofDoom]

Hello,

i was wondering if there's a way to reverse the date order
when we import the csv file at once?

the date we are using in the file is yyyy-MM-dd

because when we import the csv file we get the last date on top instead on the last place and the counts down till 1

Thank you

[Leith Ross]

Hello GhostofDoom,

If you are importing the CSV to Excel, simply filter the data from newest to oldest. If you are doing something else then you will to post a copy of the CSV for review.

[GhostofDoom]

Hello Leith Ross,

this is the file
and this is the code

Dim txtFileName As Variant
Dim destCell As Range
Dim qt


Set destCell = Worksheets("TestingImport").Cells(Rows.Count, "B").End(xlUp).Offset(1)
If destCell.Row < 9 Then Set destCell = Worksheets("TestingImport").Range("B9")


txtFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv),*.csv", Title:="Select a CSV File", MultiSelect:=False)
If txtFileName = False Then Exit Sub
    
Set qt = destCell.Parent.QueryTables.Add(Connection:="TEXT;" & txtFileName, Destination:=destCell.Cells(1, 1))
With qt
  .TextFileStartRow = 2    'this leaves the header away
  .TextFileParseType = xlDelimited
  .TextFileCommaDelimiter = False    'you might not need this line at all - it might even be better to make it False
  .TextFileOtherDelimiter = Empty
  .TextFileSemicolonDelimiter = True
  .RefreshStyle = xlOverwriteCells    '<<changed/added
  .Refresh BackgroundQuery:=False
  
  With Intersect(.ResultRange.EntireRow, .Parent.Range("S:S"))
    .ClearContents    '<<add
    '.Cells(1) = 1
    .Cells(1) = .Cells(1).Offset(-1).Value + 1
    .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
  End With
    With Intersect(.ResultRange.EntireRow, .Parent.Range("A:A"))
    .ClearContents    '<<add
    '.Cells(1) = 1
    .Cells(1) = .Cells(1).Offset(-1).Value + 1
    .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
  End With
 ' Intersect(.ResultRange.EntireRow, .Parent.Range("Q:Q")).Value = "x"
  Intersect(.ResultRange.EntireRow, .Parent.Range("Q:Q")).SpecialCells(xlCellTypeBlanks).Value = "x"
  lr = .ResultRange.Rows(.ResultRange.Rows.Count).Row
  .WorkbookConnection.Delete
  .Delete
End With
With Worksheets("TestingImport").Range("B9").ListObject
  Set TL = .Range.Cells(1)
  lc = TL.Column + .ListColumns.Count - 1
  .Resize Range(TL, .Parent.Cells(lr, lc))
  'delete all blank rows in the table:
  For i = .ListRows.Count To 1 Step -1
    With .ListRows(i)
      If Application.CountA(.Range) = 0 Then .Delete
    End With
  Next i
End With

Thank you

[Leith Ross]

Hello GhostofDoom,

The dates shown in Excel CSV file also include the time. I am assuming the time of day is to be taken into account when sorting the dates, yes?

[GhostofDoom]

Hello GhostofDoom,

The dates shown in Excel CSV file also include the time. I am assuming the time of day is to be taken into account when sorting the dates, yes?

Yes sir

[Leith Ross]

Hello GhostOfDoom,

Forgot to ask earlier, does this CSV get updated automatically or is it manually updated?

[GhostofDoom]

Hello Leith Ross,

it gets downloaded from the database
and we save it always under different names
so i believe automatically