当前位置: 首页 > 知识库问答 >
问题:

运行“粘贴”时出现VBA运行时错误438

沈凯康
2023-03-14

我在上面有一个问题:我使用了提供的答案,但仍然击中了一个对象错误。你能看到我错过了什么吗?我在“cash_sheet.range(”C8“).pastespecial xlpastevalues”处找到了错误

`Sub Refresh_Cash()      
Dim Morning_Export As Workbook     
Dim Cash_Sheet As Worksheet  

'Open MorningExport cash workbook     
Set Morning_Export = Workbooks.Open(Range("varMornExpPath"))  

'Copy cash from Morning_Export_Settlement_Cas tab: 
Morning_Export.Sheets("Morning_Export_Settlement Cas").Range("A1:AR5000").Copy  

'Set the sheet in this file to paste to:
Set Cash_Sheet = ThisWorkbook.Worksheets("Cash")  
'Clear prior data from EOD_Check
 Cash_Sheet.Range("rngRefreshPFMExp").ClearContents  

'EVERYTHING WORKS UP UNTIL THIS POINT BUT THEN FAILS HERE
 Cash_Sheet.Range("C8").PasteSpecial xlPasteValues  

'Close MorningExport book:     
Morning_Export.Close  

End Sub

共有1个答案

陆光济
2023-03-14
Sub Refresh_Cash()

Dim wb As Workbook: Set wb = Workbooks.Open(Range("varMornExpPath"))
Dim cs As Worksheet: Set cs = ThisWorkbook.Sheets("Cash")

cs.Range("rngRefreshPFMExp").ClearContents
wb.Sheets("Morning_Export_Settlement Cas").Range("A1:AR5000").Copy
cs.Range("C8").PasteSpecial xlPasteValues

wb.Close

End Sub
 类似资料:
  • 我似乎有一个错误,我正在努力找出原因。我已经尝试了帮助部分,也尝试在线研究它,但没有得出任何结果。我希望有人能够帮助我解决这个问题。 问题 我在电子表格上为不同的工作表创建了多个表单。我做了表格,可以用来隐藏/显示用户的判断选择列。我有两种形式可以很好的工作,但是第三种。 我得到 运行时错误438“对象不支持此属性或方法” 这是什么意思?代码与其他表单完全相同。它们之间唯一的区别是床单的名称不同。

  • 我一直在网上搜索,似乎找不到我的问题的答案! 我在Excel2010中创建了一个使用ActiveX控件(特别是文本框和组合框)的电子表格。 我遇到过这样的问题:当我保存电子表格、关闭Excel并重新打开文件时,所有的ActiveX控件都不想合作。我一直收到运行时错误“438”无法获取OLEObject类的Object属性。我尝试通过多种方式访问OLEObject:(参见下面) 两行都会抛出上面的运

  • 在我的环境中设置了JAVA_HOME之后,我在运行pig时得到了以下结果: 当我这么做的时候: 但是在我的环境中,JAVA_HOME是这样设置的: 运行于:Ubuntu 10.04.4 LTS java:java版本“1.6.0_21”Hadoop版本:Hadoop-0.20.203 PIG版本:PIG-0.11.1 env:term=Xterm shell=/bin/bash xdg_sessi

  • 代码: pom.xml依赖项: 我不明白发生了什么事,有人能帮忙吗?

  • 我一直在为我的公司开发一个Excel宏,该宏打开几个工作簿,分析它们的特定信息行,存储该行,然后在完成每个工作簿后,在两个页面中的一个页面上设置单个工作簿中单元格的水平选择值。我遇到的问题是,在尝试选择第二个页面时,我需要将数据放在上面,我得到一个运行时错误1004。 我可以做什么来修复这个错误?

  • 我正在学习初学者的TensorFlow教程并尝试分类。有很多GPU错误。我安装了cuda工具以及最新的GPU驱动程序。以下是输出: 这是我的代码: