在 Excel for Mac 2016 中另存为 CSV

Question

我是一位经验丰富的 VBA 开发人员，但没有足够的 Mac 经验来完成我非常简单的项目。我想将工作表导出为 CSV 并将它们保存到存储工作簿的同一目录中。

我已经创建了一个新工作簿 (ActiveWorkbook)，其中包含从主工作簿复制的数据和完全工作的 Windows 部分代码。但是在 Mac 中我无法使这部分工作，结果没有创建文件：

ThisWorkbook.Path & Application.PathSeparator & sheetname & ".csv", _
    FileFormat:=xlCSV, CreateBackup:=False 

我阅读了一些资料，发现 Excel for Mac 2016 需要使用初始文件名调用 GetSaveAsFilename 对话框并手动确认，所以我修改了我的代码，如下所示：

#If Mac Then
    s_fname = Application.GetSaveAsFilename(InitialFileName:= _
        ThisWorkbook.Path & Application.PathSeparator & sheetname & ".csv")                                          

    If s_fname <> False Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs s_fname, 6                                                     
        Application.DisplayAlerts = True
    End If
#Else
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
    ThisWorkbook.Path & Application.PathSeparator & sheetname & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False                                     
    Application.DisplayAlerts = True
#End If

宏使用数据创建文件，但它们保存在 XLSX 而不是 CSV： 和对话框的默认格式为 xlsx：

当我尝试设置 FileFilter 时，我没有再次保存文件（我假设 Mac 不支持此属性）。当我尝试更换时：

s_fname=replace(s_fname,".xslx",".csv") 

我的文件夹中还有 .xlsx 文件。

您能否建议我必须在代码中设置哪个 GetSaveAsFilename FileFilter 值以强制保存 CSV 而不是 XLSX？或使用 Anotehr VBA 解决方案（文件格式更改、保存后重命名等）。

谢谢你， 维亚切斯拉夫

Answer 1

你好，试着把第一部分改成这个：

If Mac Then
    OutputFile = ThisWorkbook.Path & Replace(ActiveWorkbook.Name, ".xls", "-") & ".csv"                                          

    If OutputFile <> False Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=OutputFile, FileFormat:=xlCSV, CreateBackup:=False                                                     
        Application.DisplayAlerts = True
    End If