Excel VBA обыкновение сохранять

Когда я пытаюсь сохранить этот документ через мой макросExcel VBA обыкновение сохранять

я получаю ошибку времени выполнения ошибки 1004- Вы не можете сохранить этот workbbook под тем же именем.

Я хочу просто перезаписать существующий документ при запуске макроса.

Sub sendemail() 
    'Save the form with todays date 
    Application.Save "doc.xlsm" 

    'Create the email 
    Dim OutApp As Object 
    Dim OutMail As Object 
    Dim strbody As String 


    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(0) 

    strbody = "<HTML><BODY>" 
    strbody = strbody & "<A href= ""http://ne-sharepoint.xsxxu.xxcorp.xxx.biz/ASP/SFP/xP/xxx-OPS/Shared%20Documents/00.%20Shift%20Schedule/ShiftRota.xlsm"">Link to Sharepoint</A>" 
    strbody = strbody & "</BODY></HTML>" 
    On Error Resume Next 

    With OutMail 
     .To = "[email address]" 
     .cc = "" 
     .BCC = "" 
     .Subject = "New Holiday Request on " & Format(Now(), "dd/mm/yyyy") & " by " & Range("C2") & "" 
     .HTMLBody = strbody 

     .Send 

    End With 
    On Error GoTo 0 
    Set OutMail = Nothing 
    Set OutApp = Nothing 
    Debug.Print strbody 
End Sub

источник

2013-12-19 user3013325

Просто используйте

Application.Save

если вы хотите сохранить имя файла.

источник

2013-12-19 16:28:25 Joe

'Save the form with todays date 
Application.Save "doc.xlsm"

Это предложение, что хотите сохранить его под определенным именем? например doc20131219.xlsm? Если So

Application.Save "doc" & Format(Now(),"yyyymmddHhNnSs") & ".xlsm"

источник

2013-12-19 16:52:15 engineersmnky

Excel VBA обыкновение сохранять

ответ

Смежные вопросы