With VBA
Dim db As DAO.Database
Dim tdf As TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
DoCmd.TransferText acExportDelim, , tdf.Name, tdf.Name & ".csv"
End If
Next
-- http://msdn.microsoft.com/en-us/library/aa220768%28v=office.11%29.aspx