Сохранить файл в гул диске

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

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

Сохранить файл в гул диске (Макросы/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]

Ответить

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]

Ответить

Сохранить файл в гул диске (Макросы/Sub)

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