Добрый день подскажите пожалуйста макрос.
Задача:Открываем project pro 2003/он авто синх с project server 2003/вызываем макрос/появляется форма с раскрывающемся списком и предлагает выбрать список проектов.
Проекты нах на сервере.

Не ужели никто не знает как открыть определенный список проектов с сервера Project Server???

Если просто записать макрос выдает:
Sub бла()
FileOpen Name:="<>/Имя_Проекта"
End Sub
Макрос просто открывает определенный проект, а необходимо, что можно было выбрать определенный проект из списка.Как сделать?? Помогите пожалуйста.

Konst_One,

Как пользоваться??

Ответ найден.))
Делаем форму с переключателями.Каждый переключатель проект.
В нутри пишим.

Private Sub CommandButton1_Click()
Select Case True
Case Is = OptionButton1
FileOpen Name:="<>/Имя проекта.Опубликовано"
Case Is = OptionButton2
FileOpen Name:="<>/Имя проекта.Опубликовано"
End Select
End Sub

Потом пишим макрос
Sub ShowAdjustWorkForm()
'Отображение формы UserForm
Имя Формы.Show
End Sub
Все очень просто.Вот это хрень Using the Project Object

Теперь хотелось бы написать макрос на добавление задач в определенный проект.Если у кого-нибудь есть подобный макрос, приведите пример пожалуйста.Кстати я так и не понял как открыть проект в режиме чтения или записи???

Игорь Горбонос,
У меня работает.Просто не знаю как по другому.Ни кто же дельного ничего не подсказал!!

Игорь Горбонос,

Cлово Is с оператором сравнения (=, <>, <, <=, > или >=) для ограничения возможных значений testexpression. Если зарезервированное слово Is отсутствует, оно автоматически вставляется перед comparisonoperator.

Вид, в котором предоставляется только expression, рассматривается как особый случай использования Is, где comparisonoperator — знак равенства (=). Данная форма вычисляется как testexpression = expression.

Выражения в expressionlist могут иметь любой тип данных, если они неявно преобразуемы в тип данных, к которому относится testexpression и соответствующий элемент comparisonoperator подходит для двух используемых с ним типов данных

Игорь Горбонос,

Ну вот к этой структуре.

Select [ Case ] testexpression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select