Обмен данными между Excel и Project - VBA

Узнай цену своей работы

Формулировка задачи:

Всем здравствуйте. Возникла необходимость по желанию пользователя при нажатии кнопки в ms project выгружать данные в Excel. И обратная задача: чтобы при нажатии кнопки в Excel, данные переносились в Project. С Excel работаю давно, но вот с Project встречаться еще не доводилось. У кого-нибудь есть идеи как это реализовать? Или кто-нибудь поделится ссылками, где это можно почитать? Поиск мне выдает совершенно бесполезные результаты...

Решение задачи: «Обмен данными между Excel и Project»

textual
Листинг программы
  1. Sub ImportAllProjectTasks()
  2. Dim PrApp
  3. Dim proj ' As Project
  4. Dim xlbook As Workbook
  5. Dim i As Integer
  6. Dim pcount As Integer
  7.  
  8. ' проверяем открытые приложения
  9. Set PrApp = CreateObject("MSProject.Application")
  10. If PrApp.Projects.Count < 1 Then
  11.     MsgBox "Для импорта данных необходимо открыть импортируемый проект"
  12.     Exit Sub
  13. End If
  14. Set xlbook = ActiveWorkbook
  15.  
  16. pcount = PrApp.Projects.Count
  17. 'перебираем все открытые проекты
  18. For Each proj In PrApp.Projects
  19.     Call ImportProjectTasks(proj, xlbook)
  20. Next proj
  21. Set proj = Nothing
  22. Set PrApp = Nothing
  23. MsgBox ("Импорт завершен. Количество проектов: " & CStr(pcount))
  24. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут