vba: ошибка времени выполнения '9'

Question

Когда я хочу скопировать значения ячеек с одного листа на анотер в 6 книгах, которые открываются (в моем случае из ячеек «Sheet1» (B9: E111) на «Sheet2») Я стою перед ошибкой: «ошибка времени выполнения 9: Подстрочный из диапазона» это код, который я написал:

Sub sbCopyRangeToAnotherSheet() 

    For i = 1 To 6 

    Workbooks(i).Worksheets("Sheet2").Range("A1").Value = Workbooks(i).Worksheets("Sheet1").Range("B9:E111").Value 

    Next i 

End Sub 

может кто-то может мне помочь? Спасибо

Answer 1

Если все ваши рабочие книги открыты (ниже код может также работать, если только 1, 2 или 3 открыты), он будет копировать значения из Range("B9:E111") в "Sheet2" и вставить их в «Лист1» из Ячейка «A1».

Sub sbCopyRangeToAnotherSheet() 

Dim i As Integer 
Dim wb() As Workbook 

' work with dynamic number of current open workbooks 
ReDim wb(1 To Application.Workbooks.count) 

For i = 1 To Application.Workbooks.count 
    Set wb(i) = Workbooks(i) 
    wb(i).Worksheets("Sheet1").Range("B9:E111").Copy 
    wb(i).Worksheets("Sheet2").Range("A1").PasteSpecial xlValues 
Next i 

End Sub 

Edit1:

Sub sbCopyRangeToAnotherSheet() 

Dim i As Integer 
Dim wb() As Workbook 

' work with dynamic number of current open workbooks 
ReDim wb(1 To Application.Workbooks.Count) 

For i = 1 To Application.Workbooks.Count 
    Set wb(i) = Workbooks(i) 
    wb(i).Worksheets(1).Range("B9:E111").Copy 
    wb(i).Worksheets(2).Range("A1").PasteSpecial xlValues 
Next i 

End Sub 

Answer 2

Вы пытаетесь сделать что-то вроде этого:

Sub sbCopyRangeToAnotherSheet() 

    For i = 1 To 6 

    Workbooks(i).Worksheets("Sheet2").Range("A1").Value = worksheetfunction.sum(Workbooks(i).Worksheets("Sheet1").Range("B9:E111")) 

    Next i 

End Sub 

Answer 3

Попробуйте это, я думаю, что это проблема поставить значение в целом диапазон в одну ячейку. Я назначить его первым в массив, а затем положить массив на от того, что A1 + верхние границы массива ...

Sub sbCopyRangeToAnotherSheet() 

Dim vArr() As Variant 

    For i = 1 To 6 

    vArr = Workbooks(i).Worksheets("Sheet1").Range("B9:E111").Value 
    With Workbooks(i).Worksheets("Sheet2") 
     .Range(.Cells(1, 1), .Cells(UBound(vArr, 1), UBound(vArr, 2))).Value = vArr 
    End With 
    Next i 

End Sub 

Answer 4

«Подстрочный вне диапазона» означает, что вы обращаетесь массив/сбор за его границ.

Workbooks(i).Worksheets("Sheet2").Range("A1").Value = Workbooks(i).Worksheets("Sheet1").Range("B9:E111").Value 

Я подсчитываю несколько разных мест в одной инструкции, которые могли бы сбрасывать эту ошибку. Разделите его.

Dim book As Workbook 
' if it blows up here, check how many books you have open: 
Set book = Workbooks(i) 'consider looping from 1 To Workbooks.Count instead of 1 To 6 

Dim source As Worksheet 
' if it blows up here, check the filename of the book and whether it has a "Sheet1": 
Set source = book.Worksheets("Sheet1") 

Dim destination As Worksheet 
' if it blows up here, check the filename of the book and whether it has a "Sheet2": 
Set destination = book.Worksheets("Sheet2") 

' when it blows up here, consider exactly what you're trying to do: 
destination.Range("A1").Value = source.Range("B9:E111").Value 

Последняя инструкция выглядит подозрительной для меня. Если вы пытаетесь вставить Sheet1!B9:E111 в Sheet2!A1, рассмотрите возможность использования Copy + PasteSpecial, как в Shai Rado's answer.

Если вы имеете в виду перебирать все открытые книги, рассмотрит For Each петли вместо:

Dim book As Workbook 
For Each book In Workbooks 
    '... 
Next 

Answer 5

Я предупреждаю, что с помощью индексов рабочей книги, как это рискованно, но попробовать это ..

Sub sbCopyRangeToAnotherSheet() 

    For i = 1 To 6 
     Workbooks(i).Worksheets("Sheet1").Range("B9:E111").Copy Workbooks(i).Worksheets("Sheet2").Range("A1") 
    Next i 

End Sub