excel - 使用 microsoft excel 以编程方式导出 csv 格式的文件

Question

我需要以编程方式导出 csv 格式的文件。我添加了以下在用户单击按钮时调用的函数：

Public Sub CreateCVS()
    ActiveWorkbook.SaveAs Filename:="filename.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

问题是我不想保存我的文件，我想以 csv 格式导出它，但电子表格仍然应该是一个 xlsm 文件。

可能吗

Answer 1

只需先导出工作表

Public Sub CreateCVS()
    activesheet.copy
    ActiveWorkbook.SaveAs Filename:="filename.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
    activeworkbook.close false
End Sub