时间戳

首页 > 解决方案 > 根据唯一 ID 索引来自许多工作簿的信息

excel - 根据唯一 ID 索引来自许多工作簿的信息

问题描述

我在电子表格中有一个唯一 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

我开始了，但很快就迷路了。

编辑：抱歉，不清楚我的需求。我不知道如何解决这个问题。我从上面的代码开始，但它与我的意图不太接近，所以我希望您能在这里获得专业知识，因为我不确定如何继续。

标签： excelvba

解决方案

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

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

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

推荐阅读