Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » RFA
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBSскрипт ( путь файла с SharePoint)
 
#
11.01.2024 14:31:09
Добрый день! Помогите пжста разобраться.
У меня есть скрипт, который должен открывать эксель файл, который лежит на SharePoint (обновлять, сохранять, закрывать)
Может я не так ссылку пишу?
Но когда я этот VBSскрипт указываю в планировщик, и запускаю его, выскакивает ошибка.
1. скрипт и файл лежат в одной папке на Sharepoint
2. называются они одинаково

А может в планировщике неверно указываю путь (https://Компания.sharepoint.com/teams/Департамент/Shared Documents/General/*****/2024/*****.vbs)?
Помогите пжста мне)

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("https://Компания.sharepoint.com/teams/Департамент/Shared Documents/General/*****/2024/*****.xlsm)
' Обновление всей книги
objWorkbook.RefreshAll
' Сохранение изменений
objWorkbook.Save
' Закрытие файла
objWorkbook.Close
' Закрытие Excel
objExcel.Quit


А вообще так можно через vba открывать sharepoint по url_адресу?
Я в этом деле прям не ас....
Изменено: RFA - 11.01.2024 14:40:31
 
Перейти    
Предупреждение СБ "Запуск макроса отключен"
 
#
08.01.2024 08:20:17
Спасибо большое! Все получилось)  
 
Перейти    
Предупреждение СБ "Запуск макроса отключен"
 
#
07.01.2024 14:13:53
Цитата
написал:
Как запустить файл с включенными макросами?  - ВАРИАНТ 2.Далее в планировщик надо будет добавлять запуск именно этого файла скрипта. Как уже выше отметил - как правило ИТ блокируют подобную возможность. Но попробовать можно.

Я вот сгенерила с помощью GPT  такой код:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\.............\Куб_Грос.xlsx")
' Обновление всей книги
objWorkbook.RefreshAll
' Сохранение изменений
objWorkbook.Save
' Закрытие файла
objWorkbook.Close
' Закрытие Excel
objExcel.Quit
' Освобождение ресурсов
Set objWorkbook = Nothing
Set objExcel = Nothing



вставила его в планировщик.
Но не понимаю почему он мне ошибку выдает...
И при чем имя файла как-то коверкает...
Не подскажите в чем может быть проблема?
Изменено: RFA - 07.01.2024 14:14:37
 
Перейти    
Предупреждение СБ "Запуск макроса отключен"
 
#
07.01.2024 13:04:43
Цитата
написал:
Как запустить файл с включенными макросами?  - ВАРИАНТ 2.
а подскажите, пжста, я вот в VBS ну совсем нолик, как переписать данный код без пароля, он особо мне не нужен.  
 
Перейти    
Предупреждение СБ "Запуск макроса отключен"
 
#
07.01.2024 12:52:14
 Ой, да давайте попробую этот вариант, отпишусь по итогу)  
 
Перейти    
Предупреждение СБ "Запуск макроса отключен"
 
#
07.01.2024 12:06:13
Не получается, при создании папки требует имя и пароль админа
 
Перейти    
Предупреждение СБ "Запуск макроса отключен"
 
#
07.01.2024 09:00:20
Всем добрый день! Подскажите пжста
с помощью планировщика создала задачу по обновлению данных в сводной таблице на ежедневной основе
Делала руководствуясь видео с этого сайта "запуск макроса по времени"
Но вот незадача.
Т к я не админ.
При открытии планировщиком моего файла, там автоматически выскакивает Предупреждение СБ "Запуск макроса отключен", которое ожидает моего ручного подтверждения.
Активировать макросы на постоянной основе в этом файле не могу, тк повторюсь я не админ.
Вот можно ли эту проблему как-то обойти?
 
Перейти    
Копирование диапазона в столбец след.за текущим., Как сделать чтобы обновленные данные записывались не поверх имеющего столбца,а переходили в следующий.
 
#
04.10.2019 10:44:01
Я проверила, не сработало и решила уточнить...
Но он сейчас почему-то вставляет в столбцы R. S. T
Не верно определяет последний заполненный столбец
Изменено: RFA - 04.10.2019 10:50:40
 
Перейти    
Копирование диапазона в столбец след.за текущим., Как сделать чтобы обновленные данные записывались не поверх имеющего столбца,а переходили в следующий.
 
#
04.10.2019 09:17:13
Код
Range("E7:E10").Select
Selection.Copy
Range("H7:H10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False

    lClmn = Sheets("Итого").Cells(7, lClmn).Resize(4, 1).UsedRange.Columns.Count + Sheets("Итого").Cells(7, lClmn).Resize(4, 1).UsedRange.Column - 1

Я правильно Вас поняла?
 
Перейти    
Копирование диапазона в столбец след.за текущим., Как сделать чтобы обновленные данные записывались не поверх имеющего столбца,а переходили в следующий.
 
#
03.10.2019 08:23:59
Добрый день! Подскажите пжста, есть диапазон данных  Range (E7:E10). Еженедельно данные в нем меняются, мне необходимо чтобы новые данные каждый раз записывались в новый столбец т.е. в H, I, J и т.д.
Что имею на данный момент -только ту часть,где я вставляю первые данные как значения в столбец H...
Код
Range("E7:E10").Select
Selection.Copy
Range("H7:H10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False

Как дальше сделать чтобы следующие данные записывались не поверх столбца H,а переходили в следующий.

Заранее большое спасибо!
Изменено: RFA - 03.10.2019 11:32:37
 
Перейти    
Страницы: 1
Наверх