Невозможно открыть несколько книг и добавить данные из таблицы Excel с использованием кода VBA - PullRequest
Новая
       23

Невозможно открыть несколько книг и добавить данные из таблицы Excel с использованием кода VBA

0 голосов
/ 14 марта 2019

У меня есть лист Excel со списком книг Excel в одном столбце и соответствующими данными в другом столбце. Я хочу иметь возможность открывать каждую книгу и заполнять определенный столбец только соответствующими данными. В настоящее время мой код открывает каждую рабочую книгу и добавляет к ней данные другой рабочей книги.

Sample Excel Sheet

Мой код: 

Sub Workbook_Open()
Dim r1 As Range, r2 As Range, N As Long, r As Range, x As Range

Workbooks.Open "C:\Users\HP\Documents\test\script.xlsx"

For Each r In Range("A1:A3")
    With r

        Workbooks.Open r
        Set Rng = Sheets("Sheet1").Range("B1:B3")
        For Each cell In Rng
        With cell

        Set r2 = Sheets("Sheet1").Range("Y3:Y3")

    Rng.Copy r2
    End With
        Next cell
    End With

Next r

End Sub

Ваш вклад будет с благодарностью оценен.

1 Ответ

0 голосов
/ 15 марта 2019

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

Sub Workbook_Open()

Dim r1 As Range, rng As Range, N As Long, r As Range, x As Range, wbMaster As Workbook, wb As Workbook

Set wbMaster = Workbooks.Open("C:\Users\HP\Documents\test\script.xlsx")

For Each r In wbMaster.Sheets(1).Range("A1:A3")
    Set wb = Workbooks.Open(r)
    wb.Sheets("Sheet1").Range("B1").value=r.Offset(, 1).Value  'this fills B1 of the workbook opened with B of the master file
    wb.close false
Next r

End Sub
...