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

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

1 个答案: