Как перенести таблицу в MS Project из Экселя

@DJ Beast · Регистрация: 06.01.2018

Author24 — интернет-сервис помощи студентам

Здравствуйте.
У меня тут вопрос по VBA.

В общем есть открытые программы - MSProject и Excel2013.
В экселе - есть простенькая табличка в три столбца.
Если скопировать эту табличку в экселе, выделить первую ячейку в листе "диаграмма ганта" MS Project.
И нажать Ctrl+V...
То эта табличка (скопированная из экселя) - легко вставится в лист MS Project - и тут же по ней построится диаграмма ганта.

И вопрос в том - как эту в общем-то простую операцию - сделать макросом ?
Ведь и там и там - продукты MS. И там и там - есть макрорекодер.
Но не получается сделать этот перенос, поскольку рекодер экселя может выдать только копирование:

Visual Basic

1
2
3

Sub Макрос1()
    Selection.Copy
End Sub

А рекодер MSProject может выдать только

Visual Basic

Sub Macro2()
    SelectRange Row:=3, Column:=3, RowRelative:=False
    SelectRange Row:=3, Column:=3, RowRelative:=False
    SetActiveCell Value:="Название1"
    SelectRange Row:=4, Column:=3, RowRelative:=False
    SelectRange Row:=3, Column:=4, RowRelative:=False
    SelectRange Row:=3, Column:=4, RowRelative:=False
    SetActiveCell Value:="8день?"
    SelectRange Row:=4, Column:=4, RowRelative:=False
    SelectRange Row:=3, Column:=5, RowRelative:=False
    SetActiveCell Value:="Пн 05 Ноя '18"
    SelectRange Row:=3, Column:=6, RowRelative:=False
    SetActiveCell Value:="Пт 09.11.18"
    SelectRange Row:=3, Column:=4, RowRelative:=False
    SetActiveCell Value:="6 дней"
    SelectRange Row:=5, Column:=5, RowRelative:=False
    SelectRange Row:=3, Column:=5, RowRelative:=False
    SetActiveCell Value:="Пт 02.11.18"
    SelectRange Row:=6, Column:=6, RowRelative:=False
End Sub

Может кто тут знает - как макросом перенести содержание таблицы C6:E9 - на первый лист MSProject (выделить первую ячейку и вставить ctrl+v) ?

	07.11.2018, 15:19