Получение данных из разных рабочих книг и вставка в одну рабочую книгу.

Question

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

Поле, из которого я хочу получить данные, не является ячейкой.Это поле для редактирования текста.

Это то, что я получил до сих пор

Sub TransferCompanyNames()
for(int i = 0; i < 479; i++){
    variable = Workbooks.Open Range(//Column A with index i);
    //column a contains a link to the workbook C:/Users/.../Documents/file.xlsx
    //grab data from Edit Text Box and insert into current sheet at column A with index i
}
End Sub

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

Есть ли другой способ получить эту информацию?Любые инструменты, которые могли бы помочь автоматизировать это для меня.

Answer 1

Что-то вроде этого возможно:

Sub TransferCompanyNames()
    Dim i As Integer
    Dim SourceBook As Workbook
    Dim TargetSheet As Worksheet
    Set TargetSheet = Workbooks("ChangeToYourWorkbookName").Worksheets("ChangeToYourSheetName")
    For i = 1 To 480
        Set SourceBook = Workbooks.Open(Range("A" & i).Value)
        TargetSheet.Range("B" & i).Value = ActiveSheet.Shapes(1).TextFrame.Characters(1, _
                                           ActiveSheet.Shapes(1).TextFrame.Characters.Count).Text
        SourceBook.Close False
    Next
End Sub