Сохранение файла XLS через VBA

Я создал макрос, который позволяет XLS-файлу отправлять электронное письмо требуемому человеку (лицам) и прикреплять файл XLS.

Как сохранить файл в местоположении?

У меня есть — ThisWorkbook.SaveAs "testsave" & Format(Now, "dd-mm-yy") & ".xls"

Но я хочу сохранить документ на внутренней веб-странице, кроме моего D:

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

Полный код, который теперь сохраняет новый документ и не перезаписывает оригинал

Sub sendemail ()

 'Save the form to the default location with todays date Workbook.Save "HolidayReq" & Format(Now, "dd-mm-yy") & ".xls" 'Create the email and attach the form to it Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "[""]" .cc = "" .BCC = "" .Subject = "New Holiday Request on " & Format(Now(), "dd/mm/yyyy") & " by " & Range("C2") & "" .Body = "" .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing 

End Sub

Вы должны просто использовать Application.Save вместо SaveAs.

Это приведет к перезаписыванию исходного документа

 Application.ThisWorkbook.Save 

Если вы хотите сохранить файл на другом пути, вы можете добавить путь и использовать имя исходного файла с помощью SaveAs

 Application.DisplayAlerts = False Application.ThisWorkbook.SaveAs "C:\Temp\" & ThisWorkbook.Name Application.DisplayAlerts = True 

(Если вы не отключите оповещения, вы получите приглашение, если файл уже существует.)


Если вы хотите сохранить файл как другой тип, вы можете использовать save, но указать тип файла.

 Application.ThisWorkbook.SaveAs ThisWorkbook.Path & "\test.html", xlHtml 

Ниже приведен список различных констант Excel FileType

Давайте будем гением компьютера.