宏從一個工作簿複製和粘貼到當前工作簿

Question

我嘗試下面的宏將excel名稱「3」中的值複製到當前excel名稱「1」，但是當我執行時，我得到編譯錯誤方法或數據成員未找到我不擅長Vb腳本任何人請幫助我

Sub Update() 

Dim sPath As String 
Dim objExcel As Application 
Dim sValue As String 
Dim wbTarget As Workbooks 
Dim strName As String 
Set wbThis = ActiveWorkbook 
strName = ActiveSheet.Name 
sPath = "C:\Users\nikhil.surendran\Desktop\1" 
Set wbTarget = Workbooks.Open("C:\Users\nikhil.surendran\Desktop\3" & strName & ".xlsx") 

sValue = wbTarget.Sheets(1).Range("A1").Value 

Set objExcel = CreateObject("Excel.Application") 
With objExcel 
.Visible = False 
.DisplayAlerts = 0 
.ActiveWorkbook.Sheets(1).Range("B11").Value = sValue 
.ActiveWorkbook.Save 
.Quit 
End With 

End Sub 



Thanks in Advance. 

Answer 1

試試此代碼：假設您的代碼正在從當前工作簿運行。您可以參考當前工作簿作爲ThisWorkbook和工作簿，您正在打開爲wbTarget

Sub Update() 

Dim sPath As String 
Dim sValue As String 
Dim wbTarget As Workbook 
Dim strName As String 

strName = ActiveSheet.Name ' Explicitly provide the sheet name 
sPath = "C:\Users\nikhil.surendran\Desktop\1" 
Set wbTarget = Workbooks.Open("C:\Users\nikhil.surendran\Desktop\3" & strName & ".xlsx") 
sValue = wbTarget.Sheets(1).Range("A1").Value 

ThisWorkbook.Sheets(1).Range("B11").Value = sValue 
ThisWorkbook.Save 
End Sub 

Answer 2

假設「3.xlsx」是你的文件名，從中您希望將數據複製到當前workbook.And也從第一張「3.xlsx」到第一張當前工作簿。

Sub Update() 

    Dim wbkSource   As Workbook 

    Set wbkSource = Workbooks.Open("C:\Users\nikhil.surendran\Desktop\3.xlsx") 
    wbkSource.Worksheets(1).Range("A1").CurrentRegion.Copy ThisWorkbook.Worksheets(1).Range("A1") 

    End Sub