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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранить с Общим доступом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить с Общим доступом (Макросы Sub)
Сохранить с Общим доступом
DJ_Marker_MC Дата: Четверг, 12.09.2013, 15:04 | Сообщение № 1
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Всем добрый день.
Друзья, помогите пожалуйста разобраться.. никак не могу понять, пытаюсь пересохранить файл с одновременным добавление Общего Доступа:

[vba]
Код
     If ActiveSheet.Name = "ЗАКАЗ" Then
         Range("C:AZ").Copy
         Range("C:AZ").PasteSpecial (xlPasteValues)
         [a1].Select
         Sheets("ЗАКАЗ").Copy Before:=Sheets(1)
         ActiveSheet.Name = "РАСПРЕД"
         Sheets("ИСХОДКА").Delete
         ActiveWorkbook.SaveAs (iFullPath, , , , , , XlSaveAsAccessMode:=xlShared)
     Else
     End If
[/vba]

Редактор ругает на эту строку:
ActiveWorkbook.SaveAs (iFullPath, , , , , , XlSaveAsAccessMode:=xlShared)

если сделать так:
ActiveWorkbook.SaveAs (iFullPath)
То всё ок, как мне его заставить понимать XlSaveAsAccessMode:=xlShared ??

Заранее спасибо.
 
Ответить
СообщениеВсем добрый день.
Друзья, помогите пожалуйста разобраться.. никак не могу понять, пытаюсь пересохранить файл с одновременным добавление Общего Доступа:

[vba]
Код
     If ActiveSheet.Name = "ЗАКАЗ" Then
         Range("C:AZ").Copy
         Range("C:AZ").PasteSpecial (xlPasteValues)
         [a1].Select
         Sheets("ЗАКАЗ").Copy Before:=Sheets(1)
         ActiveSheet.Name = "РАСПРЕД"
         Sheets("ИСХОДКА").Delete
         ActiveWorkbook.SaveAs (iFullPath, , , , , , XlSaveAsAccessMode:=xlShared)
     Else
     End If
[/vba]

Редактор ругает на эту строку:
ActiveWorkbook.SaveAs (iFullPath, , , , , , XlSaveAsAccessMode:=xlShared)

если сделать так:
ActiveWorkbook.SaveAs (iFullPath)
То всё ок, как мне его заставить понимать XlSaveAsAccessMode:=xlShared ??

Заранее спасибо.
Автор - DJ_Marker_MC
Дата добавления - 12.09.2013 в 15:04
Serge_007 Дата: Четверг, 12.09.2013, 15:22 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[vba]
Код
ActiveWorkbook.SaveAs accessMode:=xlShared
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Код
ActiveWorkbook.SaveAs accessMode:=xlShared
[/vba]
Автор - Serge_007
Дата добавления - 12.09.2013 в 15:22
DJ_Marker_MC Дата: Четверг, 12.09.2013, 15:30 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Serge_007, это я использовал изначально и так то оно работает, но есть одно но - файл лежит на сервере в сети и если его там открыть с компа, запустить макрос с этим способом что предложили Вы, то файл делает сохранение не на сервере сам в себя, а делает копию на компьютере пользователя в папке Мои документы, поэтому и пытаюсь принудительно ему указать путь куда сохраняться.
 
Ответить
СообщениеSerge_007, это я использовал изначально и так то оно работает, но есть одно но - файл лежит на сервере в сети и если его там открыть с компа, запустить макрос с этим способом что предложили Вы, то файл делает сохранение не на сервере сам в себя, а делает копию на компьютере пользователя в папке Мои документы, поэтому и пытаюсь принудительно ему указать путь куда сохраняться.
Автор - DJ_Marker_MC
Дата добавления - 12.09.2013 в 15:30
_Boroda_ Дата: Четверг, 12.09.2013, 15:39 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А пробовали
[vba]
Код
ActiveWorkbook.SaveAs (iFullPath, , , , , , xlShared)
[/vba]
так?
Или так
[vba]
Код
ActiveWorkbook.SaveAs Filename:=iFullPath, AccessMode:=xlShared
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА пробовали
[vba]
Код
ActiveWorkbook.SaveAs (iFullPath, , , , , , xlShared)
[/vba]
так?
Или так
[vba]
Код
ActiveWorkbook.SaveAs Filename:=iFullPath, AccessMode:=xlShared
[/vba]
Автор - _Boroda_
Дата добавления - 12.09.2013 в 15:39
Serge_007 Дата: Четверг, 12.09.2013, 15:43 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (DJ_Marker_MC, Четверг, 12.09.2013, 15:30 # 3)
пытаюсь принудительно ему указать путь куда сохраняться
[vba]
Код
Dim iFullPath As String
iFullPath="C:\путь\название.xls"
'текст макроса
ActiveWorkbook.SaveAs Filename:=iFullPath, AccessMode:=xlShared
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (DJ_Marker_MC, Четверг, 12.09.2013, 15:30 # 3)
пытаюсь принудительно ему указать путь куда сохраняться
[vba]
Код
Dim iFullPath As String
iFullPath="C:\путь\название.xls"
'текст макроса
ActiveWorkbook.SaveAs Filename:=iFullPath, AccessMode:=xlShared
[/vba]
Автор - Serge_007
Дата добавления - 12.09.2013 в 15:43
DJ_Marker_MC Дата: Четверг, 12.09.2013, 15:58 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
ActiveWorkbook.SaveAs (iFullPath, , , , , , xlShared)
[/vba]
это вариант не прокатил, тоже пробовал так.

а вот второй выручил.
[vba]
Код
ActiveWorkbook.SaveAs Filename:=iFullPath, AccessMode:=xlShared
[/vba]

Спасибо за помощь.
 
Ответить
Сообщение[vba]
Код
ActiveWorkbook.SaveAs (iFullPath, , , , , , xlShared)
[/vba]
это вариант не прокатил, тоже пробовал так.

а вот второй выручил.
[vba]
Код
ActiveWorkbook.SaveAs Filename:=iFullPath, AccessMode:=xlShared
[/vba]

Спасибо за помощь.
Автор - DJ_Marker_MC
Дата добавления - 12.09.2013 в 15:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить с Общим доступом (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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