VBA Runtime ошибка 438 появляется при запуске «вставить» - PullRequest
Новая
       16

VBA Runtime ошибка 438 появляется при запуске «вставить»

0 голосов
/ 21 декабря 2018

У меня проблема с вышеуказанным: я использую предоставленный ответ, но все еще сталкиваюсь с ошибкой объекта.Ты видишь, чего мне не хватает?Я нажал ошибку в "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

Ответы [ 2 ]

0 голосов
/ 22 декабря 2018

Вместо использования копирования \ вставки вы можете напрямую записывать значения из одного диапазона в другой.Это работает намного быстрее на больших наборах данных, потому что не нужно копировать дважды.Это также приводит к чистому коду. 

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

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

    'Set the sheet in this file to paste to:
    Set Cash_Sheet = ThisWorkbook.Worksheets("Cash")

    ' Set the values directly
    Cash_Sheet.Range("C8") = Morning_Export.Sheets("Morning_Export_Settlement Cas").Range("A1:AR5000")

    'Close MorningExport book:
    Morning_Export.Close
End Sub

СМ.: Copy / PasteSpecial против Range.Value = Range.Value

0 голосов
/ 21 декабря 2018 
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
...