我的代碼突然停止作業，我不知道為什么。請幫忙
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```
uj5u.com熱心網友回復：
從已關閉的作業簿中復制值
- 您的代碼在我這邊運行良好，但我更喜歡通過賦值復制值。試一試，如果問題仍然存在，請告訴我們。
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 Sub
uj5u.com熱心網友回復：
嘗試這個：
Set destinationRange = ThisWorkbook.Worksheets("RecognitionsLog").Range("A2")
destinationRange.PasteSpecial Paste:=xlPasteValues
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/437778.html