时间戳

首页 > 解决方案 > 对象'_Workbook'的方法'SaveAs'失败

excel - 对象'_Workbook'的方法'SaveAs'失败

问题描述

我在其他 2 个文件中的以下代码工作正常，但由于某种原因，我在运行时收到了这个 SaveAs of ojbect 错误。更奇怪的是，如果我调试并再次点击运行，它就会完成而没有错误。

Sub saveWorksheet()

Set report = ActiveWorkbook.Worksheets("Report")
sb_Copy_Save_Worksheet_As_Workbook

End Sub


Sub sb_Copy_Save_Worksheet_As_Workbook()
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Report").Copy Before:=wb.Sheets(1)
wb.Sheets(1).Name = Day(Now) & "-" & MonthName(Month(Now), True) & "-" & 
Year(Now) & " " & getTime
Application.DisplayAlerts = False
wb.Sheets("Sheet1").Delete

wb.SaveAs "\\Naeast.ad.jpmorganchase.com\amerawm$\AM\NAAMSHARE13\AM 
Oversight and control\DE Program Team\User Tools\14. Daily 
Trackers\Compliance Check Archive\" & Month(Date) & "-" & Day(Date) & "-" 
& Year(Date) & "-" & "New_Compliance_Check.xlsx"
wb.Close
Application.DisplayAlerts = True

End Sub

Function getTime()

If Len(Time) = 10 Then
    getTime = Left(Time, 1) & "." & Mid(Time, 3, 2)
Else
    getTime = Left(Time, 2) & "." & Mid(Time, 4, 2)
End If

End Function

突出显示的调试行是：

wb.SaveAs "\\Naeast.ad.jpmorganchase.com\amerawm$\AM\NAAMSHARE13\AM Oversight and control\DE Program Team\User Tools\14. Daily Trackers\Compliance Check Archive\" & Month(Date) & "-" & Day(Date) & "-" & Year(Date) & "-" & "New_Compliance_Check.xlsx"

编辑：我根据您的建议更新了代码，但同样的问题。

wb.Sheets("Sheet1").Delete
wb.Activate
wb.SaveAs "\\Naeast.ad.jpmorganchase.com\amerawm$\AM\NAAMSHARE13\AM 
Oversight and control\DE Program Team\User Tools\14. Daily 
Trackers\Compliance Check Archive\" & Month(Date) & "-" & Day(Date) & "-" & 
Year(Date) & "-" & "New_Compliance_Check.xlsx"
wb.Close

标签： excelvbasave-as

解决方案

我以前遇到过这样的情况，Excel 似乎对我所指的工作簿感到困惑。wb.Activate先试试wb.SaveAs

另外（不确定这是否适用于您）但是在保存到 Sharepoint 时，我有时不得不将文件路径中的所有\内容/反转。

推荐阅读