VB6 excel文件没有保存

基本上，标题。 我打开并对.csv进行了修改（如果有人能正确保存文件，我可以正常使用excel文件）（特别是autofit和bold），但是当我打开文件时，没有任何改变。 任何人知道为什么 我真的不知道我在做什么：p和互联网似乎没有任何有关的信息。
作为一个侧面说明，如果.exe在运行时崩溃，然后我打开Excel文件，它的格式正确。 代码如下：

Dim spreadsheet As Excel.Application Set spreadsheet = CreateObject("Excel.Application") spreadsheet.Workbooks.Open _ FileName:=exportPath, _ ReadOnly:=False Call spreadsheet.ActiveSheet.UsedRange.Select Call spreadsheet.Selection.Columns.AutoFit spreadsheet.Selection.Font.Bold = True spreadsheet.ActiveWorkbook.SaveCopyAs (App.Path & "\" & "THISONE" & gc_AppName & "EXPORT" _ & Format$(Now, "yyyy/mm/dd/hhmm") & gc_ExportExtension) MsgBox (spreadsheet.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value) Call spreadsheet.SaveWorkspace 'Call spreadsheet.ActiveSheet.Save Call spreadsheet.ActiveWorkbook.Save Call spreadsheet.ActiveWorkbook.Close(True) Set spreadsheet = Nothing