Указать путь - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Указать путь (Макросы/Sub)

Указать путь

val77973

Дата: Понедельник, 04.12.2023, 16:29 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 40% ±

2019

как в этом примере указать путь сохранения ? типа "\" "F:\ARX" но такое не работает спасибо...

Sub SaveCopyAs_Now()
With ThisWorkbook
.SaveCopyAs (.Path & "\" & Replace(.Name, "." & Split(.Name, ".")(1), "_" & Format(Now, "dd mmm yy") & "." & Split(.Name, ".")(1)))
End With
End Sub

Ответить

val77973

Дата: Понедельник, 04.12.2023, 22:42 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 40% ±

2019

Цитата val77973, 04.12.2023 в 16:29, в сообщении № 1 (

)

как в этом

Sub Backup_Active_Workbook()
strPath = "F:\ARX"
strDate = Format(Now, "dd mmm yy")
FileNameXls = strPath & "\" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
End Sub
вот так норм сайт спасибо

Вик

Сообщение отредактировал val77973 - Понедельник, 04.12.2023, 22:52

Ответить

mgt

Дата: Вторник, 05.12.2023, 10:59 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 102

Репутация: 26 ±

Замечаний: 0% ±

Excel 2010

Ваш код

Цитата val77973, 04.12.2023 в 16:29, в сообщении № 1 (

)

Sub SaveCopyAs_Now()
With ThisWorkbook
.SaveCopyAs (.Path & "\" & Replace(.Name, "." & Split(.Name, ".")(1), "_" & Format(Now, "dd mmm yy") & "." & Split(.Name, ".")(1)))
End With
End Sub

нормально работает.
Если хотите добавить путь "F:\ARX" запишитие как
[vba]

Код

With ThisWorkbook
.SaveCopyAs ("F:\ARX\" & Replace(.Name, "." & Split(.Name, ".")(1), "_" & Format(Now, "dd mmm yy") & "." & Split(.Name, ".")(1)))
End With

[/vba]
предварительно создав папку с указанным адресом.

Сообщение отредактировал mgt - Вторник, 05.12.2023, 11:00

Ответить

Указать путь (Макросы/Sub)

Страница 1 из 1
1