代码突然停止工作运行时错误Range类的"1004“PasteSpecial方法失败
代码突然停止工作运行时错误Range类的"1004“PasteSpecial方法失败
提问于 2022-03-03 13:25:59
我的代码突然停止工作，我不知道为什么。我是VBA的新手。
Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="ExcelFiles(*xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A1:S250").Copy
ThisWorkbook.Worksheets("RecognitionsLog").Range("A2").PasteSpecial xlPasteValues
OpenBook.Close False
End If
Application.ScreenUpdating = True
End Sub回答 2
Stack Overflow用户
回答已采纳
发布于 2022-03-03 15:36:18
从关闭的工作簿复制值
- 您的代码在我的端运行良好，但我更喜欢通过赋值复制值。试一试，如果问题仍然存在，请告诉我们。
Option Explicit
Sub CopyValues()
Application.ScreenUpdating = False
Dim FileToOpen As Variant
FileToOpen = Application.GetOpenFilename( _
Title:="Browse for your File & Import Range", _
FileFilter:="ExcelFiles(*.xls*),*.xls*")
If FileToOpen <> False Then
Dim OpenBook As Workbook: Set OpenBook = Workbooks.Open(FileToOpen)
Dim srg As Range: Set srg = OpenBook.Worksheets(1).Range("A1:S250")
Dim drg As Range: Set drg = ThisWorkbook.Worksheets("RecognitionsLog") _
.Range("A2").Resize(srg.Rows.Count, srg.Columns.Count)
drg.Value = srg.Value
OpenBook.Close False
End If
Application.ScreenUpdating = True
End SubStack Overflow用户
发布于 2022-03-03 13:43:50
试试这个：
Set destinationRange = ThisWorkbook.Worksheets("RecognitionsLog").Range("A2")
destinationRange.PasteSpecial Paste:=xlPasteValues页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/71337984
复制相关文章
相似问题
腾讯云开发者
