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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранить файл в гул диске - Мир MS Excel

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

Excel 2016
Здравствуйте!
Ребята возможно ли сохранить или перенести файл в облачное хранилище гугл?
До этого сохранял непосредственно в гугл диске на компьютере, при закрытии книги.
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) '
    ActiveWorkbook.Save
    ChDir "C:\Users\User\Google Диск"
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\User\Google Диск\тест.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
[/vba]
 
Ответить
СообщениеЗдравствуйте!
Ребята возможно ли сохранить или перенести файл в облачное хранилище гугл?
До этого сохранял непосредственно в гугл диске на компьютере, при закрытии книги.
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) '
    ActiveWorkbook.Save
    ChDir "C:\Users\User\Google Диск"
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\User\Google Диск\тест.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
[/vba]

Автор - Сергей13
Дата добавления - 19.10.2021 в 19:48
evgenmuravsky Дата: Пятница, 12.11.2021, 15:13 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Я работаю с ВайДрайвом, по этому проблем сохранить в нем нет. Но так как эти документы есть общие, то хорошо использовать функцию Environ с переменной USERPROFILE. Тогда без проблем идет сохранение любым пользователем. Подробнее об этой функции https://excelvba.ru/code/environ. (Если я правильно понял, что проблема в этом)

[vba]
Код

If Len(Dir(Environ("USERPROFILE") & "\OneDrive\Документы\Счета поставщикам, vbDirectory)) = 0 Then
      MkDir Environ("USERPROFILE") & "\OneDrive\Документы\Счета поставщикам"
End If
[/vba]
 
Ответить
СообщениеЯ работаю с ВайДрайвом, по этому проблем сохранить в нем нет. Но так как эти документы есть общие, то хорошо использовать функцию Environ с переменной USERPROFILE. Тогда без проблем идет сохранение любым пользователем. Подробнее об этой функции https://excelvba.ru/code/environ. (Если я правильно понял, что проблема в этом)

[vba]
Код

If Len(Dir(Environ("USERPROFILE") & "\OneDrive\Документы\Счета поставщикам, vbDirectory)) = 0 Then
      MkDir Environ("USERPROFILE") & "\OneDrive\Документы\Счета поставщикам"
End If
[/vba]

Автор - evgenmuravsky
Дата добавления - 12.11.2021 в 15:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить файл в гул диске (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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