Блог

У меня есть макрос, который копирует данные из wb в wbME. Я хотел сгруппировать элементы от А3 до А4 в сводной таблице, прежде чем копировать ее. а затем скопировал данные из сводной таблицы в столбец F3. Затем скопируйте эти значения из F3 в другой файл wbME, но здесь я получаю ошибку: wb.Sheets("analysis-tabele").Columns("B3:D17").Copy Destination:=wb.Sheets("analysis-tabele").Range("F3")

Ошибка:Ошибка времени выполнения 1004 «Ошибка, определяемая приложением или объектом»

 
Sub click()
Sub Przycisk14_Click()
Dim strPath As String
Set wb = ThisWorkbook
Set wbMe = ThisWorkbook


strPath = selectFile
If strPath = "" Then Exit Sub
Set wbMe = ActiveWorkbook

Set wb = Workbooks.Open(strPath, False, True)
wb.Activate
wb.Sheets("vintage_agr").Columns("A:C").Copy
wbMe.Sheets("input_4").Range("A1").PasteSpecial Paste:=xlPasteValues

wb.Sheets("vintage_agr").Columns("H").Copy
wbMe.Sheets("input_4").Range("D1").PasteSpecial Paste:=xlPasteValues

'
wb.Sheets("analysis-tabele").Activate
wb.Sheets("analysis-tabele").Range("A3:A4").Select
    Selection.Group
    ActiveSheet.PivotTables("pivot8").PivotFields("pmf_VINT_M40"). _
        Orientation = xlHidden
wb.Sheets("analysis-tabele").Columns("B3:D17").Copy Destination:=wb.Sheets("analysis-tabele").Range("F3")
wb.Sheets("analysis-tabele").Range("F3:H18").Copy
wbMe.Sheets("strona 3").Range("B30").PasteSpecial Paste:=xlPasteValues```