用于将单元格内容复制到另一个工作簿中的特定工作表的Excel宏

Question

我需要的是将“ThisWorkbook”（其中宏是）的某些单元格的内容发送到另一个工作簿中的特定工作表的位置这将不会改变，不像 “的ThisWorkbook”）

出于某种原因，这低于这么想的工作：

Sub Transplant() 

Dim thispath As String 
Dim targetpath As String 

'Set filepaths 
thispath = ThisWorkbook.FullName 
targetpath = ThisWorkbook.Path & "/subdir/Targetbook.xlsm" 



Dim Srcwb As Workbook 
Dim Trgwb As Workbook 

'Set workbooks 
Set Srcwb = Workbooks.Open(thispath) 
Set Trgwb = Workbooks.Open(targetpath) 

Srcwb.Worksheets("Sheet1").Range(Srcwb .Worksheets("Sheet1").Range("A1"), _ 
Srcwb.Worksheets("Sheet1").Range("A1").End(xlToRight)).Copy _ 
Destination:=Trgwb.Sheets("Sheet1").Cells(1, 1) 


End Sub 

请帮帮忙！

//利奥

Answer 1

这几乎是一样的，你已经得到的东西，虽然我没有重新打开活动工作簿。

你能描述你想复制的范围吗？您可能会发现UsedRange更容易。

Sub Transplant() 
    Dim DWB As Workbook 
    Dim S As Worksheet 
    Set S = ThisWorkbook.WorksheetS("Sheet1") ' forgot to rename Source to S 

    Set DWB = Application.Workbooks.Open(Thisworkbook.Path & "/subdir/Targetbook.xlsm") 
    Set D = DWB.Worksheets("Sheet1") 

    S.Range(S.Range("A1"), S.Range("A1").End(xlToRight)).Copy Destination:=D.Cells(1,1) 
    ' S.UsedRange.Copy Destination:=D.Cells(1,1) - this might be easier 
End Sub