Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Путь сохранения с учетом изменения имени съемного носителя - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Путь сохранения с учетом изменения имени съемного носителя (Макросы/Sub)
Путь сохранения с учетом изменения имени съемного носителя
Сергей13 Дата: Среда, 20.10.2021, 01:24 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!
Ребята сохраняемый файл который находится на съемном носителе D, сохраняю в другую папку на тот-же носитель D.
[vba]
Код
ActiveWorkbook.SaveAs Filename:="D\Папка\Подпапка\тест.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[/vba]
Дело в том что если использовать носитель на другом компьютере то изменяется его имя (например на E) и код выдает ошибку.
Как прописать путь сохранения с учетом изменения имени съемного носителя?
 
Ответить
СообщениеЗдравствуйте!
Ребята сохраняемый файл который находится на съемном носителе D, сохраняю в другую папку на тот-же носитель D.
[vba]
Код
ActiveWorkbook.SaveAs Filename:="D\Папка\Подпапка\тест.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[/vba]
Дело в том что если использовать носитель на другом компьютере то изменяется его имя (например на E) и код выдает ошибку.
Как прописать путь сохранения с учетом изменения имени съемного носителя?

Автор - Сергей13
Дата добавления - 20.10.2021 в 01:24
Nic70y Дата: Среда, 20.10.2021, 07:59 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7158
Репутация: 1652 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\тест.xlsm"
[/vba]так попробуйте,
вдруг правильно


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\тест.xlsm"
[/vba]так попробуйте,
вдруг правильно

Автор - Nic70y
Дата добавления - 20.10.2021 в 07:59
R_Dmitry Дата: Среда, 20.10.2021, 10:52 | Сообщение № 3
Группа: Друзья
Ранг: Участник
Сообщений: 70
Репутация: 34 ±
Замечаний: 0% ±

2010
[vba]
Код
Function GetRemovableDrivePath(sFolderPath)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Drives = FSO.Drives
For Each dr In Drives
If dr.DriveType = 1 Then
    sPath = FSO.BuildPath(dr.Path, sFolderPath)
    If FSO.FolderExists(sPath) Then
        GetRemovableDrivePath = sPath
        Exit For
    End If
End If
Next
End Function

Sub test()
sFolderName = GetRemovableDrivePath("\Program Files\New Folder")
If Not IsEmpty(sFolderName) Then MsgBox "Ваш каталог : " & sFolderName Else MsgBox "Ваш каталог не найден"
End Sub
[/vba]


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела

Сообщение отредактировал R_Dmitry - Среда, 20.10.2021, 10:54
 
Ответить
Сообщение[vba]
Код
Function GetRemovableDrivePath(sFolderPath)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Drives = FSO.Drives
For Each dr In Drives
If dr.DriveType = 1 Then
    sPath = FSO.BuildPath(dr.Path, sFolderPath)
    If FSO.FolderExists(sPath) Then
        GetRemovableDrivePath = sPath
        Exit For
    End If
End If
Next
End Function

Sub test()
sFolderName = GetRemovableDrivePath("\Program Files\New Folder")
If Not IsEmpty(sFolderName) Then MsgBox "Ваш каталог : " & sFolderName Else MsgBox "Ваш каталог не найден"
End Sub
[/vba]

Автор - R_Dmitry
Дата добавления - 20.10.2021 в 10:52
boa Дата: Среда, 20.10.2021, 12:58 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 520
Репутация: 151 ±
Замечаний: 0% ±

2013, 365
Здравствуйте, Сергей13,
[vba]
Код
Dim Disk$: Disk = VBA.Left$(ActiveWorkbook.Path, 1)
ActiveWorkbook.SaveAs Filename:=Disk & ":\Папка\Подпапка\тест.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[/vba]




Сообщение отредактировал boa - Среда, 20.10.2021, 13:00
 
Ответить
СообщениеЗдравствуйте, Сергей13,
[vba]
Код
Dim Disk$: Disk = VBA.Left$(ActiveWorkbook.Path, 1)
ActiveWorkbook.SaveAs Filename:=Disk & ":\Папка\Подпапка\тест.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[/vba]

Автор - boa
Дата добавления - 20.10.2021 в 12:58
bmv98rus Дата: Среда, 20.10.2021, 21:25 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3686
Репутация: 651 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
ActiveWorkbook.SaveAs Filename:=CreateObject("Scripting.FileSystemObject").GetDriveName(ThisWorkbook.FullName) & ":\Папка\Подпапка\тест.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[/vba]


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[vba]
Код
ActiveWorkbook.SaveAs Filename:=CreateObject("Scripting.FileSystemObject").GetDriveName(ThisWorkbook.FullName) & ":\Папка\Подпапка\тест.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[/vba]

Автор - bmv98rus
Дата добавления - 20.10.2021 в 21:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Путь сохранения с учетом изменения имени съемного носителя (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!