如何将Excel中的行从一个工作簿复制到另一个工作簿？

Question

我有一本有工作表的工作簿。为了简单起见，假设我的工作簿有一个工作表。在我的工作表中，它被称为“SHEET1”，在单元格A1到A4中有数据。

我希望我的VBA代码做的是：

1. 将工作簿“A”的第1行（或特别是单元格A1至A4)复制到范围变量“我的范围”中
2. 创建一个新的工作簿，我们将此工作簿称为'B'
3. 为工作簿'B'的默认“sheet1”指定一个新名称为“测试名称”
4. 打开工作簿'B'（尽管我意识到VBA代码“workbooks.add”打开一本新书，所以这一步可能是多余的，因为workbooks.add覆盖了第2和第3点的一半）
5. 将“我的范围”粘贴到“工作簿B”的第一行
6. 保存名为“test book”的“工作簿B”和方括号中的时间戳。文件的扩展名必须为“xls”
7. 关闭“工作簿B”并返回到“工作簿A”

Sub OpenAndSaveNewBook()
    'Declarations
    Dim MyBook As String
    Dim MyRange As Range
    Dim newBook As Workbook

    'Get name of current wb
    MyBook = ThisWorkbook.Name
    Set MyRange = MyBook.Sheets("Sheet1").Range("A1,F1")

    'Create/Open new wb
    newBook = Workbooks.Add

    'Save new wb with XLS extension
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & "TEST-BOOK", _
                            FileFormat:=xlNormal, CreateBackup:=False

    '===NOTE: BEFORE THE FOLLOWING RUNS I NEED TO PERFORM ACTIONS ON CELLS VIA VBA ON
    '===WORKBOOK 'A'. DOES THE NEWLY CREATE WORKBOOK BECOME THE PRIMARY/ACTIVE WORKBOOK
    '===? AND SO THEN DO I NEED TO ACTIVATE WORKBOOK 'A'? 
    ActiveWorkbook.Close savechanges:=True

    'Return focus to workbook 'a'
    MyBook.Activate
End Sub

null

任何帮助都将不胜感激。

谢了，资历

Answer 1

不是你上面提到的复制粘贴的方式，你可以直接这样做。这也将否定变量的使用。

MyBook.Sheets("Sheet1").Rows("1:4").copy _
newBook.Sheets("Sheet1").Rows("1")

编辑

我刚注意到你的代码有个错误。

newBook = Workbooks.Add

Option Explicit

Sub OpenAndSaveNewBook()
    Dim MyBook As Workbook, newBook As Workbook
    Dim FileNm As String

    Set MyBook = ThisWorkbook

    FileNm = ThisWorkbook.Path & "\" & "TEST-BOOK.xls"
    Set newBook = Workbooks.Add

    With newBook
        MyBook.Sheets("Sheet1").Rows("1:4").Copy .Sheets("Sheet1").Rows("1")

        'Save new wb with XLS extension
        .SaveAs Filename:=FileNm, FileFormat:=xlNormal, CreateBackup:=False

        .Close Savechanges:=False
    End With
End Sub