如何打開並將值複製到新工作表時，它不活動？

我已經從一張紙複製了一個值，並試圖將其粘貼到另一張紙上。問題在於我打開第二張紙的方式。我必須保持Excel表格打開，然後使用激活方法打開第二張紙並粘貼。有沒有其他方式可以通過給定的路徑直接打開表單？如何打開並將值複製到新工作表時，它不活動？

Dim FindV As Range 
Dim col, col1 As Long 
Dim FAV, CC As String 

//Relevant Working Code present here// 

Selection.Copy 
Windows("DS.xlsx").Activate 
Set FindV = Range("A1:Z100").Find(What:="Dec Rel", LookIn:=xlValues, LookAt:=xlWhole, _ 
       MatchCase:=False, SearchFormat:=False) 
FAV = FindV.Address(RowAbsolute:=False, ColumnAbsolute:=False) 
ActiveCell = Range(FAV).Offset(0, 1) 
ActiveCell.Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False

來源

2013-11-25 Rahul Baskaran

怎麼樣

FindV.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

低於設定FindV一條線，你就不需要休息

來源

2013-11-25 14:04:13

如何打開並將值複製到新工作表時，它不活動？

回答

相關問題