根据单元格内的文件名提取文件中内容

lfspecter

求助，根据单元格内容，在指定文件夹中寻找相同文件名的Excel文件，提取指定列中最后一个数字，填写到文件中对应的单元格内。

Desktop.zip (37.85 KB, 下载次数: 64)

2021-1-18 17:50 上传

点击文件名下载附件

cjc209

版主在出考题吗?

A1233515

版主出题，先占个前排再说

cjc209

就是一个打开指定文件 再在指定处取数据后写入本表制定位置处就是了汕

cjc209

没有你要的文件 我们在哪里取找文件?

lfspecter

cjc209 发表于 2021-1-18 17:32
没有你要的文件 我们在哪里取找文件?

已经更新一楼文件，谢谢

lfspecter

cjc209 发表于 2021-1-18 17:27
版主在出考题吗?

VBA我是真心不行，仅限于录制宏和修改一下简单路径之类的

lele6809

大致是这个意思吧：
    For i = 2 To 4
        Filename = Trim(Cells(i, 5).Text) & ".xls"
        myfile = ThisWorkbook.Path & "\子目录\" & Filename
        Set wb = Workbooks.Open(myfile)
        rr = wb.Sheets("Cutter Usage").Range("L51").End(xlUp).Row
        ThisWorkbook.ActiveSheet.Range("L" & i) = wb.Sheets("Cutter Usage").Range("L" & rr)
        wb.Close 0
        Set wb = Nothing
    Next

cjc209

Sub 测试()
    arr = [a1].CurrentRegion
    lj = ThisWorkbook.Path & "\"
    For i = 2 To UBound(arr, 1)
        wjm = arr(i, 5) & ".xls"
        Set Wb = Workbooks.Open(lj & wjm)
        Z = Range("l11").End(xlDown).Value
        Wb.Close False
        Cells(i, 12) = Z
    Next i
End Sub

cjc209

不知道是不是你想要的 保证你需要的原始文件都要在这个文件夹下