vba - How to export excel file as csv using macro? -

vba - How to export excel file as csv using macro? -

i want export excel file csv using macro.

but code export header of each column, not whole records inputted in excel file , header display on 2nd row instead on 1st row.

how prepare this?

in additional, if there's new column , new records inputted in excel file. how determine in macro? possible? give thanks you

macro:

sub writecsvfile() dim my_filenumber integer dim logstr string my_filenumber = freefile logstr = logstr & cells(1, "a").value & " , " logstr = logstr & cells(1, "b").value & format(now, "yyyymmddhhmmss") & " , " logstr = logstr & cells(1, "c").value & format(now, "yyyymmddhhmmss") & " , " logstr = logstr & cells(1, "d").value & " , " logstr = logstr & cells(1, "e").value & " , " logstr = logstr & cells(1, "f").value & " , " logstr = logstr & cells(1, "g").value & " , " logstr = logstr & cells(1, "h").value & " , " logstr = logstr & cells(1, "i").value & " , " logstr = logstr & cells(1, "j").value & " , " logstr = logstr & cells(1, "k").value & " , " logstr = logstr & cells(1, "l").value & " , " logstr = logstr & cells(1, "m").value open "c:\users\username\foldername\sample.csv" append #my_filenumber print #my_filenumber, logstr close #my_filenumber end sub

desire output:

header1, header2, header3, header4 1234456, 10/10/2014, marc, 24

i solve issue this

dim dirloc variant dirloc = "pathname" '~~> check if valid entry if dirloc <> false '~~> check before hand if file exists if not dir(dirloc) <> "" '~~> if not save activeworkbook.saveas filename:=dirloc else '~~> trap error , ignore on error resume next if err.number = 1004 on error goto 0 else '<~~ if user press save activeworkbook.saveas filename:=dirloc, _ fileformat:=xlcsv, _ conflictresolution:=xllocalsessionchanges end if end if end if

excel vba excel-vba csv