Индексируйте информацию из многих рабочих книг по уникальному идентификатору

Question

У меня есть список уникальных идентификаторов в электронной таблице, и у каждого (но не всех) идентификаторов есть одна связанная электронная таблица, и все они хранятся в одном месте. Мне нужно извлечь номер из каждого xlsx. файл (в той же ячейке в каждом файле) и сопоставьте его со списком уникальных идентификаторов. Все файлы имеют одинаковое соглашение об именах «UniqueID_Otherinformation.xlxs». Все уникальные идентификаторы состоят из 6 цифр.

Sub OpenFile()
    Dim sPath As String
    Dim sFil As String
    Dim strName As String
    Dim twbk As Workbook
    Dim owbk As Workbook
    Dim ws As Worksheet

    Set twbk = ActiveWorkbook
    sPath = "C:\Data Folder\" 
    sFil = Dir(sPath & "*.xls")

    Do While sFil <> ""
        strName = sPath & sFil
        Set owbk = Workbooks.Open(strName)
        Set ws = owbk.Sheets(1)
        ws.Range("A1", Range("A" & Row.Count).End(xlUp)).Copy
        twbk.Sheets(1).Range("A65536").End(xlUp)(2).PasteSpecial xlPasteValues
        owbk.Close False 
        sFil = Dir
    Loop

twbk.Save
End Sub

Я вздрогнул, но очень быстро растерялся.

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

Answer 1

Worksheets("Source").Columns("A:D").Copy Destination:=Worksheets("Target").Range("a1")

Посмотрите на вышесказанное.Этот код перемещается с первого листа на второй.Не нужно копировать + вставлять, и гораздо более простой метод

Примените его к своему коду при необходимости