Ms Project

[parshin]

Можно ли перенести данные из Excel в Project? Макрос должен быть написан в Ms Project.
Вот код макроса:

Dim myApp As Object
Dim myWkb As Object
Dim Mass(20, 10)

Sub ExcelToProject()
  For i = 1 To 20
    For j = 1 To 10
      Mass(i, j) = myWkb.Worksheets("Лист1").cells(i, j)
    Next j
  Next i
End Sub

Sub Macro1()
  Set myApp = CreateObject("Excel.Application")
  Set myWkb = myApp.Workbooks.Open("z:\proba\proba.xls")
  myApp.Visible = True
  ExcelToProject
  myApp.Quit
  Set myWkb = Nothing
  Set myApp = Nothing
  MsgBox (Mass(1, 2))
End Sub

Сейчас этот макссив нужно внести в таблицу ms project по датам.

[parshin]

Sub Macro2()
' Макрос Macro2
' Макрос записан Пн 13.05.13 пользователем a314.
    SelectTimescaleRange Row:=8, StartTime:="Ср 08.05.13", Width:=1, Height:=1
    ActiveProject.Resources.UniqueID(2).Assignments.UniqueID(1048587).TimeScaleData(StartDate:="08.05.13 0:00", EndDate:="09.05.13 0:00", Type:=10, TimeScaleUnit:=4, Count:=1).Item(1).Value = "8"
    SelectTimescaleRange Row:=14, StartTime:="Ср 08.05.13", Width:=1, Height:=1
End Sub

Этот макрос хоть и был автоматически записан, но при повторном исполнении выдает ошибку во второй строке "Недопустимое значение аргумента"