如何将同一文件夹下的Excel表数据合并到一个Excel表中

johns2004

如题，求调整 VBA 代码！！

Sub HuiZong()

Dim myfile, mypath, wb              '声明变量

Application.ScreenUpdating = False  '关闭屏幕更新

Sheet1.UsedRange.Offset(0,0).Clear  '清除除表头之外的所有内容

mypath = ThisWorkbook.Path          '找到当前工作簿的路径

myfile = Dir(mypath & "\*.xls*")     '遍历当前文件夹下的Excel文件

Do While myfile <> ""                '当找到的文件不为空时

   If myfile <>ThisWorkbook.Name Then   '当找到的文件不是当前Excel工作簿时

      Setwb = GetObject(mypath & "\" & myfile)   '得到dir找到的工作簿的内容，设为wb

      With wb.Sheets(1)              '对找到的工作簿的sheet1进行操作

        '复制wb的sheet1除第一行的所有内容

        .UsedRange.Offset(0, 0).CopySheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)

       End With

         wb.Close False      '关闭wb工作簿且不保存

   End If

   myfile = Dir          '寻找下一个Excel工作簿

Loop

Application.ScreenUpdating = True   '恢复屏幕更新

End Sub

此代码将 带有绝对引用的公式  直接粘贴过来。  怎么才能直接粘贴单元格内的数值！ 求解。