Обмен данными между 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

ИИ для рефератов и докладов


  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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