Импорт рабочего времени из Excel в MS Project

помогите мне найти макрос, который может выгружать рабочее время по дням из Excel в MS Project

Вы можете помочь мне найти макрос для импорта или, возможно, рабочий образец. 2. вопрос. Нашёл макрос, который очищает рабочее время, но всё равно на работе вместо "пусто" остаётся "0", где может быть ошибка?

Sub ClearActualHours()
Dim tsk As Task
Dim names As String
projStart = ActiveProject.ProjectStart
projEnd = ActiveProject.ProjectFinish
For Each tsk In ActiveProject.Tasks
        Dim asn As Assignment
        For Each asn In tsk.Assignments
            If asn.UniqueID = 2097154 Then
            Dim TSValues As TimeScaleValues
            Set TSValues = asn.TimeScaleData(projStart, projEnd, pjAssignmentTimescaledActualWork, pjTimescaleYears)
                Dim tsv As TimeScaleValue
            For Each tsv In TSValues
          tsv.Clear
         Next tsv
 
        asn.Work = 0    
           End If
Next asn
     Next tsk
End Sub