oltre a salvare il file nel formato fileformat 6 o 21
con ActiveWorkbook.SaveAs NOMEFILE, fileformat:=XX

é possbiile creare un file di tipo csv o txt da dei dati di una scheda Excel usando il comando Open e gestendo il file di testo

sintassi:
' costanti parametri da settare

Const Separatore As String = ","
Const nomefile As String = "C:\Users\Downloads\test.csv"

' variabili
Dim rigatesto As String
Dim numerofile As Long

Set zona = ActiveSheet.UsedRange
Dim colonnamax
Dim rigamax

Dim riga
Dim colonna
Dim valorecella As Range

' trovo colonnamax e rigamax
colonnamax = 0
rigamax = 0
For Each valorecella In zona
If valorecella.Row > rigamax Then rigamax = valorecella.Row
If valorecella.Column > colonnamax Then colonnamax = valorecella.Column
Next valorecella

' ciclo crea file
numerofile = FreeFile() recupero il numero libero

Open nomefile For Output As #numerofile

' per ciascuna riga
For riga = 1 To rigamax

' per ciascuna colonna
For colonna = 1 To colonnamax
If colonna = 1 Then
rigatesto = Cells(riga, colonna)
Else
rigatesto = rigatesto & Separatore & Cells(riga, colonna)
End If
Next colonna

' scrivo la riga costruita e cancello la memoria
Print #numerofile, rigatesto scrivo la riga corrente
rigatesto = Empty svuoto la variabile

Next riga

Close #numerofile