如何通过VBA宏提取指定工作簿A列对应文件的A1值至B列？

完全可以通过VBA宏实现这个需求，以下是包含错误处理的完整代码，能稳定完成批量提取操作：

Sub ExtractA1Values()
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim filePath As String
    Dim sourceWB As Workbook
    
    ' 指定目标工作表（默认当前工作簿的Sheet1，可按需修改）
    Set wsTarget = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取A列最后一行的行号
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列的文件名（假设第1行是表头，从第2行开始；无表头则改为i=1）
    For i = 2 To lastRow
        ' 拼接文件路径：若所有文件和目标工作簿同文件夹，直接用ThisWorkbook.Path
        filePath = ThisWorkbook.Path & "\" & wsTarget.Cells(i, "A").Value
        
        ' 检查文件是否存在
        If Dir(filePath) <> "" Then
            ' 以只读模式打开源工作簿，关闭链接更新弹窗
            Set sourceWB = Workbooks.Open(Filename:=filePath, ReadOnly:=True, UpdateLinks:=False)
            
            ' 将源工作簿首个工作表的A1值写入目标B列
            wsTarget.Cells(i, "B").Value = sourceWB.Sheets(1).Range("A1").Value
            
            ' 关闭源工作簿，不保存任何修改
            sourceWB.Close SaveChanges:=False
        Else
            ' 文件不存在时标记提示
            wsTarget.Cells(i, "B").Value = "文件未找到"
        End If
    Next i
    
    MsgBox "提取完成！"
End Sub

关键细节说明： #

• 路径适配：如果待提取文件和目标工作簿不在同一文件夹，直接修改filePath的前缀，比如filePath = "D:\待提取文件目录\" & wsTarget.Cells(i, "A").Value
• 表头调整：若目标工作表A列没有表头，把循环起始行i=2改为i=1即可
• 性能优化：用只读模式打开文件、关闭链接更新，能大幅提升处理速度，避免不必要的弹窗干扰

操作步骤： #

1. 打开你的目标工作簿
2. 按下Alt + F11打开VBA编辑器
3. 右键左侧工程窗口中的目标工作簿，选择「插入」→「模块」
4. 粘贴上述代码到模块窗口，按需修改工作表名称和路径
5. 按下F5运行宏，或回到Excel界面通过「开发工具」→「宏」选择ExtractA1Values执行

内容的提问来源于stack exchange，提问作者vbata22