Question

我在电子表格中有一个唯一ID的列表，并且每个（但不是全部）ID都有一个相关的电子表格，所有电子表格都存储在同一位置。我需要从每个xlsx中提取一个数字。文件（在每个文件的相同单元格中），并将其与唯一ID列表匹配。所有文件的命名约定均与“ UniqueID_Otherinformation.xlxs”相同。所有唯一ID为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")

看看上面的内容。此代码从第一张纸移动到第二张纸。无需复制+粘贴，方法更简单

根据需要将其应用于您的代码

根据唯一ID对许多工作簿中的信息编制索引

1 个答案: