Question

Excel中利用宏将文件自动另存为，要求：保存到另一文件夹，文件名一样，格式为.csv格式，行得通追加悬赏

现在保存为CSV格式的没问题了，添加这个"FileFormat:=xlCSV”就可以了，想问下如果需要保存为“编码为Unicode（UTF-8）”，你知道这个参数怎么写吗？

Answer 1

Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".csv" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

追问

保存之后打开会提示“另存为的CSV文件格式与文件扩展名指定的格式不一致”，这个要如何解决

追答

我这里测试了没问题，但是我是默认的excel打开csv文件

追问

现在保存为CSV格式的没问题了，添加这个"FileFormat:=xlCSV”就可以了，想问下如果需要保存为“编码为Unicode（UTF-8）”，你知道这个参数怎么写吗？

追答

ActiveWorkbook.SaveAs Filename:= _
"d:\Book1.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False

Answer 2

把另存操作录制为宏，查看宏即可知道

ActiveWorkbook.SaveAs Filename:="D:\My Documents\Book1.txt", FileFormat:=xlUnicodeText