Мне нужно извлечь данные из нескольких столбцов на листе и вставить столбцы на нескольких листах в другую книгу?

Question

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

Excel, VBA

Sub foo2()
Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("C:\Users\SAMIUL\Desktop\VBA\Borelog_(Nabinagar-Paturia Road) NSO.xlsx")
Set y = Workbooks.Open("C:\Users\SAMIUL\Desktop\VBA\Book1.xlsm")

y.Sheets("BR-26 (BH-2)").Range("M13:M37").Value = x.Sheets("Sheet1").Range("A13:A37")

x.Close SaveChanges:=False
y.Close SaveChanges:=True

End Sub

Я получаю сообщение об ошибке: конкретное измерение не подходит для текущего типа диаграммы

Answer 1

Это должно работать:

Sub foo2()
Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("C:\Users\SAMIUL\Desktop\VBA\Borelog_(Nabinagar-Paturia Road) NSO.xlsx")
Set y = Workbooks.Open("C:\Users\SAMIUL\Desktop\VBA\Book1.xlsm")


y.Sheets("BR-26 (BH-2)").Range("M13:M37").Value = x.Sheets("Sheet1").Range("A13:A37").Value

x.Close SaveChanges:=False
y.Close SaveChanges:=True

End Sub

Хотя я не понимаю, почему вы получаете Chart Error

---

Новый ответ:

Sub foo2()

    Dim x As Workbook
    Dim y As Workbook
    Dim ws As Worksheet

    Set x = Workbooks.Open("C:\Users\SAMIUL\Desktop\VBA\Borelog_(Nabinagar-Paturia Road) NSO.xlsx")
    Set y = Workbooks.Open("C:\Users\SAMIUL\Desktop\VBA\Book1.xlsm")

    For Each ws In y.Worksheets

        x.Sheets("Sheet1").Range("A13:A37").Copy
        ws.Range("M13:M37").PasteSpecial xlPasteValues

    Next ws

    x.Close SaveChanges:=False
    y.Close SaveChanges:=True

End Sub