VBA宏开发问题：遍历非TXT文件复制数据时复制对象错误

嘿，这个问题我太熟了！核心原因就是你没明确告诉VBA要复制的是刚打开的源文件内容——默认情况下，VBA会把当前激活的工作簿（也就是你的宏所在文件）当成操作对象，所以才会复制错目标文件。

问题拆解 #

当你打开源文件后，VBA并没有自动切换到这个新打开的文件的工作表，依然聚焦在宏所在的ThisWorkbook里。这时候你执行复制命令，自然会把宏文件的内容复制走，完全和源文件没关系。

修正方案：明确指定操作对象 #

解决思路很简单：把打开的源文件赋值给一个Workbook变量，后续所有复制操作都明确指向这个变量，就不会搞混了。我给你改一段完整的可运行代码，关键部分都标了注释：

Private Sub CommandButton1_Click()
    Dim Path As String
    Dim FileName As String ' 别用File当变量名，它是VBA内置函数，容易冲突
    Dim SourceWB As Workbook ' 存储打开的源文件
    Dim TargetWB As Workbook ' 存储宏所在的目标文件
    Dim TargetWS As Worksheet ' 存储要粘贴的目标工作表

    ' 先锁定目标文件（就是当前带宏的文件）
    Set TargetWB = ThisWorkbook

    ' 设置你的文件夹路径，注意末尾必须加反斜杠！
    Path = "C:\Your\Target\Folder\" ' 替换成你的实际路径

    ' 开始遍历文件夹里的非TXT文件
    FileName = Dir(Path & "*.*")
    Do While FileName <> ""
        ' 跳过TXT文件
        If LCase(Right(FileName, 4)) <> ".txt" Then
            ' 打开源文件，并把它存到SourceWB变量里
            Set SourceWB = Workbooks.Open(Path & FileName, ReadOnly:=True) ' 加ReadOnly更安全，避免误改源文件

            ' --- 重点：明确从源文件复制内容 ---
            ' 示例：复制源文件第一个工作表的A1:B10区域，你可以改成自己需要的范围
            SourceWB.Worksheets(1).Range("A1:B10").Copy

            ' 根据源文件名匹配目标工作表（比如源文件是Sales.xlsx，就找名为Sales的工作表）
            ' 先判断目标工作表是否存在，不存在就新建
            On Error Resume Next
            Set TargetWS = TargetWB.Worksheets(Left(FileName, InStr(FileName, ".") - 1))
            On Error GoTo 0
            If TargetWS Is Nothing Then
                Set TargetWS = TargetWB.Worksheets.Add(After:=TargetWB.Worksheets(TargetWB.Worksheets.Count))
                TargetWS.Name = Left(FileName, InStr(FileName, ".") - 1)
            End If

            ' 粘贴到目标工作表的指定位置，这里选了值和格式，你可以按需改粘贴类型
            TargetWS.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats

            ' 关闭源文件，不保存任何修改
            SourceWB.Close SaveChanges:=False
        End If
        ' 遍历下一个文件
        FileName = Dir()
    Loop

    MsgBox "所有文件内容已复制完成！"
End Sub

几个关键注意点 #

1. 绝对不要省略对象前缀：比如不能直接写Range("A1").Copy，必须写成SourceWB.Worksheets(1).Range("A1").Copy，不然VBA会默认操作当前激活的工作表（也就是宏文件）。
2. 处理目标工作表不存在的情况：代码里加了判断，如果没有对应名字的工作表，会自动新建一个，避免报错。
3. 用ReadOnly打开源文件：防止不小心修改了源文件，也能避免权限冲突。

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