Excel VBA has written a macro to bulk export table data in Excel to CSV format files

Sub CSV ()
Dim Fs, MyFile as Object
Dim myfileline as String ' txtfile row data
Dim Sht as Worksheet

For each sht in Thisworkbook.sheets
NS = Sht. Cells (1, 8)
Set Fs = CreateObject ("Scripting.FileSystemObject") ' established Filesytemobject
Set myFile = fs.createtextfile (Activeworkbook.path + "\csv\" + ns + ". csv") ' Create a new TXT file with the same name as the XLS file by FileSystemObject
For i = 2 to 1000
RA = sht. Cells (i, 3)
If ra = "Then Exit for"
RB = ""
For j = 3 to 1000
CA = Sht. Cells (2, J)
If CA = "Then Exit for
If RB = "Then"
RB = Sht. Cells (i, J). Value
Else
RB = RB & "," & Sht. Cells (i, J). Value
End If
Next J
MyFile.WriteLine (RB)
Next I
Set MyFile = Nothing
Set Fs = Nothing ' Close file and FileSystemObject object
Next
End Sub

Excel VBA has written a macro to bulk export table data in Excel to CSV format files