Ошибка несоответствия типов при копировании данных из Excel в другой Excel

Question

Ошибка несоответствия типов при копировании данных из Excel в другой excel

Я получаю ошибку Несоответствия типов .. пожалуйста, помогите спасибо

Private Sub CommandButton1_Click()
Dim dataRange As String
Dim myData As Workbook

Worksheets("Sheet1").Select
dataRange = Range("A1:T1")

Set myData = Workbook.Open("C:\Users\mahather\Desktop\Report\Test.xlsx")
Worksheets("Sheet1").Select
Worksheets("Sheet1").Range("A3:T3").Select
RowCount = Worksheets("Sheet1").Range("A3:T3").CurrentRegion.Rows.Count
With Worksheets("Sheet1").Range("A3:T3")
RowCount = dataRange
End With
myData.Save
End Sub

Answer 1

Этот код запустится, и я попытался угадать вашу цель.Вы останетесь с открытой книгой.

Private Sub CommandButton1_Click()
    Dim dataRange As variant, myData As Workbook

    dataRange = Worksheets("Sheet1").range("A1:T1").value

    Set myData = Workbooks.Open("C:\Users\mahather\Desktop\Report\Test.xlsx")

    with mydata.Worksheets("Sheet1")
        with .Range("A3:T3").CurrentRegion
            .offset(.rows.count, 0).resize(1, .columns.count) = dataRange
        end with
        .parent.save
        '.parent.close savechanges:=true
    end with
End Sub

Answer 2

Проблема с:

RowCount = dataRange

потому что RowCount - это Long или Integer , а DataRange - это многоячейка Range