Excel 2016 for Mac 中的 VBA 宏：另存为不适用于 CSV 文件格式

excel

使用 excel 2016 for Mac 中的 VBA 宏可以轻松地进行各种自动化任务。然而，有一个问题是，另存为功能在处理 CSV（逗号分隔值）文件格式时似乎无法正常工作。在本文中，我们将探讨这个问题，并提供解决方案。

CSV 文件格式是一种非常常见的文件格式，常用于数据交换和导入导出。通常，我们可以通过使用 VBA 宏来将 excel 工作簿另存为 CSV 文件格式，但在 excel 2016 for Mac 中，这个功能似乎出现了一些问题。

问题的表现是，当我们尝试使用 VBA 宏将 excel 工作簿另存为 CSV 文件时，代码会运行成功，但保存的文件却不是预期的 CSV 格式。相反，它看起来仍然是一个普通的 excel 工作簿，而不是一个逗号分隔的文本文件。

为了解决这个问题，我们需要采取一些额外的步骤来确保正确保存为 CSV 文件格式。以下是一个示例代码，展示了如何使用 VBA 宏将 excel 工作簿保存为 CSV 文件：

VBA
Sub SaveAsCSV()
    Dim FileName As String
    Dim Path As String
    
    ' 获取文件名和路径
    FileName = "example"
    Path = ThisWorkbook.Path & "/"
    
    ' 另存为 CSV 文件格式
    With ActiveWorkbook
        .SaveAs FileName:=Path & FileName, FileFormat:=xlCSV, CreateBackup:=False
    End With
End Sub

在上面的代码中，我们首先定义了要保存的文件名和路径。然后，我们使用 SaveAs 方法将当前活动的工作簿另存为 CSV 文件格式。

然而，这还不足以确保正确保存为 CSV 文件格式。在 excel 2016 for Mac 中，我们还需要手动执行一些步骤：

1. 打开保存的 CSV 文件。

2. 在 excel 中选择“文件”>“另存为”>“格式”>“逗号分隔值（.csv）”。

3. 点击“保存”。

通过执行以上步骤，我们可以将保存的文件正确地转换为 CSV 格式。

解决方案示例代码

以下是一个解决方案的示例代码，展示了如何使用 VBA 宏自动执行上述步骤：

VBA
Sub SaveAsCSV()
    Dim FileName As String
    Dim Path As String
    
    ' 获取文件名和路径
    FileName = "example"
    Path = ThisWorkbook.Path & "/"
    
    ' 另存为普通的 excel 工作簿
    With ActiveWorkbook
        .SaveAs FileName:=Path & FileName, FileFormat:=xlWorkbookDefault, CreateBackup:=False
    End With
    
    ' 打开保存的文件
    Dim SavedWorkbook As Workbook
    Set SavedWorkbook = Workbooks.Open(Path & FileName)
    
    ' 另存为 CSV 文件格式
    With SavedWorkbook
        .SaveAs FileName:=Path & FileName, FileFormat:=xlCSV, CreateBackup:=False
        .Close SaveChanges:=False
    End With
End Sub

在上面的代码中，我们首先将工作簿保存为普通的 excel 文件格式，然后打开保存的文件，并将其再次另存为 CSV 文件格式。最后，我们关闭保存的文件，完成整个过程。

这个解决方案可以确保我们能够正确地将 excel 工作簿保存为 CSV 文件格式。通过使用 VBA 宏，我们可以自动化执行这些步骤，节省时间和精力。

在 excel 2016 for Mac 中，使用 VBA 宏另存为功能可能无法正常工作，特别是在保存为 CSV 文件格式时。然而，通过采取一些额外的步骤，我们可以解决这个问题。通过本文提供的解决方案示例代码，我们可以轻松地将 excel 工作簿保存为 CSV 文件格式，并自动执行必要的转换步骤。这个解决方案可以提高我们的工作效率，并确保数据正确地保存为 CSV 格式。