macro di Excel che legge i file *.csv e li tramuta in vettori di acquisizione

[bianchi.mario]

salve,

vorrei scrivere una macro di Excel che legge i file *.csv e li tramuta in vettori di acquisizione per poter poi tracciare i grafici.
; ho scritto la seguente:

Sub Macro1()

'

' Macro1 Macro

'

' Scelta rapida da tastiera: CTRL+t

'

Dim NomeFile As String

Dim Numero As String

Dim a As Integer

Dim Lungh As Integer







For a = 14 To 268

ChDir "E:\A2_Ricerca\Muri\Misure15-12" 'Aggiornare la cartella

NomeFile = "tek0000CH1.CSV"

Lungh = Len(CStr(a))

NomeFile = (Mid(NomeFile, 1, 7 - Lungh) & CStr(a) & Mid(NomeFile, 8, 14))



Workbooks.Open NomeFile

Range("A1:A15").Select

Selection.EntireRow.Delete

Columns("A:A").Select

Selection.Delete Shift:=xlToLeft

ChDir "E:\A2_Ricerca\Muri\Misure15-12\ProvaCiclo" 'Aggiornare la cartella

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, FileFormat:=xlText, _

CreateBackup:=False

ActiveWorkbook.Close SaveChanges:=False



Next



End Sub


se la eseguo, mi da:

Errore di compilazione: errore di sintassi

in corrispondenza della riga:

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, FileFormat:=xlText, _

qualcuno può aiutarmi a correggere l'errore???
grazie.