Excel VBA ~ Таблица данных не записывается на лист

Question

У меня есть следующая подпрограмма:

Sub AppendFixedLegData(FloatingLegRows As Long)

    Dim loFixedLegData As ListObject
    Dim i As Integer

    Set loFixedLegData = Sheets("D. Fixed Leg").ListObjects("d_Fixed_Leg_Data")

    ThisWorkbook.Sheets("D. PA Data").Range("d_PA_Data").Offset(FloatingLegRows, 0).Resize(109, 247) = loFixedLegData.DataBodyRange  

    For i = 1 To loFixedLegData.Range.Rows.Count
        Debug.Print loFixedLegData.ListRows(i).Range(i, 4).Value
    Next i

End Sub

Оператор ThisWorkbook не вставляет данные, содержащиеся в loFixedLegData.DataBodyRange, хотя выполняет .Более того, если я сделаю Ctrl-End на листе, где записываются данные, Ctrl-End переместится в конечную ячейку записываемого раздела, доказав, что некоторая часть оператора выполняется, но данные не выполняются.быть вставленным

Я подтвердил, что данные существуют с помощью оператора debug.print, расположенного непосредственно под ним.

Почему это не работает?

Answer 1

Я обнаружил проблему ... простую до крайности.В конце DataBodyRange должно быть .Value , то есть это должно быть DataBodyRange.Value.Как только я вставил это, это было хорошо.