Обмен данными между Excel и Project - VBA
Формулировка задачи:
Всем здравствуйте.
Возникла необходимость по желанию пользователя при нажатии кнопки в ms project выгружать данные в Excel. И обратная задача: чтобы при нажатии кнопки в Excel, данные переносились в Project. С Excel работаю давно, но вот с Project встречаться еще не доводилось.
У кого-нибудь есть идеи как это реализовать? Или кто-нибудь поделится ссылками, где это можно почитать?
Поиск мне выдает совершенно бесполезные результаты...
Решение задачи: «Обмен данными между Excel и Project»
textual
Листинг программы
- Sub ImportAllProjectTasks()
- Dim PrApp
- Dim proj ' As Project
- Dim xlbook As Workbook
- Dim i As Integer
- Dim pcount As Integer
- ' проверяем открытые приложения
- Set PrApp = CreateObject("MSProject.Application")
- If PrApp.Projects.Count < 1 Then
- MsgBox "Для импорта данных необходимо открыть импортируемый проект"
- Exit Sub
- End If
- Set xlbook = ActiveWorkbook
- pcount = PrApp.Projects.Count
- 'перебираем все открытые проекты
- For Each proj In PrApp.Projects
- Call ImportProjectTasks(proj, xlbook)
- Next proj
- Set proj = Nothing
- Set PrApp = Nothing
- MsgBox ("Импорт завершен. Количество проектов: " & CStr(pcount))
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д