我得到一个࿽；使用visual basic在excel中粘贴数据时。为什么？

当使用Excel2007时，就在昨天它开始粘贴� 当我从另一个工作簿复制数据时。这� 由于数据格式或组织不正确，因此会完全破坏新工作表。我使用VBA运行宏，宏中没有任何更改，但现在我的数据被破坏了。有人能帮我找出问题所在吗

代码如下：

Sub LoopR()

    Dim File As String
    Dim Path As String
    Path = "C:\My Documents\Macros\"
    File = Dir(Path)

    Do While Len(File) > 0
        If File = "* Master.xlsm" Then
            Exit Sub
        End If

        Workbooks.Open (Path & File)

        'Macro which organizes my data into the correct
        'format and cells
        Call k80jason

        Range("A1:H" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
        ActiveWorkbook.Close savechanges:=False
        ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(1, 1), Cells(1, 8))

        File = Dir
    Loop

End Sub

---

我无法猜测您的代码以确定需要进行哪些更改。是一篇非常有趣和有用的文章。比我快5秒劳伦斯。。。该死的那些奇怪的字符集/unicode我在Sub-Loop（）Dim文件中遇到了类似的问题，字符串Dim路径为String Path=“C:\My Documents\Macros\”File=Dir（Path），而Len（File）>0如果File=“*Master.xlsm”，则退出Sub-End If Workbooks.Open（Path&File）调用k80jason宏，该宏将我的数据组织为正确的格式和单元格范围（“A1:H”&单元格（Rows.Count，“A”）。结束（xlUp）.Row）。复制ActiveWorkbook。关闭savechanges:=假ActiveSheet。粘贴目标：=工作表（“Sheet1”）。范围（单元格（1，1），单元格（1，8））File=Dir循环结束子网它是否正常工作。我不知道为什么。。。