Метод 'SaveAs' объекта '_Workbook' потерпел неудачу - PullRequest
Новая
       12

Метод 'SaveAs' объекта '_Workbook' потерпел неудачу

0 голосов
/ 11 февраля 2019

Приведенный ниже код, который я имею в 2 других файлах, работает нормально, но по какой-то причине я получаю эту ошибку SaveAs 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

1 Ответ

0 голосов
/ 13 февраля 2019

Раньше у меня были такие ситуации, когда Excel, похоже, не понимал, к какой книге я обращаюсь.Попробуйте wb.Activate до wb.SaveAs

Также (не уверен, подходит ли это для вас), но при сохранении в Sharepoint мне пришлось изменить все \ на / в пути к файлу враз.

...