Можно ли сохранить копию книги в виде файла txt?VBA Excel Сохранить копию как txt файл
Я пробовал ThisWorkbook.SaveCopyAs("wb.txt"). Однако это сохраняет excel с txt без преобразования файлов. Поэтому, когда я открываю текстовый файл, данные не отображаются.
Другой способ
ThisFile = "Filename"
code.....
ActiveWorkbook.SaveAs Filename:="\folderlocation\" & ThisFile & ".txt", FileFormat:=xlText
Application.DisplayAlerts = False
Dim s As String
s = ActiveWorkbook.FullName
s = Replace(s, "xlsx", "txt")
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCurrentPlatformText
ActiveWorkbook.Close
Application.DisplayAlerts = True
Это будет тихо сохранять файл в формате txt и закрыть исходный файл.
Также вы можете найти информацию here.
[см это] (http://www.mrexcel.com/forum/excel-questions/281422-visual-basic-applications-code-convert-excel-text-file .html) – newguy
или этот http://stackoverflow.com/questions/8434994/export-each-sheet-to-a-separate-csv-file –
Вы не можете указать формат с помощью SaveCopyAs. Скопируйте текущий лист и используйте SaveAs –