＆＃39;档案可能已损坏＆＃39;打开从CSV保存为Workbook格式的文件时

Question

有人可以帮我修复下面的代码，因为它已保存，但我无法打开该文件，因为它说该文件可能已损坏。可能我在这里做错了。请注意，该文件以CSV格式接收，需要保存为常规Excel文件。

Sub SaveAsToFolderPath()

Dim MyFileName As String 
Dim folderPath As String 
Dim dateFormat As String

       folderPath = "C:\Users\A\Desktop\M work\DFMS\"
       dateFormat = Format(Now, "dd.mm.yyyy HH-mm-ss AMPM")
       MyFileName = Range("G2").Value

    If Not ActiveWorkbook.Saved Then
        ActiveWorkbook.SaveAs Filename:=folderPath & MyFileName & " - Next Delivery " & dateFormat & ".xlsm"
    End If

End Sub

Answer 1

您在保存CSV文件的同时更改了CSV文件的扩展名。当您稍后打开保存的.XLSX文件时，Excel需要XLSX格式，但会看到以逗号分隔的值 - 因此，文件不是预期的格式，它必须已损坏。

指定SaveAs时的文件格式：

Dim path As String
path = folderPath & MyFileName & " - Next Delivery " & dateFormat & ".xlsm"

ActiveWorkbook.SaveAs path, xlWorkbookDefault

SaveAs可用的文件格式是XlFileFormat枚举的成员。