Полагаю, вам нужно сохранить его как файл CSV.Примерно так:
ActiveWorkbook.SaveAs Filename:="c:\whatever.csv", FileFormat:=xlCSV
См. здесь , чтобы узнать больше о том, как использовать метод SaveAs.
Это то, что вы ищете?
EDIT
Или, если вы хотите импортировать CSV-файл, как ответил Джерри, но с помощью VBA, то я полагаю, что вы используете метод OpenText .
Workbooks.OpenText FileName:="c:\whatever.csv"