VBA Excel书本到书本复制单元格值不是公式
我(在stackoverflow用户@xificurC的帮助下)在excel中开发了一个VBA宏,它可以复制一定范围的单元格,并将它们粘贴到单独工作簿的表中。但这些表中有一个公式,它涉及到在我的帐户上不具有用户权限的数据片段。所以我的问题是如何复制单元格的实际面值,而不是公式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*
'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学生:我不知道怎么用,你有链接吗?