如何将选择行从一个 Excel 文件复制到另一个答案

【问题标题】：How to copy selection row from one Excel file to another如何将选择行从一个 Excel 文件复制到另一个
【发布时间】：2018-03-10 18:55:44
【问题描述】：

我想编写一个宏，将选定范围的单元格从一个 Excel 文件复制到另一个。我尝试了该代码，但它不起作用。我看到的唯一动作是打开了 wbk 和 wbk 1 工作簿，但没有执行其余代码，所以我无法复制我需要的内容。有什么想法有什么问题吗？

Sub new()

    Dim wbk As Workbook
    Dim wbk1 As Workbook

    Set wbk = Workbooks.Open("C:\Users\Marcin\Desktop\plik zrodkowy.xlsm")
    Set wbk1 = Workbooks.Open("C:\Users\Marcin\Desktop\Zeszyt2.xlsm")

    ' now you can manipulate the data in the workbook anyway you want, e.g. '

    Dim x, y As Variant
    x = wbk.Worksheets("Sheet1").Range(Cells(1, 1), Cells(13, 2))
    y = wbk1.Worksheets("Sheet1").Range(Cells(1, 20), Cells(13, 23))

【问题讨论】：

您的代码只是打开两个工作簿并从中读取一些数据。你到底想做什么？
@Marcin: 声明 Dim x, y As Variant 并不是你想象的那样：变量 y 被显式声明为 Variant，但变量 x 默认为变体，因为没有声明变量 x 的变量类型。这是 VBA，它不同于...如果您要执行以下操作 Dim x, y As Double 然后 y 是“双”类型，x 仍然是一个变体:-) 正确的方法是 Dim x As Variant, y As Variant

标签： vba excel copying

【解决方案1】：

感谢大家的帮助，最后我编辑了我的代码，现在它可以工作了，就像我需要的那样，这是我的 cod，如果它可以在未来帮助任何人:) 我是来自波兰的开发人员，所以你应该而不是“Arkusz1”如果您使用的是英文版 Excel，请使用“Sheet1”。问候马辛

Dim strPath2 As String

Dim wbkWorkbook1 As Workbook
Dim wbkWorkbook2 As Workbook
Dim wbThis As Workbook

'define paths and filenames
strPath2 = "C:\Users\Marcin\Desktop\plik zrodkowy.xlsm"
Set wbThis = ThisWorkbook
'open files

Set wbkWorkbook2 = Workbooks.Open(strPath2)
Set Workbook1 = ThisWorkbook
'copy the values across
'### change the sheet and range to what you need
'wbkWorkbook2.Worksheets("Arkusz1").Range("A1:B3").Value = _
    wbkWorkbook1.Worksheets("Arkusz1").Range("A1:B3").Value'

 wbThis.Worksheets("Arkusz1").Range("E1:F3").Value = 
 wbkWorkbook2.Worksheets("Arkusz1").Range("A1:C3").Value

'close the workbook
wbkWorkbook2.Close (True)

【讨论】：

【解决方案2】：

您的代码缺少任务。第一部分是打开工作簿，然后声明并设置变量，但对它们什么也不做。如果要复制范围，请添加以下代码：

x.Copy (y)

【讨论】：