• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

What's new

Latest profile posts

need help in exporting excel to csv, we need " in each field when exported to CSV
A
augustus
Public Sub ExportWorksheetAndSaveAsCSV()

Dim fn As String

fn = "_" & Format(Now, "yyyymmddhhmmss")

ThisWorkbook.Worksheets("Data").Copy

With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:="C:\TMU-Export\TMU_Sales" & fn, FileFormat:=xlCSVUTF8
Application.DisplayAlerts = True
.Close savechanges:=False

End With

End Sub
A
augustus
this is what we use for exporting to csv with date & time stamp
A
arifanmol
is there any way to automatically sum the cells and with automatic change in data range as the cells decrease or increase
Top