VBA Excel书本到书本复制单元格值不是公式

VBA Excel书本到书本复制单元格值不是公式,excel,vba,Excel,Vba,我(在stackoverflow用户@xificurC的帮助下)在excel中开发了一个VBA宏,它可以复制一定范围的单元格,并将它们粘贴到单独工作簿的表中。但这些表中有一个公式,它涉及到在我的帐户上不具有用户权限的数据片段。所以我的问题是如何复制单元格的实际面值,而不是公式 'get all excel files (and only excel files) from specified folder file_checks = Dir(path & "\*.xls*

我(在stackoverflow用户@xificurC的帮助下)在excel中开发了一个VBA宏,它可以复制一定范围的单元格,并将它们粘贴到单独工作簿的表中。但这些表中有一个公式,它涉及到在我的帐户上不具有用户权限的数据片段。所以我的问题是如何复制单元格的实际面值,而不是公式

    'get all excel files (and only excel files) from specified folder
    file_checks = Dir(path & "\*.xls*")
     Do Until file_checks = ""
      'open file
       Set wkbklp = Workbooks.Open(path & "\" & file_checks)
       Set wkshtlp = wkbklp.Sheets(1)
      'copy data away from original
       Set data_return = wkshtlp.Range(start_cell).CurrentRegion
       data_return.Copy check_sheet.Cells(check_sheet.Rows.Count, "B").End(xlUp).Offset(1, 0)
      'close file without saving to make it all more automated
       wkbklp.Close False
      'loop through files until all are done
       file_checks = Dir
    Loop

这就是将数据从一本书传输到另一本书的代码。我还没有找到可以这样做的命令,但我只是个业余爱好者,所以可能使用了错误的关键字。

您可以使用粘贴特殊方法,我看不出您要粘贴到哪里,但它类似于

Range.PasteSpecial Paste = xlPasteValues

你可以使用粘贴特殊的方法,我不知道你在哪里粘贴,但它会像这样

Range.PasteSpecial Paste = xlPasteValues

尝试使用pastespecial

   data_return.Copy
   check_sheet.Cells(check_sheet.Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

尝试使用pastespecial

   data_return.Copy
   check_sheet.Cells(check_sheet.Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

只需使用复制和粘贴即可values@Gary学生:我不知道该如何使用,你有链接吗?只需使用复制和粘贴即可values@Gary学生:我不知道怎么用,你有链接吗?