VBA datestamp csv export filename

scsnow

New Member
Joined
Aug 14, 2013
Messages
9
Hi folks,

Can anyone edit the snippet below to add a datestamp to the cvs filename in the format "yyyy-mm-dd hh-mm-ss"?

Many thanks in advance!

Code:
Sub saveTableToCSV()


    Dim tbl As ListObject
    Dim csvFilePath As String
    Dim fNum As Integer
    Dim tblArr
    Dim rowArr
    Dim csvVal


    Set tbl = Worksheets("DD_Load_Template").ListObjects("qry_DD_Template_Merge")
    csvFilePath = "S:\Temp\DDs\DD_CSV.csv"
    tblArr = tbl.DataBodyRange.Value


    fNum = FreeFile()
    Open csvFilePath For Output As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=fNum]#fNum[/URL] 
    For i = 1 To UBound(tblArr)
        rowArr = Application.Index(tblArr, i, 0)
        csvVal = VBA.Join(rowArr, ",")
        Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , csvVal
    Next
    Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=fNum]#fNum[/URL] 
    Set tblArr = Nothing
    Set rowArr = Nothing
    Set csvVal = Nothing


End Sub
 

John_w

MrExcel MVP
Joined
Oct 15, 2007
Messages
5,957
Code:
    csvFilePath = "S:\Temp\DDs\DD_CSV " & Format(Now, "yyyy-mm-dd hh-mm-ss") & ".csv"
 

Forum statistics

Threads
1,078,435
Messages
5,340,250
Members
399,361
Latest member
Linford

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top